Merge branch 'master' of git://factorcode.org/git/factor
commit
36bed1faab
|
@ -18,7 +18,7 @@ SYMBOL: begin
|
||||||
over push 0 begin ;
|
over push 0 begin ;
|
||||||
|
|
||||||
: finish-decoding ( buf ch state -- str )
|
: finish-decoding ( buf ch state -- str )
|
||||||
begin eq? [ decode-error ] unless drop { } like ;
|
begin eq? [ decode-error ] unless drop "" like ;
|
||||||
|
|
||||||
: decode ( seq quot -- str )
|
: decode ( seq quot -- str )
|
||||||
>r [ length <sbuf> 0 begin ] keep r> each
|
>r [ length <sbuf> 0 begin ] keep r> each
|
||||||
|
|
Loading…
Reference in New Issue