From bcdf3793d8abb51d30412f851ed8feece9bd99ba Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 27 Dec 2021 13:23:51 -0800
Subject: match: bad compile-error call in quasi matcher.

* stdlib/match.tl (expand-quasi-match): Fix too few arguments
to compile-error for format args.
---
 stdlib/match.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stdlib/match.tl b/stdlib/match.tl
index a38798d6..4a326fdb 100644
--- a/stdlib/match.tl
+++ b/stdlib/match.tl
@@ -970,7 +970,7 @@
                 (unless (plusp len)
                   (compile-error *match-form*
                                  "variable ~s: positive integer required,\ \
-                                  not ~a" sym))
+                                  not ~a" sym len))
                 (with-gensyms (npos)
                   (list* ^@(require @(with ,npos (+ ,pos ,len))
                              (<= ,npos (len ,str)))
-- 
cgit v1.2.3