izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 07:38:05 +11:00
Code Issues Releases Wiki Activity

Have RDLN spit newlines more consistently

Browse Source 
On CRLF interfaces, newlines were mostly broken after previous
RDLN consolidation.
This commit is contained in:
Virgil Dupras 2021-01-02 16:46:57 -05:00
parent 495537b7f3
commit a9cb5a42d4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk.fs
View File

@ -1801,9 +1801,9 @@ SYSVARS 0x55 + :** KEY?
DUP BS? IF DUP BS? IF
IN> @ IN( > IF -1 IN> +! BS EMIT THEN SPC> BS EMIT IN> @ IN( > IF -1 IN> +! BS EMIT THEN SPC> BS EMIT
ELSE DUP LF = IF DROP CR THEN ( same as CR ) 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 IN> @ ! 1 IN> +! THEN ( c )
DUP CR = SWAP EOT? OR UNTIL IN( IN> ! ; DUP CR = SWAP EOT? OR UNTIL NL> IN( IN> ! ;
( ----- 363 ) ( ----- 363 )
: RDLN< : RDLN<
IN> @ C@ ( c ) IN> @ C@ ( c )

BIN
cvm/stage.bin
View File

Binary file not shown.