Fix bootstrap error
parent
8e4b1c2858
commit
03553d2bee
|
@ -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 )
|
||||||
|
|
Loading…
Reference in New Issue