diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-05 10:44:14 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-05 10:44:14 -0700 |
| commit | ea1cfd5233b63cdd11bf7262728904e5ba045890 (patch) | |
| tree | 02b4fc784f480a1f19a5545e6d17b900748ee4e4 | |
| parent | e70ce4ba799702be17edda57c893a1d9037c8cd7 (diff) | |
| download | mu-ea1cfd5233b63cdd11bf7262728904e5ba045890.tar.gz | |
100
| -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*)) |