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