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

USING: compiler.units words vocabs kernel threads.private ;
IN: debugger

: consume ( error -- )
    #! We don't want DCE to drop the error before the die call!
    drop ;

: print-error ( error -- ) die consume ;

: error. ( error -- ) die consume ;

"threads" vocab [
    [
        "error-in-thread" "threads" lookup
        [ [ die 2drop ] define ] [ f "combination" set-word-prop ] bi
    ] with-compilation-unit
] when
Tree shaker no longer loads threads into threadless images; 77kb improvement on hello-world size 2008-10-02 06:14:05 -04:00			`USING: compiler.units words vocabs kernel threads.private ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: debugger`

Pre-compute next-methods when deploying 2008-11-22 20:58:23 -05:00			`: consume ( error -- )`
			`#! We don't want DCE to drop the error before the die call!`
			`drop ;`
Improved deployment 2007-10-09 02:07:59 -04:00
Pre-compute next-methods when deploying 2008-11-22 20:58:23 -05:00			`: print-error ( error -- ) die consume ;`

			`: error. ( error -- ) die consume ;`
Deployment fixes; add unit test which ensures deploy images are not too large 2008-02-28 02:21:30 -05:00
Tree shaker no longer loads threads into threadless images; 77kb improvement on hello-world size 2008-10-02 06:14:05 -04:00			`"threads" vocab [`
			`[`
			`"error-in-thread" "threads" lookup`
tools.deploy: faster default method stripping 2009-08-22 20:26:56 -04:00			`[ [ die 2drop ] define ] [ f "combination" set-word-prop ] bi`
Tree shaker no longer loads threads into threadless images; 77kb improvement on hello-world size 2008-10-02 06:14:05 -04:00			`] with-compilation-unit`
			`] when`