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

Minor reorganization of stack-checker.call-effect

db4
Daniel Ehrenberg 2009-07-10 01:05:03 -05:00
parent 23b8f48267
commit 500c784bd7
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/stack-checker/call-effect/call-effect.factor
View File

@ -84,16 +84,16 @@ M: quotation cached-effect
[ drop call-effect-slow ] [ drop call-effect-slow ]
if ; inline if ; inline
\ call-effect [ : call-effect-ic ( quot effect inline-cache -- )
inline-cache new '[ 3dup nip cache-hit?
_ [ drop call-effect-unsafe ]
3dup nip cache-hit? [ [ call-effect-fast ]
drop call-effect-unsafe if ; inline
] [
call-effect-fast : call-effect>quot ( -- quot )
] if inline-cache new '[ _ call-effect-ic ] ;
]
] 0 define-transform \ call-effect [ call-effect>quot ] 0 define-transform
\ call-effect t "no-compile" set-word-prop \ call-effect t "no-compile" set-word-prop