diff options
Diffstat (limited to 'chessboard-retro.mu')
-rw-r--r-- | chessboard-retro.mu | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/chessboard-retro.mu b/chessboard-retro.mu index 9a04c1b8..9b3eab5c 100644 --- a/chessboard-retro.mu +++ b/chessboard-retro.mu @@ -18,7 +18,7 @@ N:literal P:literal _:literal _:literal _:literal _:literal p:literal n:literal R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal) ; assert(length(initial-position) == 64) -;? (print-primitive nil:literal/terminal (("list-length\n" literal))) +;? (print-primitive-to-host (("list-length\n" literal))) (len:integer <- list-length initial-position:list-address) (correct-length?:boolean <- equal len:integer 64:literal) (assert correct-length?:boolean "chessboard had incorrect size") @@ -29,7 +29,7 @@ (done?:boolean <- equal col:integer 8:literal) (break-if done?:boolean) ;? (print-primitive nil:literal/terminal col:integer) -;? (print-primitive nil:literal/terminal (("\n" literal))) +;? (print-primitive-to-host (("\n" literal))) (file:file-address-address <- index-address b:board-address/deref col:integer) (file:file-address-address/deref curr:list-address <- read-file curr:list-address) (col:integer <- add col:integer 1:literal) @@ -46,9 +46,9 @@ { begin (done?:boolean <- equal row:integer 8:literal) (break-if done?:boolean) -;? (print-primitive ((" " literal))) +;? (print-primitive-to-host ((" " literal))) ;? (print-primitive row:integer) -;? (print-primitive (("\n" literal))) +;? (print-primitive-to-host (("\n" literal))) (src:tagged-value-address <- list-value-address cursor:list-address) (dest:square-address <- index-address result:file-address/deref row:integer) (dest:square-address/deref <- get src:tagged-value-address/deref payload:offset) ; unsafe typecast @@ -75,18 +75,18 @@ (f:file-address <- index b:board-address/deref col:integer) (s:square <- index f:file-address/deref row:integer) (print-primitive nil:literal/terminal s:square) - (print-primitive nil:literal/terminal ((" " literal))) + (print-primitive-to-host ((" " literal))) (col:integer <- add col:integer 1:literal) (loop) } - (print-primitive nil:literal/terminal (("\n" literal))) + (print-primitive-to-host (("\n" literal))) (row:integer <- subtract row:integer 1:literal) (loop) } ]) (function main [ -;? (print-primitive (("\u2654 \u265a" literal))) +;? (print-primitive-to-host (("\u2654 \u265a" literal))) (default-space:space-address <- new space:literal 30:literal) (b:board-address <- read-board) (print-board b:board-address) |