io.ports: clean up

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 55fb9c348eedd4d58c23ce724665815ff857fc7c..6b60ee2133468e53cba0a140727972b47150e858 100644 (file)
--- 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