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

Little changes for encodings

db4
Daniel Ehrenberg 2008-02-21 19:09:53 -06:00
parent 8249ce2116
commit 1b80c453fd
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -92,17 +92,17 @@ M: decoded stream-read
M: decoded stream-read-partial stream-read ; M: decoded stream-read-partial stream-read ;
: read-until-loop ( stream delim -- ch ) : decoded-read-until ( stream delim -- ch )
! Copied from { c-reader stream-read-until }!!! ! Copied from { c-reader stream-read-until }!!!
over stream-read1 dup [ over stream-read1 dup [
dup pick memq? [ 2nip ] [ , read-until-loop ] if dup pick memq? [ 2nip ] [ , decoded-read-until ] if
] [ ] [
2nip 2nip
] if ; ] if ;
M: decoded stream-read-until M: decoded stream-read-until
! Copied from { c-reader stream-read-until }!!! ! Copied from { c-reader stream-read-until }!!!
[ swap read-until-loop ] "" make [ swap decoded-read-until ] "" make
swap over empty? over not and [ 2drop f f ] when ; swap over empty? over not and [ 2drop f f ] when ;
: fix-read1 ( stream char -- char ) : fix-read1 ( stream char -- char )

2
extra/io/unix/sockets/sockets.factor
View File

@ -48,7 +48,7 @@ M: unix-io (client) ( addrspec -- stream )
dup r> r> connect dup r> r> connect
zero? err_no EINPROGRESS = or [ zero? err_no EINPROGRESS = or [
dup init-client-socket dup init-client-socket
dup handle>duplex-stream dup f handle>duplex-stream
dup duplex-stream-out dup duplex-stream-out
dup wait-to-connect dup wait-to-connect
pending-init-error pending-init-error