diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 13:00:39 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 13:00:39 -0700 |
commit | a0331a9b0eab63a000dcd022fe605d124c573b8d (patch) | |
tree | 5c7403d16fd8c9d31ead65495eae84edf9cfc2e4 /066stream.mu | |
parent | 760f683f2755038a1b0c16522f5001b889096aa5 (diff) | |
download | mu-a0331a9b0eab63a000dcd022fe605d124c573b8d.tar.gz |
3390
Diffstat (limited to '066stream.mu')
-rw-r--r-- | 066stream.mu | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/066stream.mu b/066stream.mu index e19e09a1..007fbdb3 100644 --- a/066stream.mu +++ b/066stream.mu @@ -1,10 +1,10 @@ # new type to help incrementally scan arrays container stream:_elem [ index:num - data:&:array:_elem + data:&:@:_elem ] -def new-stream s:&:array:_elem -> result:&:stream:_elem [ +def new-stream s:&:@:_elem -> result:&:stream:_elem [ local-scope load-ingredients result <- new {(stream _elem): type} @@ -23,7 +23,7 @@ def read in:&:stream:_elem -> result:_elem, empty?:bool, in:&:stream:_elem [ load-ingredients empty? <- copy 0/false idx:num <- get *in, index:offset - s:&:array:_elem <- get *in, data:offset + s:&:@:_elem <- get *in, data:offset len:num <- length *s at-end?:bool <- greater-or-equal idx len { @@ -41,7 +41,7 @@ def peek in:&:stream:_elem -> result:_elem, empty?:bool [ load-ingredients empty?:bool <- copy 0/false idx:num <- get *in, index:offset - s:&:array:_elem <- get *in, data:offset + s:&:@:_elem <- get *in, data:offset len:num <- length *s at-end?:bool <- greater-or-equal idx len { @@ -68,7 +68,7 @@ def end-of-stream? in:&:stream:_elem -> result:bool [ local-scope load-ingredients idx:num <- get *in, index:offset - s:&:array:_elem <- get *in, data:offset + s:&:@:_elem <- get *in, data:offset len:num <- length *s result <- greater-or-equal idx, len ] |