diff options
| author | kitty <nepeta@canaglie.net> | 2026-03-23 18:51:19 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-03-23 18:51:19 +1100 |
| commit | 1456d7073742e39985aa093bdbc152f4f9cd07a4 (patch) | |
| tree | c0a14bf7bfda1bbe439800c0ffd970d16e89a47b /sanctuary.fs | |
| parent | c804a6deb60a60cce4ddcc79495829ad6553728a (diff) | |
value to +to -to
Diffstat (limited to 'sanctuary.fs')
| -rw-r--r-- | sanctuary.fs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index ff4a266..6bdfbfc 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -44,6 +44,12 @@ : constant create , does> @ ; : variable create 1 cells allot ; +: value parse-name (header) latest ! postpone literal + [ hex ] c3 c, [ decimal ] ; \ c3 = RET +: to ' ( word ) 6 + state @ if postpone literal postpone ! else ! then ; immediate +: +to ' ( word ) 6 + state @ if postpone literal postpone +! else +! then ; immediate +: -to ' ( word ) 6 + state @ if postpone literal postpone -! else -! then ; immediate + 0 constant false -1 constant true bye |