1 files changed, 1 insertions(+), 1 deletions(-)

M fs/sys/rdln.fs

@@ 16,7 16,7 @@ in) value in>
   then ;
 : rdln
   in( LNSZ SPC fill S"  ok\n" stype
-  in( begin key lntype until drop nl> ;
+  in( begin key lntype until 1- LF swap c! nl> ;
 : rdln<? ( -- c-or-0 )
   in> in) < if in> c@+ swap to in> else 0 then ;
 : rdln< ( -- c ) rdln<? ?dup not if