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*)