Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!sdd.hp.com!ucsd!ucbvax!BRFAPESP.BITNET!UNBCIC
From: UNBCIC@BRFAPESP.BITNET
Newsgroups: comp.lang.forth
Subject: Named (tagged?) Catch
Message-ID: <9101190334.AA26955@ucbvax.Berkeley.EDU>
Date: 18 Jan 91 20:22:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: UNBCIC%BRFAPESP.BITNET@SCFVM.GSFC.NASA.GOV
Organization: The Internet
Lines: 17

: NCATCH ( cfa errno -- errno/0 )
  >R CATCH ( cfa errno -- retcode )
  R> OVER - ( retcode -- retcode errno=retcode )
  OVER AND IF ( retcode flag -- retcode )
           THROW
           THEN
;

     As for the tradeoffs, Mitch Bradley's answer says everything.
~r
                              (8-DCS)
Daniel C. Sobral
UNBCIC@BRFAPESP

P.S.: Anyway, with the above code we have something similar to SETJMP.H C
library, but not SIGNAL.H. A generic Catch would provide both features in one.
See, SIGNAL.H can be implemented with SETJMP.H...