[comp.lang.forth] Named

UNBCIC@BRFAPESP.BITNET (01/19/91)

: 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...