diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-28 14:33:22 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-28 14:33:22 -0700 |
commit | bc6436927640603675e2e700007f53c5ab213869 (patch) | |
tree | e8f76a871ac4118223e03015f32e6bd687a7bd49 /066stream.mu | |
parent | aa0888459fc2ca41b0ad6bef5bfa72223ca33945 (diff) | |
download | mu-bc6436927640603675e2e700007f53c5ab213869.tar.gz |
1868 - start using naked literals everywhere
First step to reducing typing burden. Next step: inferring types.
Diffstat (limited to '066stream.mu')
-rw-r--r-- | 066stream.mu | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/066stream.mu b/066stream.mu index 7bdf36a5..4c77319a 100644 --- a/066stream.mu +++ b/066stream.mu @@ -8,7 +8,7 @@ recipe new-stream [ local-scope result:address:stream <- new stream:type i:address:number <- get-address result:address:stream/deref, index:offset - i:address:number/deref <- copy 0:literal + i:address:number/deref <- copy 0 d:address:address:array:character <- get-address result:address:stream/deref, data:offset d:address:address:array:character/deref <- next-ingredient reply result:address:stream @@ -18,7 +18,7 @@ recipe rewind-stream [ local-scope in:address:stream <- next-ingredient x:address:number <- get-address in:address:stream/deref, index:offset - x:address:number/deref <- copy 0:literal + x:address:number/deref <- copy 0 reply in:address:stream/same-as-arg:0 ] @@ -27,9 +27,9 @@ recipe read-line [ in:address:stream <- next-ingredient idx:address:number <- get-address in:address:stream/deref, index:offset s:address:array:character <- get in:address:stream/deref, data:offset - next-idx:number <- find-next s:address:array:character, 10:literal/newline, idx:address:number/deref + next-idx:number <- find-next s:address:array:character, 10/newline, idx:address:number/deref result:address:array:character <- string-copy s:address:array:character, idx:address:number/deref, next-idx:number - idx:address:number/deref <- add next-idx:number, 1:literal # skip newline + idx:address:number/deref <- add next-idx:number, 1 # skip newline reply result:address:array:character ] |