diff options
| -rw-r--r-- | shell/cell.mu | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/shell/cell.mu b/shell/cell.mu index ada86a29..2bf114a8 100644 --- a/shell/cell.mu +++ b/shell/cell.mu @@ -299,6 +299,7 @@ fn array? _x: (addr cell) -> _/eax: boolean { } fn new-image _out-ah: (addr handle cell), in: (addr stream byte) { + rewind-stream in var out-ah/eax: (addr handle cell) <- copy _out-ah allocate out-ah var out/eax: (addr cell) <- lookup *out-ah |