Re: QUIT and ABORT

On 4/05/2025 11:33 pm, Anton Ertl wrote:

...
Here's the code I give to the Forth systems:
 
1 .( a ) cr -56 throw .( b )
.s
2 .( a ) cr quit .( b )
.s
: foo 3 -56 throw ; ' foo catch 5
.s
: bar 4 quit ; ' bar catch 6
.s
 
Let's see what different Forth systems do:
...

In DX-Forth QUIT is not CATCHable thus -56 THROW simply returns:

  a
    THROW #-56

However modifying it to do so gives these results:

1 .( a ) cr -56 throw .( b )

  'a' is displayed and the stack is: 1

2 .( a ) cr quit .( b )

  'a' is displayed and the stack is: 2

: foo 3 -56 throw ; ' foo catch 5

  stack is: -56 5

: bar 4 quit ; ' bar catch 6

  stack is: -56 6