From fea2a85b54f9d2782d2c358fbc03d247181dc9be Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Sun, 13 Jul 2025 20:53:05 +0200 Subject: [PATCH] Increment source line *after* inserting END-OF-STATEMENT --- wip-duuqnd/user-side-compiler/tokenizer.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp index 15666ab..700d13f 100644 --- a/wip-duuqnd/user-side-compiler/tokenizer.lisp +++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp @@ -164,13 +164,13 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.") (next-token)) ;; Process and add a newline ((char= char #\Newline) - (setf in-comment-p nil - line (1+ line) - column 0) (unless (zerop (length token-text-buffer)) (next-token)) (vector-push #\Newline token-text-buffer) - (next-token)) + (next-token) + (setf in-comment-p nil + line (1+ line) + column 0)) ;; Starting a comment ((and (member char *line-comment-chars* :test #'char=) (not in-comment-p)) (unless (zerop (length token-text-buffer))