collapseos/blk/364

: 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 ;
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-02 21:21:47 -04:00			`: C<? 0x06 RAM+ @ ;`
Make C<* into a switch word Slightly larger binary, but clearer code and slightly faster. 2020-10-28 16:18:37 -04:00			`SYSVARS 0x0c + :** C<*`
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-02 21:21:47 -04:00			`: C<`
Make C<* into a switch word Slightly larger binary, but clearer code and slightly faster. 2020-10-28 16:18:37 -04:00			`0x08 RAM+ ( C<* override ) @`
			`?DUP NOT IF C<* ELSE EXECUTE THEN ;`
core: define H@ a bit sooner 2020-05-15 22:59:38 -04:00			`: , H@ ! H@ 2+ HERE ! ;`
			`: C, H@ C! H@ 1+ HERE ! ;`
Move EMIT to low core This allows us to remove one layer of indirection in (wnf). This is possible now that EMIT is a switch word. 2020-10-28 16:34:49 -04:00			`: ,"`
			`BEGIN`
			`C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,`
			`AGAIN ;`