cripslock

commit 838d7f0f942880966b0e826626114d2e100fb34f
parent 7a8729c6aa0b1a9767422f34c4a7245550ad1b42
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 23 Jul 2025 17:51:37 +0100

textile: accommodate dos line endings

Diffstat:
M
textile.fnl
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/textile.fnl b/textile.fnl
@@ -8,7 +8,7 @@
     (if (not (stream:read 0)) ; eof
         nil
         (let [lines (icollect [l #(stream:read "L")
-                               &until (or (not l) (= l "\n"))]
+                               &until (or (not l) (= l "\n") (= l "\r\n"))]
                       (do
                         l))]
           (table.concat lines "")))))