Fix make-image

db4
Slava Pestov 2009-01-26 04:51:59 -06:00
parent 2c4f6ffd79
commit c440b889ea
1 changed files with 2 additions and 2 deletions

View File

@ -8,7 +8,7 @@ vectors words quotations assocs system layouts splitting
grouping growable classes classes.builtin classes.tuple
classes.tuple.private words.private vocabs
vocabs.loader source-files definitions debugger
quotations.private sequences.private combinators combinators.smart
quotations.private sequences.private combinators
math.order math.private accessors
slots.private compiler.units fry ;
IN: bootstrap.image
@ -95,7 +95,7 @@ SYMBOL: objects
SYMBOL: sub-primitives
: make-jit ( quot rc rt offset -- quad )
[ [ { } make ] 3dip ] output>array ; inline
[ { } make ] 3dip 4array ; inline
: jit-define ( quot rc rt offset name -- )
[ make-jit ] dip set ; inline