From 033085a68369e6b5a28ef88f927ba83c251e56b7 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 13 Mar 2008 22:11:10 -0500 Subject: [PATCH] Fix inference.class regression --- core/bootstrap/primitives.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor index 9a903d90cd..b900b2fd49 100755 --- 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 ;