Make sure error printing don't get non-existent line

2025-07-13 20:52:10 +02:00 · 2025-07-13 20:52:10 +02:00 · 08ea79f2de
commit 08ea79f2de
parent a94c6f4e8f
1 changed files with 3 additions and 1 deletions
--- a/wip-duuqnd/user-side-compiler/error-handling.lisp
+++ b/wip-duuqnd/user-side-compiler/error-handling.lisp
@ -8,7 +8,9 @@
                     :finally (return start))))
    (subseq string
            start
-            (position #\Newline string :start (1+ start)))))
+            (if (< start (length string))
+                (position #\Newline string :start (1+ start))
+                nil))))

 (defun point-out-source (source)
  (if (null source)