case stuff

one of the tests is broken. i'm not entirely sure what the issue is yet

1 files changed, 16 insertions, 0 deletions

diff --git a/sanctuary.fs b/sanctuary.fs
index 7d2c88d..ac71042 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -51,6 +51,12 @@
 	else >body [compile] literal ['] compile, compile, then ; immediate compile-only
 
 \ todo doc
+: case  0 ; immediate
+: of  postpone over postpone = postpone if postpone drop ; immediate
+: endof  postpone else ; immediate
+: endcase  postpone drop  begin ?dup while postpone then repeat ; immediate
+
+\ todo doc
 : recurse latest @ >body compile, ; immediate
 
 : cells  8 * ;
@@ -594,6 +600,16 @@ decimal
 : words  get-order 0 ?do vlist loop ;
 \ }}}
 
+\ TERMINAL CONTROL {{{
+vocabulary terminal
+also terminal definitions
+
+60 constant termios#
+create termios termios# allot
+
+previous definitions
+\ }}}
+
 \ todo doc
 0 constant version
 : welcome  ." sanctuary: a 64 bit forth for linux, version " version u. cr ;