steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Encodings fix

db4
Slava Pestov 2008-02-01 16:21:42 -06:00
parent 9546aaaaf8
commit 27ebd08b99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/encodings/encodings.factor
View File

@ -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