diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-24 22:23:21 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-24 22:23:21 -0800 |
| commit | f54e4ea68a3704ea5dbdff9e3d4b2b89c6f244eb (patch) | |
| tree | 9868df93db78552abc9c4267a757fe48e66c7821 | |
| parent | 71500e1a5609dcb3b1344ee584de3cae883db45f (diff) | |
| download | mu-f54e4ea68a3704ea5dbdff9e3d4b2b89c6f244eb.tar.gz | |
608
| -rw-r--r-- | mu.arc | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index 72869336..bd0e61e0 100644 --- a/mu.arc +++ b/mu.arc @@ -668,14 +668,13 @@ print-primitive-to-host (do1 nil ;? (write (m arg.0)) (pr " => ") (prn (type (m arg.0))) - (when (no ($.current-charterm)) + (if (no ($.current-charterm)) (pr (m arg.0))) - (when ($.current-charterm) (caselet x (m arg.0) #\newline ($.charterm-newline) ;else - ($.charterm-display x))) + ($.charterm-display x)) ) read-key-from-host (if ($.current-charterm) |