collapseos/blk/407

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 04:28:06 +11:00
: 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-03 11:21:47 +10:00			`: SCPY`
			`BEGIN ( a )`
			`DUP C@ ( a c )`
			`DUP C, ( a c )`
			`NOT IF DROP EXIT THEN`
			`1+ ( a+1 )`
			`AGAIN`
			`;`