diff options
| -rw-r--r-- | 070text.mu | 4 | ||||
| -rw-r--r-- | 072channel.mu | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/070text.mu b/070text.mu index 386fee22..1e1999c7 100644 --- a/070text.mu +++ b/070text.mu @@ -193,7 +193,7 @@ def append in:address:shared:buffer, c:character -> in:address:shared:buffer [ empty?:boolean <- lesser-or-equal len, 0 return-if empty? len <- subtract len, 1 - put *in, length:offset, len + *in <- put *in, length:offset, len return } { @@ -206,7 +206,7 @@ def append in:address:shared:buffer, c:character -> in:address:shared:buffer [ dest:address:character <- index-address *s, len *dest <- copy c len <- add len, 1 - put *in, length:offset, len + *in <- put *in, length:offset, len ] scenario buffer-append-works [ diff --git a/072channel.mu b/072channel.mu index 25956af9..5fcbc98d 100644 --- a/072channel.mu +++ b/072channel.mu @@ -84,7 +84,7 @@ def write out:address:shared:sink:_elem, val:_elem -> out:address:shared:sink:_e free <- copy 0 } # write back - put *chan, first-free:offset, free + *chan <- put *chan, first-free:offset, free ] def read in:address:shared:source:_elem -> result:_elem, in:address:shared:source:_elem [ @@ -113,7 +113,7 @@ def read in:address:shared:source:_elem -> result:_elem, in:address:shared:sourc full <- copy 0 } # write back - put *chan, first-full:offset, full + *chan <- put *chan, first-full:offset, full ] def clear in:address:shared:source:_elem -> in:address:shared:source:_elem [ @@ -312,7 +312,7 @@ def buffer-lines in:address:shared:source:character, buffered-out:address:shared buffer-empty?:boolean <- equal buffer-length, 0 break-if buffer-empty? buffer-length <- subtract buffer-length, 1 - put *line, length:offset, buffer-length + *line <- put *line, length:offset, buffer-length } # and don't append this one loop +next-character:label |