From ea1cfd5233b63cdd11bf7262728904e5ba045890 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 5 Oct 2014 10:44:14 -0700
Subject: 100

---
 edit.mu | 2 +-
 mu.arc  | 8 ++++++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/edit.mu b/edit.mu
index 5d2e3fa8..a80878f9 100644
--- a/edit.mu
+++ b/edit.mu
@@ -9,7 +9,7 @@
   (cursor (1 literal) (1 literal))
   (print ("Press a key..." literal))
   ((key string) <- getc)
-  (cll)
+  (console-off)
   (print ("You pressed: " literal))
   (print (key string))
   (print ("\n" literal))
diff --git a/mu.arc b/mu.arc
index 57c69d1f..236aff9d 100644
--- a/mu.arc
+++ b/mu.arc
@@ -314,13 +314,17 @@
                 cursor
                   (do1 nil ($.charterm-cursor (m arg.0) (m arg.1)))
                 print
-                  (do1 nil ($.charterm-display (m arg.0)))
+                  (do1 nil ((if ($.current-charterm) $.charterm-display pr) (m arg.0)))
                 getc
                   ($.charterm-read-key)
                 bold-mode
                   (do1 nil ($.charterm-bold))
                 non-bold-mode
                   (do1 nil ($.charterm-normal))
+                console-on
+                  (do1 nil (if ($.current-charterm) ($.open-charterm)))
+                console-off
+                  (do1 nil (if ($.current-charterm) ($.close-charterm)))
 
                 reply
                   (do (pop-stack context)
@@ -457,5 +461,5 @@
   (map add-fns:readfile it)
   ($.open-charterm)
   (run 'main)
-  ($.close-charterm)
+  (if ($.current-charterm) ($.close-charterm))
   (prn memory*))
-- 
cgit 1.4.1-2-gfad0