duskos

commit 718f9b8674948bb8ba5fed5cb37a70baf8612741
parent 540484288a8afccaa29866f49efd11611e6b7999
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Tue, 17 Jan 2023 21:23:43 -0500

sys/rdln: normalize all end of lines to LF

Diffstat:
M
fs/sys/rdln.fs
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/fs/sys/rdln.fs b/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