diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 8 |
1 files changed, 6 insertions, 2 deletions
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*)) |