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

   1 USING: compiler.units words vocabs kernel threads.private ;
   2 IN: debugger
   3
   4 : print-error ( error -- ) die drop ;
   5
   6 : error. ( error -- ) die drop ;
   7
   8 "threads" vocab [
   9     [
  10         "error-in-thread" "threads" lookup
  11         [ die 2drop ]
  12         define
  13     ] with-compilation-unit
  14 ] when