diff options
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 |