diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-03-12 16:48:25 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-03-12 16:48:25 -0700 |
| commit | 16a835772f1f744406709c05467ca5b6581825b1 (patch) | |
| tree | ec780e87cb8f3f2b35756d8c8414581420f07899 | |
| parent | 6d33acfc4d1611d9086d08ecc2a193cb8b906255 (diff) | |
| download | mu-16a835772f1f744406709c05467ca5b6581825b1.tar.gz | |
893 - trying to take traces of chessboard app
| -rw-r--r-- | chessboard.mu | 7 | ||||
| -rw-r--r-- | mu.arc | 1 |
2 files changed, 7 insertions, 1 deletions
diff --git a/chessboard.mu b/chessboard.mu index 627df64f..7c0fc0c5 100644 --- a/chessboard.mu +++ b/chessboard.mu @@ -204,7 +204,7 @@ (reply b:board-address) ]) -(function main [ +(function chessboard [ (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)) @@ -245,6 +245,11 @@ (b:board-address <- make-move b:board-address m:move-address) (loop) } + (retro-mode) +]) + +(function main [ + (chessboard) ]) ; todo: diff --git a/mu.arc b/mu.arc index 69b7efe5..f6adb5e0 100644 --- a/mu.arc +++ b/mu.arc @@ -3151,6 +3151,7 @@ (when (no cdr.argv) (add-code:readfile "trace.mu") + (add-code:readfile "chessboard.mu") (freeze function*) (load-system-functions) (wipe interactive-commands*) |