basis/tools/deploy/test/22/22.factor

   1 ! Copyright (C) 2011 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors continuations concurrency.mailboxes
   4 concurrency.messaging kernel system threads ;
   5 IN: tools.deploy.test.22
   6
   7 : linked-error-test ( -- )
   8     [ "Linked" throw ] "Test" spawn-linked drop
   9     [ receive drop 1 ] [ error>> "Linked" = 0 1 ? ] recover
  10     exit ;
  11
  12 MAIN: linked-error-test