collapseos/blk/407

: SCPY
    BEGIN         ( a )
        DUP C@    ( a c )
        DUP C,    ( a c )
        NOT IF DROP EXIT THEN
        1+        ( a+1 )
    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 )`
			`DUP C@ ( a c )`
			`DUP C, ( a c )`
			`NOT IF DROP EXIT THEN`
			`1+ ( a+1 )`
			`AGAIN`
			`;`