collapseos/blk/407

: SCPY
    BEGIN         ( a )
        C@+       ( a+1 c )
        DUP C,    ( a c )
        NOT IF DROP EXIT THEN
    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			`: SCPY`
			`BEGIN ( a )`
Move a few words from core to xcomp core 2020-05-12 07:21:34 -04:00			`C@+ ( a+1 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			`DUP C, ( a c )`
			`NOT IF DROP EXIT THEN`
Move a few words from core to xcomp core 2020-05-12 07:21:34 -04:00			`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