collapseos/blk/367

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-08 13:48:06 +11:00
: SCPY
    BEGIN     ( a )
        C@+   ( a+1 c )
        DUP NOT IF 2DROP EXIT THEN
        C,    ( a c )
    AGAIN ;
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-03 11:21:47 +10:00			`: SCPY`
SCPY: don't copy the NULL This makes [entry] much simpler. Also, remove unused LITS word. 2020-05-12 21:36:20 +10:00			`BEGIN ( a )`
			`C@+ ( a+1 c )`
			`DUP NOT IF 2DROP EXIT THEN`
			`C, ( a c )`
Move a few words from core to xcomp core 2020-05-12 21:21:34 +10:00			`AGAIN ;`