fix implementation of ABORT, ABORT" and QUIT
This commit is contained in:
@@ -0,0 +1,4 @@
|
||||
: foo abort" Aborting!" ." Did not abort" ;
|
||||
|
||||
1 foo
|
||||
0 foo
|
||||
@@ -1712,6 +1712,7 @@ T{ CHAR " PARSE 4567 "DUP ROT ROT EVALUATE -> 5 4567 }T
|
||||
TESTING PARSE-NAME (Forth 2012)
|
||||
\ Adapted from the PARSE-NAME RfD tests
|
||||
|
||||
\ XXX this was missing from the test suite, added!
|
||||
: STR1 S" abcd" ;
|
||||
: STR2 S" abcde" ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user