From 2778c7d8c90cde9dd67c2aa07b62f65ee8ec3838 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Tue, 21 Apr 2026 17:21:44 +1000
Subject: recurse, chars, more tests

---
 sanctuary.fs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'sanctuary.fs')

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 ! ;
-- 
cgit v1.2.3