482 - cleanup

Now chessboard is faster than in my super-late-bound language
(https://gist.github.com/akkartik/1291243). Reassuring.

1 files changed, 29 insertions, 29 deletions

diff --git a/chessboard-rawterm.mu b/chessboard-rawterm.mu
index 5493104a..cf74bea6 100644
--- a/chessboard-rawterm.mu
+++ b/chessboard-rawterm.mu
@@ -13,25 +13,25 @@
   ; assert(length(initial-position) == 64)
 ;?   (print-primitive (("list-length\n" literal)))
   (len:integer <- list-length initial-position:list-address)
-;?   (correct-length?:boolean <- equal len:integer 64:literal)
-;? ;?   (correct-length?:boolean <- equal len:integer 4:literal)
-;?   (assert correct-length?:boolean (("chessboard had incorrect size" literal)))
-;?   (b:board-address <- new board:literal 8:literal)
-;? ;?   (b:board-address <- new board:literal 2:literal)
-;?   (col:integer <- copy 0:literal)
-;?   (curr:list-address <- copy initial-position:list-address)
-;?   { begin
-;?     (done?:boolean <- equal col:integer 8:literal)
-;? ;?     (done?:boolean <- equal col:integer 2:literal)
-;?     (break-if done?:boolean)
-;? ;?     (print-primitive col:integer)
-;? ;?     (print-primitive (("\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)
-;?     (loop)
-;?   }
-;?   (reply b:board-address)
+  (correct-length?:boolean <- equal len:integer 64:literal)
+;?   (correct-length?:boolean <- equal len:integer 4:literal)
+  (assert correct-length?:boolean (("chessboard had incorrect size" literal)))
+  (b:board-address <- new board:literal 8:literal)
+;?   (b:board-address <- new board:literal 2:literal)
+  (col:integer <- copy 0:literal)
+  (curr:list-address <- copy initial-position:list-address)
+  { begin
+    (done?:boolean <- equal col:integer 8:literal)
+;?     (done?:boolean <- equal col:integer 2:literal)
+    (break-if done?:boolean)
+;?     (print-primitive col:integer)
+;?     (print-primitive (("\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)
+    (loop)
+  }
+  (reply b:board-address)
 ])
 
 (function read-file [
@@ -195,14 +195,14 @@
 ;?   (print-primitive (("\u2654 \u265a" literal)))
   (default-scope:scope-address <- new scope:literal 30:literal)
   (b:board-address <- read-board)
-;?   (console-on)
-;?   { begin
-;?     (clear-screen)
-;?     (print-board b:board-address)
-;?     (print-primitive (("? " literal)))
-;?     (m:move-address <- read-move)
-;?     (b:board-address <- make-move b:board-address m:move-address)
-;?     (loop)
-;?   }
-;?   (console-off)
+  (console-on)
+  { begin
+    (clear-screen)
+    (print-board b:board-address)
+    (print-primitive (("? " literal)))
+    (m:move-address <- read-move)
+    (b:board-address <- make-move b:board-address m:move-address)
+    (loop)
+  }
+  (console-off)
 ])