Fix inference.class regression

2008-03-13 22:11:10 -05:00 · 2008-03-13 22:11:10 -05:00 · 033085a683
parent 1289cfa8e3
commit 033085a683
1 changed files with 3 additions and 1 deletions
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@ -105,7 +105,9 @@ H{ } clone update-map set
    ] [ ] make ;

 : define-builtin-predicate ( class -- )
-    dup builtin-predicate-quot define-predicate ;
+    dup
+    dup builtin-predicate-quot define-predicate
+    predicate-word make-inline ;

 : lookup-type-number ( word -- n )
    global [ target-word ] bind type-number ;