Hi Matthias
Reviewing the file lib/ans94/core-ext/exceptions.frt
: ?throw ( f exc -- )
if throw then
;
: ?comp ( -- )
state @ 0= -&14 ?throw
;
: ?pairs ( n1 n2 -- )
- -&22 ?throw
;
I think that the definition of ?throw - as intended in ?comp and ?pairs - is
not correct, as
Hi Rafael,
> I think that the definition of ?throw - as intended in ?comp and ?pairs
> - is not correct, as the the IF word is consuming the exception code
> and not the flag.
>
> How about
>
> : ?THROW ( flag exc -- )
> SWAP IF THROW THEN DROP ;
>
You are right. Thank you, fix applied
