X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/ffc2a7b8364cc459ff686cfce645079b52d11466..26c5ecfef79e0158c3ea38e9c32ad1fe3e85be3e:/src/lexer-impl.lisp

diff --git a/src/lexer-impl.lisp b/src/lexer-impl.lisp
index b579278..821849b 100644
--- a/src/lexer-impl.lisp
+++ b/src/lexer-impl.lisp
@@ -109,7 +109,7 @@ (defmethod scanner-token ((scanner sod-token-scanner))
 	  (cond-parse (:consumedp cp :expected exp)
 	    ((satisfies whitespace-char-p) (parse :whitespace))
 	    ((scan-comment char-scanner))
-	    (t (if cp (lexer-error char-scanner exp cp) (return)))))
+	    (t (if cp (lexer-error char-scanner exp) (return)))))
 
 	;; Now parse something.
 	(cond-parse (:consumedp cp :expected exp)
@@ -168,7 +168,7 @@ (defmethod scanner-token ((scanner sod-token-scanner))
 	  ;; must make progress on every call.
 	  (t
 	   (assert cp)
-	   (lexer-error char-scanner exp cp)
+	   (lexer-error char-scanner exp)
 	   (scanner-token scanner)))))))
 
 ;;;----- That's all, folks --------------------------------------------------