diff options
| author | kitty <nepeta@canaglie.net> | 2026-03-21 01:30:36 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-03-21 01:30:36 +1100 |
| commit | 8f76c163e577393bda45d9c98745bb4670f27f10 (patch) | |
| tree | da07c9de5d743ef2326a664378feb7b7b7c46e6f /sanctuary.fs | |
| parent | c78e54e173a92ec5ed2eedb10a5514e2ffcf48c2 (diff) | |
quite a lot
the documentation descriptions Leave a Lot to be Desired
Diffstat (limited to 'sanctuary.fs')
| -rw-r--r-- | sanctuary.fs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index 9ed0e61..4fe9f8c 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -5,4 +5,20 @@ : octal 8 base ! ; : decimal 10 base ! ; : hex 16 base ! ; + +: <mark here ; +: <resolve here 4 + - d, ; +: >mark here 0 d, ; +: >resolve dup here swap - 4 - swap d! ; + +: begin <mark ; immediate +: again branch <resolve ; immediate +: until ?branch <resolve ; immediate +: if ?branch >mark ; immediate ( I: -- a ) +: else branch >mark swap >resolve ; immediate +: then >resolve ; immediate +: while ?branch >mark ; immediate +: repeat branch swap <resolve >resolve ; immediate + +: allot here swap dp +! ; bye |