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

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

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