From 2289bb025fad370eef6a9092ad5586b6434d17ed Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 8 May 2015 09:02:50 -0700 Subject: [PATCH] 1310 --- arc/mu.arc | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/arc/mu.arc b/arc/mu.arc index c79183d1..2aebd3d5 100644 --- a/arc/mu.arc +++ b/arc/mu.arc @@ -831,7 +831,7 @@ ) $dump-channel (do1 nil - ($.close-charterm) ;? 1 + ($.close-charterm) (withs (x (m arg.0) y (memory* (+ x 2))) (prn label.routine* " -- " x " -- " (list (memory* x) @@ -842,7 +842,7 @@ (repr:memory* (+ y 2)) (memory* (+ y 3)) (repr:memory* (+ y 4))))) - ($.open-charterm) ;? 1 + ($.open-charterm) ) $quit (quit) @@ -2640,15 +2640,15 @@ ;? (c:character <- copy ((#\newline literal))) ;? 1 ;? (curr:tagged-value <- save-type c:character) ;? 1 ;? (stdin:channel-address/deref <- write stdin:channel-address curr:tagged-value) ;? 1 - { begin ;? 1 - (c:character <- read-key k:keyboard-address) ;? 1 - (loop-unless c:character) ;? 1 - (curr:tagged-value <- save-type c:character) ;? 1 - (stdin:channel-address/deref <- write stdin:channel-address curr:tagged-value) ;? 1 - (eof?:boolean <- equal c:character ((#\null literal))) ;? 1 - (break-if eof?:boolean) ;? 1 - (loop) ;? 1 - } ;? 1 + { begin + (c:character <- read-key k:keyboard-address) + (loop-unless c:character) + (curr:tagged-value <- save-type c:character) + (stdin:channel-address/deref <- write stdin:channel-address curr:tagged-value) + (eof?:boolean <- equal c:character ((#\null literal))) + (break-if eof?:boolean) + (loop) + } ) ; collect characters until newline before sending out