From ac29c6a10ca072ec1a5d7f67777becfdeead1e44 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 14 Jan 2015 20:21:52 -0800
Subject: 565

Reduce printing primitives before I start messing with fake versions.
---
 mu.arc | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/mu.arc b/mu.arc
index 7ac07295..628626e8 100644
--- a/mu.arc
+++ b/mu.arc
@@ -642,14 +642,16 @@
                     (die (v arg.1)))  ; other routines will be able to look at the error status
 
                 ; cursor-based (text mode) interaction
+                cursor-mode
+                  (do1 nil (if (no ($.current-charterm)) ($.open-charterm)))
+                retro-mode
+                  (do1 nil (if ($.current-charterm) ($.close-charterm)))
                 clear-screen
                   (do1 nil
                     (if ($.current-charterm)
                           ($.charterm-clear-screen)
                         ($.graphics-open?)
                           ($.clear-viewport Viewport)))
-                clear-line
-                  (do1 nil ($.charterm-clear-line))
                 cursor
                   (do1 nil ($.charterm-cursor (m arg.0) (m arg.1)))
                 cursor-to-next-line
@@ -666,14 +668,6 @@
                         ($.charterm-read-key)
                       ($.graphics-open?)
                         ($.get-key-press Viewport))
-                bold-mode
-                  (do1 nil ($.charterm-bold))
-                non-bold-mode
-                  (do1 nil ($.charterm-normal))
-                cursor-mode
-                  (do1 nil (if (no ($.current-charterm)) ($.open-charterm)))
-                retro-mode
-                  (do1 nil (if ($.current-charterm) ($.close-charterm)))
 
                 ; graphics
                 window-on
-- 
cgit 1.4.1-2-gfad0