Remove LF word

Also, remove extraneous uses of it. In the rdln routine, we would
spit a new line after each line input, but that NL was spurious:
we already spit the newline we receive as it is typed.
This commit is contained in:
Virgil Dupras 2021-01-02 09:45:08 -05:00
parent ba4edbdce3
commit 1fb062e121
2 changed files with 4 additions and 7 deletions

11
blk.fs
View File

@ -1717,8 +1717,8 @@ with "390 LOAD"
( ----- 356 )
SYSVARS 0x53 + :** EMIT
: STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ;
: BS 8 EMIT ; : CR 13 EMIT ;
: CRLF CR 10 EMIT ; : SPC 32 EMIT ;
SYSVARS 0x0a + :** NL
: ERR STYPE ABORT ;
: (uflw) LIT" stack underflow" ERR ;
@ -1970,10 +1970,8 @@ SYSVARS 0x0c + :** C<*
C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
LOOP NL ;
: DUMP ( n a -- )
LF
SWAP 8 /MOD SWAP IF 1+ THEN
0 DO _ LOOP
;
0 DO _ LOOP ;
( ----- 378 )
( handle backspace: go back one char in IN>, if possible, then
emit BS + SPC + BS )
@ -2009,8 +2007,7 @@ SYSVARS 0x55 + :** KEY?
( 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> ! ;
(infl) BEGIN (rdlnc) 5 < UNTIL IN( IN> ! ;
( And finally, implement C<* )
: RDLN<
IN> @ C@

Binary file not shown.