recurse, chars, more tests

1 files changed, 8 insertions, 0 deletions

diff --git a/sanctuary.fs b/sanctuary.fs
index 6f94aca..9ea7a5a 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -50,9 +50,17 @@
 : postpone  'h ( word ) dup immediate? if >body compile,
 	else >body [compile] literal ['] compile, compile, then ; immediate compile-only
 
+\ todo doc
+: recurse latest @ >body compile, ; immediate
+
 : cells  8 * ;
 : cell+  8 + ;
 : cell-  8 - ;
+\ todo doc
+: chars  ;
+: char+  1+ ;
+: char-  1- ;
+
 : create  parse-name (header) latest ! ['] (create) compile, 0 , ;
 : does>  latest @ >body 2 + ['] (does>) over ! \ replace call loc
 	( replace destination ) 11 + r> swap ! ;