diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-15 21:59:35 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-15 21:59:35 -0800 |
| commit | 732964befbe605be6c697edcf21aa06afaf5b800 (patch) | |
| tree | eb9631b35163abbac53fe6fb1aeaef915675578f | |
| parent | 0d2c3387c59b039ce2dc58ad4545feb04ddc4de4 (diff) | |
| download | mu-732964befbe605be6c697edcf21aa06afaf5b800.tar.gz | |
572
| -rw-r--r-- | chessboard-cursor.mu | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/chessboard-cursor.mu b/chessboard-cursor.mu index 4c025cff..5ccfacb8 100644 --- a/chessboard-cursor.mu +++ b/chessboard-cursor.mu @@ -9,14 +9,7 @@ (function init-board [ (default-space:space-address <- new space:literal 30:literal) - (initial-position:list-address <- init-list R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal - N:literal P:literal _:literal _:literal _:literal _:literal p:literal n:literal - B:literal P:literal _:literal _:literal _:literal _:literal p:literal b:literal - Q:literal P:literal _:literal _:literal _:literal _:literal p:literal q:literal - K:literal P:literal _:literal _:literal _:literal _:literal p:literal k:literal - B:literal P:literal _:literal _:literal _:literal _:literal p:literal b:literal - N:literal P:literal _:literal _:literal _:literal _:literal p:literal n:literal - R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal) + (initial-position:list-address <- next-input) ; assert(length(initial-position) == 64) (len:integer <- list-length initial-position:list-address) (correct-length?:boolean <- equal len:integer 64:literal) @@ -213,7 +206,15 @@ (function main [ (default-space:space-address <- new space:literal 30:literal) - (b:board-address <- init-board) + (initial-position:list-address <- init-list R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal + N:literal P:literal _:literal _:literal _:literal _:literal p:literal n:literal + B:literal P:literal _:literal _:literal _:literal _:literal p:literal b:literal + Q:literal P:literal _:literal _:literal _:literal _:literal p:literal q:literal + K:literal P:literal _:literal _:literal _:literal _:literal p:literal k:literal + B:literal P:literal _:literal _:literal _:literal _:literal p:literal b:literal + N:literal P:literal _:literal _:literal _:literal _:literal p:literal n:literal + R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal) + (b:board-address <- init-board initial-position:list-address) (cursor-mode) ; hook up stdin (1:channel-address/raw <- init-channel 1:literal) |