Fix bootstrap error

2008-06-12 05:13:42 -05:00 · 2008-06-12 05:13:42 -05:00 · 03553d2bee
parent 8e4b1c2858
commit 03553d2bee
1 changed files with 2 additions and 1 deletions
--- a/extra/io/buffers/buffers.factor
+++ b/extra/io/buffers/buffers.factor
@ -89,7 +89,8 @@ HINTS: byte>buffer fixnum buffer ;
        over buffer-read
        swap buffer-pop
    ] [
-        buffer>> f
+        [ buffer-length ] keep
+        buffer-read f
    ] if* ;

 : buffer-until ( separators buffer -- byte-array separator )