duskos

commit 1706c59a08ff17f17e82da825f104ece25e7ed96
parent 38ac980799e346d86463a3c723e73fe2e3d3da0f
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Mon,  5 Jun 2023 13:37:08 -0400

bootlo: break the "\" command on any ctrl char, not only LF

Diffstat:
M
fs/xcomp/bootlo.fs
 | 
2
+-
M
fs/xcomp/rpiboot.fs
 | 
3
+--

2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -89,7 +89,7 @@ code ?dup W=0>Z, 0 Z) branchC, dup, then exit,
 : _ code PSP) compare, C>W, nip, exit, ;
 Z) _ =   NZ) _ <>  >) _ <    <) _ >    >=) _ <=  <=) _ >=
 
-: \ begin in< $0a = until ; immediate
+: \ begin in< $20 < until ; immediate
 \ hello, this is a comment!
 : exit exit, ; immediate
 : ( begin
diff --git a/fs/xcomp/rpiboot.fs b/fs/xcomp/rpiboot.fs
@@ -89,10 +89,9 @@ code ?dup W=0>Z, 0 Z) branchC, dup, then exit,
 : _ code PSP) compare, C>W, nip, exit, ;
 Z) _ =   NZ) _ <>  >) _ <    <) _ >    >=) _ <=  <=) _ >=
 
-: \ begin in< $0a = until ; immediate
+: \ begin in< $20 < until ; immediate
 uartinit \ see the (wnf) if comment is mishandled
 \ hello, this is a comment!
-\ This type of comment won't work in UART because we don't get a LF, only a CR
 : exit popret, exit, ; immediate
 : ( begin
     word dup c@ 1 = if