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

tools.deploy.shaker: strip out call( and execute( runtime checking in a way that still allows the inlining optimization to work

db4
Slava Pestov 2009-08-31 16:48:10 -05:00
parent 23f34febbb
commit 94c89e55e6
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/tools/deploy/shaker/strip-call.factor
View File

@ -1,10 +1,14 @@
! Copyright (C) 2009 Slava Pestov ! Copyright (C) 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: tools.deploy.shaker.call USING: combinators.private kernel ;
IN: combinators IN: combinators
USE: combinators.private
: call-effect ( word effect -- ) call-effect-unsafe ; inline : call-effect ( word effect -- ) call-effect-unsafe ;
: execute-effect ( word effect -- ) execute-effect-unsafe ; inline : execute-effect ( word effect -- ) execute-effect-unsafe ;
IN: compiler.tree.propagation.call-effect
: call-effect-unsafe? ( quot effect -- ? ) 2drop t ; inline
: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline