diff options
Diffstat (limited to 'sanctuary.fs')
| -rw-r--r-- | sanctuary.fs | 8 |
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 ! ; |