factor/basis/tools/deploy/shaker/strip-call.factor

! Copyright (C) 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.private kernel ;
IN: combinators

: call-effect ( word effect -- ) call-effect-unsafe ;

: 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
Re-organize code so that with-compilation-unit can infer Fix with-compilation-unit to work in deployed code 2009-03-13 20:39:32 -04:00			`! Copyright (C) 2009 Slava Pestov`
			`! See http://factorcode.org/license.txt for BSD license.`
tools.deploy.shaker: strip out call( and execute( runtime checking in a way that still allows the inlining optimization to work 2009-08-31 17:48:10 -04:00			`USING: combinators.private kernel ;`
Fixing the build 2009-03-18 18:01:26 -04:00			`IN: combinators`
Re-organize code so that with-compilation-unit can infer Fix with-compilation-unit to work in deployed code 2009-03-13 20:39:32 -04:00
tools.deploy.shaker: strip out call( and execute( runtime checking in a way that still allows the inlining optimization to work 2009-08-31 17:48:10 -04:00			`: call-effect ( word effect -- ) call-effect-unsafe ;`

			`: execute-effect ( word effect -- ) execute-effect-unsafe ;`

			`IN: compiler.tree.propagation.call-effect`

			`: call-effect-unsafe? ( quot effect -- ? ) 2drop t ; inline`
Various fixes for call( 2009-03-17 19:53:44 -04:00
tools.deploy.shaker: strip out call( and execute( runtime checking in a way that still allows the inlining optimization to work 2009-08-31 17:48:10 -04:00			`: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline`