steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix inference.class regression

db4
Slava Pestov 2008-03-13 22:11:10 -05:00
parent 1289cfa8e3
commit 033085a683
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/bootstrap/primitives.factor
View File

@ -105,7 +105,9 @@ H{ } clone update-map set
] [ ] make ; ] [ ] make ;
: define-builtin-predicate ( class -- ) : 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 ) : lookup-type-number ( word -- n )
global [ target-word ] bind type-number ; global [ target-word ] bind type-number ;