mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 17:50:54 +11:00
8f3891f7d3
This allows us to remove one layer of indirection in (wnf). This is possible now that EMIT is a switch word.
12 lines
251 B
Plaintext
12 lines
251 B
Plaintext
: C<? 0x06 RAM+ @ ;
|
|
SYSVARS 0x0c + :** C<*
|
|
: C<
|
|
0x08 RAM+ ( C<* override ) @
|
|
?DUP NOT IF C<* ELSE EXECUTE THEN ;
|
|
: , H@ ! H@ 2+ HERE ! ;
|
|
: C, H@ C! H@ 1+ HERE ! ;
|
|
: ,"
|
|
BEGIN
|
|
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
|
|
AGAIN ;
|