diff options
| author | kitty <nepeta@canaglie.net> | 2026-03-24 14:17:59 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-03-24 14:17:59 +1100 |
| commit | 6819ca743193bb9ae4e32c9c87c98b27d06c0c82 (patch) | |
| tree | b44746d48e4fec00241bae78e34bc2f234c32209 /sanctuary.fs | |
| parent | ae1c341e4ce177a83fa678615103f32677888ed8 (diff) | |
fix s" also rp sp and emit
Diffstat (limited to 'sanctuary.fs')
| -rw-r--r-- | sanctuary.fs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index 6bc19e1..2715912 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -57,7 +57,7 @@ -1 constant true : cmove, dup >r here swap cmove r> allot ; -: s" 1 >in +! [ char " ] literal parse ( a u ) +: s" [ char " ] literal parse ( a u ) branch >mark >r 2dup cmove, nip ( u ) ( R: mark ) r> dup >resolve 4 + ( u a ) postpone literal ( a ) postpone literal ( u ) ; immediate compile-only @@ -65,4 +65,7 @@ 1 constant stdout 2 constant stderr +: type swap stdout 1 syscall3 ; +: emit sp 1 swap stdout 1 syscall3 2drop ; + bye |