collapseos/blk/357

( r c -- r f )
( Parse digit c and accumulate into result r.
  Flag f is true when c was a valid digit )
: _pdacc
    '0' - DUP 10 < IF ( good, add to running result )
        SWAP 10 * + 1 ( r*10+n f )
        ELSE ( bad ) DROP 0 THEN ;
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-28 18:06:58 -04:00			`( r c -- r f )`
			`( Parse digit c and accumulate into result r.`
Optimize parsing routines 2020-10-28 20:29:28 -04:00			`Flag f is true when c was a valid digit )`
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-28 18:06:58 -04:00			`: _pdacc`
Optimize parsing routines 2020-10-28 20:29:28 -04:00			`'0' - DUP 10 < IF ( good, add to running result )`
			`SWAP 10 * + 1 ( r*10+n f )`
			`ELSE ( bad ) DROP 0 THEN ;`