duskos

commit c7900ea2feacf6773d14102cb1ae6ab4db1aec05
parent 24bc3d3f761641688374ef4d1457784be4c95021
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sun,  5 Jun 2022 07:39:52 -0400

So I had a (s) literal down there that I only used in xcomp...

Diffstat:
M
fs/lib/core.fs
 | 
3
+--

1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/fs/lib/core.fs b/fs/lib/core.fs
@@ -4,8 +4,7 @@
 : min <> drop ; : max <> nip ;
 
 : ," begin in< dup '"' = if drop exit then c, again ;
-: S" compile (br) here 4 allot here ," tuck here -^ swap
-  here swap ! swap litn litn ; immediate
+: S" compile (s) here 1 allot here ," here -^ ( 'len len ) swap c! ; immediate
 : ." [compile] S" compile stype ; immediate
 : abort" [compile] ." compile abort ; immediate