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

Fixes

db4
Slava Pestov 2008-04-11 14:38:25 -05:00
parent 9e2135315c
commit fb481a2522
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/io/mmap/mmap-tests.factor
View File

@ -1,5 +1,5 @@
USING: io io.mmap io.files kernel tools.test continuations USING: io io.mmap io.files kernel tools.test continuations
sequences io.encodings.ascii ; sequences io.encodings.ascii accessors ;
IN: io.mmap.tests IN: io.mmap.tests
[ "mmap-test-file.txt" resource-path delete-file ] ignore-errors [ "mmap-test-file.txt" resource-path delete-file ] ignore-errors

2
extra/io/nonblocking/nonblocking.factor
View File

@ -4,7 +4,7 @@ IN: io.nonblocking
USING: math kernel io sequences io.buffers io.timeouts generic USING: math kernel io sequences io.buffers io.timeouts generic
byte-vectors system io.streams.duplex io.encodings byte-vectors system io.streams.duplex io.encodings
io.backend continuations debugger classes byte-arrays namespaces io.backend continuations debugger classes byte-arrays namespaces
splitting dlists assocs io.encodings.binary ; splitting dlists assocs io.encodings.binary accessors ;
SYMBOL: default-buffer-size SYMBOL: default-buffer-size
64 1024 * default-buffer-size set-global 64 1024 * default-buffer-size set-global

4
extra/io/unix/backend/backend.factor
View File

@ -128,9 +128,9 @@ M: unix cancel-io ( port -- )
: refill ( port -- ? ) : refill ( port -- ? )
#! Return f if there is a recoverable error #! Return f if there is a recoverable error
dup buffer-empty? [ dup buffer>> buffer-empty? [
dup (refill) dup 0 >= [ dup (refill) dup 0 >= [
swap n>buffer t swap buffer>> n>buffer t
] [ ] [
drop defer-error drop defer-error
] if ] if