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

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

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

: error. ( error -- ) die drop ;

"threads" vocab [
    [
        "error-in-thread" "threads" lookup
        [ die 2drop ]
        define
    ] 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`

Bug fixes and cleanups 2008-06-11 03:58:38 -04:00			`: print-error ( error -- ) die drop ;`
Improved deployment 2007-10-09 02:07:59 -04:00
Bug fixes and cleanups 2008-06-11 03:58:38 -04:00			`: error. ( error -- ) die drop ;`
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`
			`[ die 2drop ]`
			`define`
			`] with-compilation-unit`
			`] when`