fix implementation of ABORT, ABORT" and QUIT

This commit is contained in:
2021-11-27 15:55:12 +01:00
parent 002c9cb100
commit 56ab10f6c8
15 changed files with 331 additions and 28 deletions
+4
View File
@@ -0,0 +1,4 @@
: foo abort" Aborting!" ." Did not abort" ;
1 foo
0 foo
+1
View File
@@ -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" ;