diff options
| -rw-r--r-- | 060string.mu | 2 | ||||
| -rw-r--r-- | 061channel.mu | 6 | ||||
| -rw-r--r-- | 071print.mu | 8 | ||||
| -rw-r--r-- | chessboard.mu | 34 |
4 files changed, 25 insertions, 25 deletions
diff --git a/060string.mu b/060string.mu index 7b1a3b5d..d6921c8a 100644 --- a/060string.mu +++ b/060string.mu @@ -386,7 +386,7 @@ recipe interpolate [ result-len:number <- subtract result-len:number, 1:literal loop } -#? $print tem-len:number, [ ], $result-len:number, [ #? 1 +#? $print tem-len:number, [ ], $result-len:number, [ #? ] #? 1 rewind-ingredients _ <- next-ingredient # skip template diff --git a/061channel.mu b/061channel.mu index 5445447d..f337379c 100644 --- a/061channel.mu +++ b/061channel.mu @@ -304,10 +304,10 @@ recipe buffer-lines [ { buffer-empty?:boolean <- equal buffer-length:address:number/deref, 0:literal break-if buffer-empty?:boolean -#? $print [before: ], buffer-length:address:number/deref, [ #? 1 +#? $print [before: ], buffer-length:address:number/deref, [ #? ] #? 1 buffer-length:address:number/deref <- subtract buffer-length:address:number/deref, 1:literal -#? $print [after: ], buffer-length:address:number/deref, [ #? 1 +#? $print [after: ], buffer-length:address:number/deref, [ #? ] #? 1 } #? $exit #? 2 @@ -334,7 +334,7 @@ recipe buffer-lines [ break-if done?:boolean c:character <- index line-contents:address:array:character/deref, i:number out:address:channel <- write out:address:channel, c:character -#? $print [writing ], i:number, [: ], c:character, [ #? 1 +#? $print [writing ], i:number, [: ], c:character, [ #? ] #? 1 i:number <- add i:number, 1:literal loop diff --git a/071print.mu b/071print.mu index ac8ae57c..94b645d3 100644 --- a/071print.mu +++ b/071print.mu @@ -68,7 +68,7 @@ recipe print-character [ # special-case: newline { newline?:boolean <- equal c:character, 10:literal/newlin -#? $print c:character, [ ], newline?:boolean, [ #? 1 +#? $print c:character, [ ], newline?:boolean, [ #? ] #? 1 break-unless newline?:boolean { @@ -180,7 +180,7 @@ recipe clear-line [ # space over the entire line #? $start-tracing #? 1 { -#? $print column:address:number/deref, [ #? 1 +#? $print column:address:number/deref, [ #? ] #? 1 done?:boolean <- greater-or-equal column:address:number/deref, n:number break-if done?:boolean @@ -267,10 +267,10 @@ recipe cursor-down [ at-bottom?:boolean <- greater-or-equal row:address:number/deref, height:number break-if at-bottom?:boolean # row = row+1 -#? $print [AAA: ], row:address:number, [ -> ], row:address:number/deref, [ #? 1 +#? $print [AAA: ], row:address:number, [ -> ], row:address:number/deref, [ #? ] #? 1 row:address:number/deref <- add row:address:number/deref, 1:literal -#? $print [BBB: ], row:address:number, [ -> ], row:address:number/deref, [ #? 1 +#? $print [BBB: ], row:address:number, [ -> ], row:address:number/deref, [ #? ] #? 1 #? $start-tracing #? 1 } diff --git a/chessboard.mu b/chessboard.mu index ca722405..b7aa02a6 100644 --- a/chessboard.mu +++ b/chessboard.mu @@ -321,7 +321,7 @@ recipe read-file [ reply 0:literal/dummy, 0:literal/quit, 1:literal/error } file:number <- subtract c:character, 97:literal # 'a' -#? $print file:number, [ #? 1 +#? $print file:number, [ #? ] #? 1 # 'a' <= file <= 'h' { @@ -369,7 +369,7 @@ recipe read-rank [ reply 0:literal/dummy, 0:literal/quit, 1:literal/error } rank:number <- subtract c:character, 49:literal # '1' -#? $print rank:number, [ #? 1 +#? $print rank:number, [ #? ] #? 1 # assert'1' <= rank <= '8' { @@ -414,21 +414,21 @@ scenario read-move-blocking [ run [ #? $start-tracing #? 1 1:address:channel <- init-channel 2:literal -#? $print [aaa channel address: ], 1:address:channel, [ #? 1 +#? $print [aaa channel address: ], 1:address:channel, [ #? ] #? 1 2:number/routine <- start-running read-move:recipe, 1:address:channel, screen:address # 'read-move' is waiting for input wait-for-routine 2:number -#? $print [bbb channel address: ], 1:address:channel, [ #? 1 +#? $print [bbb channel address: ], 1:address:channel, [ #? ] #? 1 3:number <- routine-state 2:number/id -#? $print [I: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [I: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/waiting? <- equal 3:number/routine-state, 2:literal/waiting assert 4:boolean/waiting?, [ F read-move-blocking: routine failed to pause after coming up (before any keys were pressed)] # press 'a' -#? $print [ccc channel address: ], 1:address:channel, [ #? 1 +#? $print [ccc channel address: ], 1:address:channel, [ #? ] #? 1 #? $exit #? 1 1:address:channel <- write 1:address:channel, 97:literal # 'a' @@ -436,7 +436,7 @@ F read-move-blocking: routine failed to pause after coming up (before any keys w # 'read-move' still waiting for input wait-for-routine 2:number 3:number <- routine-state 2:number/id -#? $print [II: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [II: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/waiting? <- equal 3:number/routine-state, 2:literal/waiting assert 4:boolean/waiting?, [ @@ -447,7 +447,7 @@ F read-move-blocking: routine failed to pause after rank 'a'] # 'read-move' still waiting for input wait-for-routine 2:number 3:number <- routine-state 2:number/id -#? $print [III: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [III: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/waiting? <- equal 3:number/routine-state, 2:literal/waiting assert 4:boolean/waiting?, [ @@ -458,7 +458,7 @@ F read-move-blocking: routine failed to pause after file 'a2'] # 'read-move' still waiting for input wait-for-routine 2:number 3:number <- routine-state 2:number -#? $print [IV: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [IV: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/waiting? <- equal 3:number/routine-state, 2:literal/waiting assert 4:boolean/waiting?/routine-state, [ @@ -469,7 +469,7 @@ F read-move-blocking: routine failed to pause after hyphen 'a2-'] # 'read-move' still waiting for input wait-for-routine 2:number 3:number <- routine-state 2:number -#? $print [V: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [V: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/waiting? <- equal 3:number/routine-state, 2:literal/waiting assert 4:boolean/waiting?/routine-state, [ @@ -480,7 +480,7 @@ F read-move-blocking: routine failed to pause after rank 'a2-a'] # 'read-move' still waiting for input wait-for-routine 2:number 3:number <- routine-state 2:number -#? $print [VI: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [VI: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/waiting? <- equal 3:number/routine-state, 2:literal/waiting assert 4:boolean/waiting?, [ @@ -491,7 +491,7 @@ F read-move-blocking: routine failed to pause after file 'a2-a4'] # 'read-move' now completes wait-for-routine 2:number 3:number <- routine-state 2:number -#? $print [VII: routine ], 2:number, [ state ], 3:number [ #? 1 +#? $print [VII: routine ], 2:number, [ state ], 3:number [ #? ] #? 1 4:boolean/completed? <- equal 3:number/routine-state, 1:literal/completed assert 4:boolean/completed?, [ @@ -600,22 +600,22 @@ recipe make-move [ b:address:array:address:array:character <- next-ingredient m:address:move <- next-ingredient from-file:number <- get m:address:move/deref, from-file:offset -#? $print from-file:number, [ #? 1 +#? $print from-file:number, [ #? ] #? 1 from-rank:number <- get m:address:move/deref, from-rank:offset -#? $print from-rank:number, [ #? 1 +#? $print from-rank:number, [ #? ] #? 1 to-file:number <- get m:address:move/deref, to-file:offset -#? $print to-file:number, [ #? 1 +#? $print to-file:number, [ #? ] #? 1 to-rank:number <- get m:address:move/deref, to-rank:offset -#? $print to-rank:number, [ #? 1 +#? $print to-rank:number, [ #? ] #? 1 f:address:array:character <- index b:address:array:address:array:character/deref, from-file:number src:address:character/square <- index-address f:address:array:character/deref, from-rank:number f:address:array:character <- index b:address:array:address:array:character/deref, to-file:number dest:address:character/square <- index-address f:address:array:character/deref, to-rank:number -#? $print src:address:character/deref, [ #? 1 +#? $print src:address:character/deref, [ #? ] #? 1 dest:address:character/deref/square <- copy src:address:character/deref/square src:address:character/deref/square <- copy 32:literal # ' ' |