diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-03-07 01:19:46 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-03-07 01:19:46 -0800 |
commit | aec337b57701baa6247d87facb0dd26fdd883a97 (patch) | |
tree | ba7abebd6cd8ae38306d01c7b8128ec8fab9d666 /mu.arc | |
parent | 416e925a82b22db3abdda0461e0a31611435b1a2 (diff) | |
download | mu-aec337b57701baa6247d87facb0dd26fdd883a97.tar.gz |
869
The repeated need for bugfixes after every new test isn't very confidence-inducing. On the other hand, I'm starting to get into a cadence where fixes have been easy to make. We'll see. Monotonic progress continues.
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index 40b09bec..ee59472b 100644 --- a/mu.arc +++ b/mu.arc @@ -2787,8 +2787,11 @@ { begin (break-unless x:terminal-address) (row:integer-address <- get-address x:terminal-address/deref cursor-row:offset) -;? ($print row:integer-address/deref) ;? 1 +;? ($print row:integer-address/deref) ;? 2 +;? ($print ((", " literal))) ;? 1 (col:integer-address <- get-address x:terminal-address/deref cursor-col:offset) +;? ($print col:integer-address/deref) ;? 1 +;? ($print (("\n" literal))) ;? 1 (width:integer <- get x:terminal-address/deref num-cols:offset) (t1:integer <- multiply row:integer-address/deref width:integer) (idx:integer <- add t1:integer col:integer-address/deref) |