io.ports: clean up

2011-11-10 00:39:21 -05:00 · 2011-11-10 00:39:21 -05:00 · 5921431a7c
parent a25fd29d34
commit 5921431a7c
1 changed files with 2 additions and 1 deletions
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@ -51,7 +51,8 @@ M: input-port stream-read1
        { [ over 0 = ] [ 2drop 0 f ] }
        { [ dup wait-to-read ] [ 2drop 0 f ] }
        [ buffer>> buffer-read-unsafe ]
-    } cond ; inline
+    } cond
+    { fixnum c-ptr } declare ; inline

 : prepare-read ( count stream -- count stream )
    dup check-disposed [ 0 max >fixnum ] dip ; inline