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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/bootstrap/image/image.factor
View File

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