7115

2 files changed, 6 insertions, 6 deletions

diff --git a/apps/tile/gap-buffer.mu b/apps/tile/gap-buffer.mu
index cfd3d02d..07ce68a3 100644
--- a/apps/tile/gap-buffer.mu
+++ b/apps/tile/gap-buffer.mu
@@ -31,7 +31,7 @@ fn gap-buffer-to-string self: (addr gap-buffer), out: (addr handle array byte) {
   var s-storage: (stream byte 0x100)
   var s/ecx: (addr stream byte) <- address s-storage
   emit-gap-buffer self, s
-  stream-to-string s, out
+  stream-to-array s, out
 }
 
 fn emit-gap-buffer _self: (addr gap-buffer), out: (addr stream byte) {
diff --git a/apps/tile/rpn.mu b/apps/tile/rpn.mu
index fcfb25be..641350a6 100644
--- a/apps/tile/rpn.mu
+++ b/apps/tile/rpn.mu
@@ -161,7 +161,7 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch:
         var s-addr/ecx: (addr stream byte) <- address s
         read-line-buffered file, s-addr
         var target/eax: (addr handle array byte) <- get target-val, text-data
-        stream-to-string s-addr, target
+        stream-to-array s-addr, target
         # save result into target-val
         var type-addr/eax: (addr int) <- get target-val, type
         copy-to *type-addr, 1  # string
@@ -192,7 +192,7 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch:
         # create binding from curr-stream to target-val
         var key-h: (handle array byte)
         var key/ecx: (addr handle array byte) <- address key-h
-        stream-to-string curr-stream, key
+        stream-to-array curr-stream, key
         bind-in-table bindings, key, target-val
         # process next line if necessary
         var line/eax: (addr line) <- copy scratch
@@ -275,7 +275,7 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch:
         break-if-=
         var tmp: (handle array byte)
         var curr-string-ah/edx: (addr handle array byte) <- address tmp
-        stream-to-string curr-stream, curr-string-ah  # unfortunate leak
+        stream-to-array curr-stream, curr-string-ah  # unfortunate leak
         var curr-string/eax: (addr array byte) <- lookup *curr-string-ah
         var val-storage: (handle value)
         var val-ah/edi: (addr handle value) <- address val-storage
@@ -296,7 +296,7 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch:
         break-if-!=
         var h: (handle array byte)
         var s/eax: (addr handle array byte) <- address h
-        unquote-stream-to-string curr-stream, s  # leak
+        unquote-stream-to-array curr-stream, s  # leak
         push-string-to-value-stack out, *s
         break $evaluate:process-word
       }
@@ -311,7 +311,7 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch:
         # wastefully create a new input string to strip quotes
         var h: (handle array value)
         var input-ah/eax: (addr handle array byte) <- address h
-        unquote-stream-to-string curr-stream, input-ah  # leak
+        unquote-stream-to-array curr-stream, input-ah  # leak
         # wastefully parse input into int-array
         # TODO: support parsing arrays of other types
         var input/eax: (addr array byte) <- lookup *input-ah