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

[factor.git] / basis / alien / parser / parser.factor

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 63d0377e29d42e1d8b5c7c3aa260d4be244eefb9..e3c33a3ba08f5a58b956f55868947a72f15e6d53 100755 (executable)
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -171,7 +171,7 @@ PREDICATE: alien-function-word < alien-function-alias-word
     [ def>> third ] [ name>> ] bi = ;
 
 PREDICATE: alien-callback-type-word < typedef-word
-    "callback-effect" word-prop ;
+    "callback-effect" word-prop >boolean ;
 
 : global-quot ( type word -- quot )
     swap [ name>> current-library get ] dip