From 812b5393556341740307ba29b7538cd9e56f7a47 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 24 Jan 2015 23:00:22 -0800
Subject: 610 - all examples working again

---
 chessboard-cursor.mu | 3 ---
 mu.arc               | 6 +++---
 stdin.mu             | 1 -
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/chessboard-cursor.mu b/chessboard-cursor.mu
index 412a555a..3f593fbe 100644
--- a/chessboard-cursor.mu
+++ b/chessboard-cursor.mu
@@ -132,7 +132,6 @@
   (a:character <- copy ((#\a literal)))
   (file-base:integer <- character-to-integer a:character)
   (c:character <- maybe-coerce x:tagged-value character:literal)
-  (print-character screen:terminal-address c:character)
   { begin
     (quit:boolean <- equal c:character ((#\q literal)))
     (break-unless quit:boolean)
@@ -154,7 +153,6 @@
   (screen:terminal-address <- next-input)
   (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address)
   (c:character <- maybe-coerce x:tagged-value character:literal)
-  (print-character screen:terminal-address c:character)
   { begin
     (quit:boolean <- equal c:character ((#\q literal)))
     (break-unless quit:boolean)
@@ -179,7 +177,6 @@
   ; slurp hyphen
   (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address)
   (c:character <- maybe-coerce x:tagged-value character:literal)
-  (print-character screen:terminal-address c:character)
   (expected:character <- next-input)
   (match?:boolean <- equal c:character expected:character)
   (assert match?:boolean (("expected character not found" literal)))
diff --git a/mu.arc b/mu.arc
index 3e95a0a4..bd998aa2 100644
--- a/mu.arc
+++ b/mu.arc
@@ -669,12 +669,12 @@
                   (do1 nil
 ;?                        (write (m arg.0))  (pr " => ")  (prn (type (m arg.0)))
                        (if (no ($.current-charterm))
-                         (pr (m arg.0)))
+                         (pr (m arg.0))
                          (caselet x (m arg.0)
                            #\newline
                              ($.charterm-newline)
                            ;else
-                             ($.charterm-display x))
+                             ($.charterm-display x)))
                        )
                 read-key-from-host
                   (if ($.current-charterm)
@@ -2329,7 +2329,7 @@
 ;?   (= dump-trace* (obj whitelist '("run")))
 ;?   (= dump-trace* (obj whitelist '("schedule")))
 ;?   (= dump-trace* (obj whitelist '("cn0" "cn1")))
-;?   (set dump-trace*)
+;?   (set dump-trace*) ;? 0
 ;?   (freeze function*)
 ;?   (prn function*!factorial)
   (run 'main)
diff --git a/stdin.mu b/stdin.mu
index 088ec1b0..4ffded52 100644
--- a/stdin.mu
+++ b/stdin.mu
@@ -23,7 +23,6 @@
 ;?     (print-primitive-to-host c:character)
     (done?:boolean <- equal c:character ((#\q literal)))
     (break-if done?:boolean)
-    (print-character nil:literal/terminal c:character)
     (loop)
   }
 ])
-- 
cgit 1.4.1-2-gfad0