diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-11 22:57:04 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-11 22:57:04 -0800 |
commit | 491f9d7eb21861707c2d6ede22a1f3176e205cfa (patch) | |
tree | aa3c49d8d9eacaaa2aaa01e2d70eadd321b9af7a | |
parent | bfdfcf74260485a8ce85a6522583dce948f28c60 (diff) | |
download | mu-491f9d7eb21861707c2d6ede22a1f3176e205cfa.tar.gz |
537
-rw-r--r-- | mu.arc | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/mu.arc b/mu.arc index 81f07f2c..a06f90eb 100644 --- a/mu.arc +++ b/mu.arc @@ -1869,13 +1869,8 @@ { begin (c:character <- read-key) (loop-unless c:character) -;? (print-primitive (("AAA " literal))) -;? (print-primitive c:character) (curr:tagged-value <- save-type c:character) (stdin:channel-address/deref <- write stdin:channel-address curr:tagged-value) -;? (print-primitive (("keyboard: stdin is " literal))) -;? (print-primitive stdin:channel-address) -;? (print-primitive (("\n" literal))) (loop) } ) |