diff options
-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) } ) |