Fix bootstrap error

db4
Slava Pestov 2008-06-12 05:13:42 -05:00
parent 8e4b1c2858
commit 03553d2bee
1 changed files with 2 additions and 1 deletions

View File

@ -89,7 +89,8 @@ HINTS: byte>buffer fixnum buffer ;
over buffer-read over buffer-read
swap buffer-pop swap buffer-pop
] [ ] [
buffer>> f [ buffer-length ] keep
buffer-read f
] if* ; ] if* ;
: buffer-until ( separators buffer -- byte-array separator ) : buffer-until ( separators buffer -- byte-array separator )