basis: ERROR: changes.

[factor.git] / basis / io / ports / ports.factor

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 208e023e08348ae5f1df529d46769a4aa680d901..0ff1a1465a57f377638b478533cc340a1dd82407 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -45,7 +45,7 @@ M: input-port stream-read1
 ERROR: not-a-c-ptr object ;
 
 : check-c-ptr ( c-ptr -- c-ptr )
-    dup c-ptr? [ not-a-c-ptr ] unless ; inline
+    dup c-ptr? [ throw-not-a-c-ptr ] unless ; inline
 
 <PRIVATE