From 16a835772f1f744406709c05467ca5b6581825b1 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 12 Mar 2015 16:48:25 -0700
Subject: 893 - trying to take traces of chessboard app

---
 chessboard.mu | 7 ++++++-
 mu.arc        | 1 +
 2 files changed, 7 insertions(+), 1 deletion(-)

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*)
-- 
cgit 1.4.1-2-gfad0