basis: ERROR: changes.

[factor.git] / basis / alien / c-types / c-types.factor

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index 4e0e4c111f97e41a8b7409e03c35fd2f378ad52a..710c918604104a06b663d1c93b4f623b8d202bf3 100644 (file)
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -55,12 +55,12 @@ UNION: c-type-name
     c-type-word pointer ;
 
 : resolve-typedef ( name -- c-type )
-    dup void? [ no-c-type ] when
+    dup void? [ throw-no-c-type ] when
     dup c-type-name? [ lookup-c-type ] when ;
 
 M: word lookup-c-type
     dup "c-type" word-prop resolve-typedef
-    [ ] [ no-c-type ] ?if ;
+    [ ] [ throw-no-c-type ] ?if ;
 
 GENERIC: c-type-class ( name -- class )