add case/endcase of/endof

1 files changed, 6 insertions, 0 deletions

diff --git a/core.fth b/core.fth
index fd073a8..c5b80b6 100644
--- a/core.fth
+++ b/core.fth
@@ -236,3 +236,9 @@
 : evaluate _source @ >r _sourceu @ >r >in @ >r
            0 >in ! _sourceu ! _source ! 5 sys
            r> >in ! r> _sourceu ! r> _source ! ;
+
+: case     ['] _lit , 1 here 0 , ['] drop , ; imm
+: of       ['] over , ['] = , postpone if ; imm
+: endof    ['] _jmp , here >r 0 , postpone then
+           swap 1+ swap r> tuck ! ; imm
+: endcase  swap 0 do dup @ swap here swap ! loop drop ['] drop , ; imm