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

   1 USING: compiler.units words vocabs kernel threads.private ;
   2 IN: debugger
   3
   4 : consume ( error -- )
   5     #! We don't want DCE to drop the error before the die call!
   6     drop ;
   7
   8 : print-error ( error -- ) die consume ;
   9
  10 : error. ( error -- ) die consume ;
  11
  12 "threads" vocab [
  13     [
  14         "error-in-thread" "threads" lookup
  15         [ die 2drop ]
  16         define
  17     ] with-compilation-unit
  18 ] when