blk/111

@@ -1,5 +1,5 @@
 : _blen ( buf -- length of str in buf )
-    DUP BEGIN C@+ 0x20 < UNTIL -^ 1- ;
+    DUP BEGIN C@+ EOL? UNTIL -^ 1- ;
 : _rbufsz ( size of linebuf to the right of curpos )
     EDPOS @ 64 MOD 63 -^ ;
 : i COMPILE I ; IMMEDIATE ( save overshadowed )
@@ -7,7 +7,9 @@
     _rbufsz IBUF _blen 2DUP > IF
         TUCK - ( ilen chars-to-move )
         SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
-        3 PICK MOVE- ( ctm ilen ) NIP ( ilen )
+        3 PICK MOVE- ( ctm ilen )
-    ELSE DROP 1+ ( ilen becomes rbuffsize+1 ) THEN
+        NIP ( ilen )
+    ELSE DROP ( ilen becomes rbuffsize )
+    THEN
     DUP IBUF EDPOS @ _cpos ROT MOVE ( ilen ) EDPOS +! BLK!! ;
 : I IBUF _type _I EDPOS @ 64 / _pln ;

blk/391

@@ -1,10 +1,11 @@
 : .2 DUP 10 < IF SPC THEN . ;
+: EOL? ( c -- f ) DUP 0xd = SWAP NOT OR ;
 : LIST
     BLK@
     16 0 DO
         I 1+ .2 SPC
         64 I * BLK( + DUP 64 + SWAP DO
-            I C@ 0x20 MAX EMIT
+            I C@ DUP EOL? IF DROP LEAVE ELSE EMIT THEN
         LOOP
         NL
     LOOP