Simple CASE implementation.

2022-09-23 22:42:05 -07:00
parent c49bb6571e
commit 58f5cb249d
5 changed files with 77 additions and 1 deletions
--- a/common/forth_namespace_tests.fs
+++ b/common/forth_namespace_tests.fs
@ -26,6 +26,13 @@ also internals
    >link
  repeat drop ;

+e: check-case
+  out: ENDOF 
+  out: OF 
+  out: ENDCASE 
+  out: CASE 
+;e
+
 e: check-locals
  out: +to 
  out: to 
@ -507,6 +514,7 @@ e: check-asm
 ;e

 e: check-phase2
+  check-case
  check-locals
  check-asm
  check-utils