From f9665ee8538f907c1e1b15a31504b266c68394d5 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Mon, 14 Jul 2025 17:26:06 +0200 Subject: [PATCH] Adjust some parser errors --- wip-duuqnd/user-side-compiler/parser.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/parser.lisp b/wip-duuqnd/user-side-compiler/parser.lisp index 76fa93b..b8de1a5 100644 --- a/wip-duuqnd/user-side-compiler/parser.lisp +++ b/wip-duuqnd/user-side-compiler/parser.lisp @@ -52,7 +52,7 @@ parser's debug output.") token (type-of (peek-token))) (error-parser (source (previous-token)) "~A~%Got token ~A instead." - error-message (previous-token) + error-message (peek-token) (source (previous-token)))))) (defun make-token-stream (tokens) @@ -221,8 +221,7 @@ comma ',' is required to separate arguments."))) (t (let ((expr (match-syntax assignment))) (consume-token 'token-end-of-statement - (format nil "Couldn't find end of expression. ~A found instead." - (peek-token))) + "Couldn't find end of expression.") expr)))) (defun wire-up-statements (statements)