diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-25 21:24:13 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-25 21:24:13 -0800 |
| commit | 5b698455793a6bee2bacab1a646f73c9c49a75ee (patch) | |
| tree | 85404eefa2a9f198029bf21ae78ba8fbe36c97ab /buffered-stdin.mu | |
| parent | 4f686be1ebb6713933298531531fbef0898c6b2b (diff) | |
| download | mu-5b698455793a6bee2bacab1a646f73c9c49a75ee.tar.gz | |
624 - no, that's all wrong, scratch 623
Diffstat (limited to 'buffered-stdin.mu')
| -rw-r--r-- | buffered-stdin.mu | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/buffered-stdin.mu b/buffered-stdin.mu index 2e437b4e..3f4030b9 100644 --- a/buffered-stdin.mu +++ b/buffered-stdin.mu @@ -15,7 +15,7 @@ (s:string-address <- new "? ") (print-string nil:literal/terminal s:string-address) { begin - (x:tagged-value buffered-stdin:channel-address/deref/nochange <- read buffered-stdin:channel-address) + (x:tagged-value buffered-stdin:channel-address/deref <- read buffered-stdin:channel-address) (c:character <- maybe-coerce x:tagged-value character:literal) ;? (print-primitive-to-host (("AAA " literal))) ;? 1 ;? (print-primitive-to-host c:character) ;? 1 |