From 732964befbe605be6c697edcf21aa06afaf5b800 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 15 Jan 2015 21:59:35 -0800 Subject: 572 --- chessboard-cursor.mu | 19 ++++++++++--------- 1 file 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) -- cgit 1.4.1-2-gfad0