Fix last line in source file not ending with CR

2026-04-20 01:16:36 +00:00 · 2025-04-16 11:00:35 -07:00
parent ce0b5c1757
commit 180db77474
4 changed files with 2 additions and 1 deletions
@@ -351,7 +351,8 @@ def nextln
        fin
        inlen = fileio:read(refnum, inptr, inlen)
        if inlen
-            ^(inptr + inlen - 1) = NULL // NULL terminate input
+            if ^(inptr + inlen - 1) == $0D; inlen--; fin
+            ^(inptr + inlen) = NULL // NULL terminate input
            lineno++
            if !(lineno & $0F); putc('.'); fin
            if scan == INCLUDE_TKN