From fb481a25224618be6e0a0d38ddff310a8094d3b9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 11 Apr 2008 14:38:25 -0500
Subject: [PATCH] Fixes

---
 extra/io/mmap/mmap-tests.factor         | 2 +-
 extra/io/nonblocking/nonblocking.factor | 2 +-
 extra/io/unix/backend/backend.factor    | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/extra/io/mmap/mmap-tests.factor b/extra/io/mmap/mmap-tests.factor
index 0f3fec659b..a00f7cd92b 100755
--- 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 93e31696e9..0e5a7642ec 100755
--- 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 abaf3bb39a..a5e959ee37 100644
--- 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