make some predicates return t/f instead of something/f.

[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 4783be9ce1e95d116eae5b3c0fdadc8e9c8f2110..4f435c93d006882a0d7b8536cc370cfd2ba4fcdd 100644 (file)
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -45,7 +45,7 @@ M: no-c-type summary drop "Not a C type" ;
 GENERIC: lookup-c-type ( name -- c-type ) foldable
 
 PREDICATE: c-type-word < word
-    "c-type" word-prop ;
+    "c-type" word-prop >boolean ;
 
 TUPLE: pointer { to initial: void read-only } ;
 C: <pointer> pointer