izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/368

13 lines
248 B
Plaintext
Raw Normal View History

Inline SCPY I'm planning a string reform and it's standing in the way.
2020-05-25 04:19:25 +10:00
: +! TUCK @ + SWAP ! ;
core: define H@ a bit sooner
2020-05-16 12:59:38 +10:00
: [entry] ( w -- )
Inline SCPY I'm planning a string reform and it's standing in the way.
2020-05-25 04:19:25 +10:00
H@ SWAP
BEGIN C@+ ( w+1 c ) ?DUP IF C, 0 ELSE 1 THEN UNTIL DROP
core: define H@ a bit sooner
2020-05-16 12:59:38 +10:00
H@ SWAP - ( sz )
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
( write prev value )
core: define H@ a bit sooner
2020-05-16 12:59:38 +10:00
H@ CURRENT @ - ,
SCPY: don't copy the NULL This makes [entry] much simpler. Also, remove unused LITS word.
2020-05-12 21:36:20 +10:00
C, ( write size )
core: define H@ a bit sooner
2020-05-16 12:59:38 +10:00
H@ CURRENT !
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
;
: (entry) WORD [entry] ;