mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 07:58:06 +11:00
Have RDLN spit newlines more consistently
On CRLF interfaces, newlines were mostly broken after previous RDLN consolidation.
This commit is contained in:
parent
495537b7f3
commit
a9cb5a42d4
4
blk.fs
4
blk.fs
@ -1801,9 +1801,9 @@ SYSVARS 0x55 + :** KEY?
|
||||
DUP BS? IF
|
||||
IN> @ IN( > IF -1 IN> +! BS EMIT THEN SPC> BS EMIT
|
||||
ELSE DUP LF = IF DROP CR THEN ( same as CR )
|
||||
DUP EMIT ( echo back )
|
||||
DUP SPC >= IF DUP EMIT ( echo back ) THEN
|
||||
DUP IN> @ ! 1 IN> +! THEN ( c )
|
||||
DUP CR = SWAP EOT? OR UNTIL IN( IN> ! ;
|
||||
DUP CR = SWAP EOT? OR UNTIL NL> IN( IN> ! ;
|
||||
( ----- 363 )
|
||||
: RDLN<
|
||||
IN> @ C@ ( c )
|
||||
|
BIN
cvm/stage.bin
BIN
cvm/stage.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user