duskos

commit d5f2eb00454d845ccaaba80b85d2ed921edf4945
parent b5a4a9afe8eae70bf0adc1664de5285c2c4f5cd5
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Wed, 14 Sep 2022 07:42:36 -0400

Add wordsig to const

Diffstat:
M
fs/tests/cc/lib.fs
 | 
3
+--
M
fs/xcomp/bootlo.fs
 | 
2
++

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/fs/tests/cc/lib.fs b/fs/tests/cc/lib.fs
@@ -14,8 +14,7 @@ capture foo S" Hello World!" #s=
 
 $20 MemIO :new const memio
 S" What about this?" const s
-\ TODO: allow memio() to be called inside fputs() parens.
-:cfunc void foo() { int x; memio(); x = pspop(); fputs("What about this?", x); }
+:cfunc void foo() { fputs("What about this?", memio()); }
 foo
 memio MemIO ptr s strlen #eq
 memio MemIO :buf( s c@+ []= #
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -189,6 +189,8 @@ alias noop [then]
 : value 0 1 nextmeta sigcnt, doer , immediate does> ['] @ toexec ;
 : ivalue 0 1 nextmeta sigcnt, doer , immediate does> @ ['] @ toexec ;
 HERE ivalue here
+\ re-declare with sigcnt
+: const 0 1 nextmeta sigcnt, code litn exit, ;
 
 \ Alias chaining. See doc/usage.
 : _ ( 'target 'alias -- )