Fixes

diff --git a/extra/io/mmap/mmap-tests.factor b/extra/io/mmap/mmap-tests.factor
index 0f3fec659b6efc65f176681bc2de5891d83c1f6d..a00f7cd92b38248bc8e734e51986d8b97036dea9 100755 (executable)
--- a/extra/io/mmap/mmap-tests.factor
+++ b/extra/io/mmap/mmap-tests.factor
@@ -1,5 +1,5 @@
 USING: io io.mmap io.files kernel tools.test continuations
-sequences io.encodings.ascii ;
+sequences io.encodings.ascii accessors ;
 IN: io.mmap.tests
 
 [ "mmap-test-file.txt" resource-path delete-file ] ignore-errors

diff --git a/extra/io/nonblocking/nonblocking.factor b/extra/io/nonblocking/nonblocking.factor
index 93e31696e9f5ee56047b37fa16d88634ad41c7b2..0e5a7642ecfd459c4beb357dc14e009200341ff3 100755 (executable)
--- a/extra/io/nonblocking/nonblocking.factor
+++ b/extra/io/nonblocking/nonblocking.factor
@@ -4,7 +4,7 @@ IN: io.nonblocking
 USING: math kernel io sequences io.buffers io.timeouts generic
 byte-vectors system io.streams.duplex io.encodings
 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
 64 1024 * default-buffer-size set-global

diff --git a/extra/io/unix/backend/backend.factor b/extra/io/unix/backend/backend.factor
index abaf3bb39ae263554bf7cc1e274ca3879239fa4f..a5e959ee374fe2abe7b4de121962d6d2478ee90c 100644 (file)
--- a/extra/io/unix/backend/backend.factor
+++ b/extra/io/unix/backend/backend.factor
@@ -128,9 +128,9 @@ M: unix cancel-io ( port -- )
 
 : refill ( port -- ? )
     #! Return f if there is a recoverable error
-    dup buffer-empty? [
+    dup buffer>> buffer-empty? [
         dup (refill)  dup 0 >= [
-            swap n>buffer t
+            swap buffer>> n>buffer t
         ] [
             drop defer-error
         ] if