diff options
-rw-r--r-- | edit.mu | 2 | ||||
-rw-r--r-- | 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*)) |