collapseos/blk/380

( Read one line in input buffer and make IN> point to it )
: (rdln)
    ( EOT or less triggers line flush )
    (infl) BEGIN (rdlnc) 5 < UNTIL
    LF IN( IN> ! ;
( And finally, implement C<* )
: RDLN<
    IN> @ C@
    DUP IF ( not EOL? good, inc and return )
        1 IN> +!
    ELSE ( EOL ? readline. we still return null though )
        (rdln)
    THEN
    ( update C<? flag )
    IN> @ C@ 0 > 0x06 RAM+ !  ( 06 == C<? )
;
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-29 09:06:58 +11:00			`( Read one line in input buffer and make IN> point to it )`
			`: (rdln)`
			`( EOT or less triggers line flush )`
			`(infl) BEGIN (rdlnc) 5 < UNTIL`
			`LF IN( IN> ! ;`
			`( And finally, implement C<* )`
			`: RDLN<`
			`IN> @ C@`
			`DUP IF ( not EOL? good, inc and return )`
			`1 IN> +!`
			`ELSE ( EOL ? readline. we still return null though )`
			`(rdln)`
			`THEN`
			`( update C<? flag )`
			`IN> @ C@ 0 > 0x06 RAM+ ! ( 06 == C<? )`
			`;`