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 the the IF word is consuming the exception code and not the
flag.
How about
: ?THROW ( flag exc -- )
SWAP IF THROW THEN DROP ;
Greetings
Rafael
------------------------------------------------------------------------------
Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel
