diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-12-27 13:23:51 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-12-27 13:23:51 -0800 |
| commit | bcdf3793d8abb51d30412f851ed8feece9bd99ba (patch) | |
| tree | 7463eff7d8ab36f8a6ff5dae7555d29ab8e1328b | |
| parent | 194439c2410a82295b1ce3d4d6ddfef7a9aa56b8 (diff) | |
| download | txr-bcdf3793d8abb51d30412f851ed8feece9bd99ba.tar.gz txr-bcdf3793d8abb51d30412f851ed8feece9bd99ba.tar.bz2 txr-bcdf3793d8abb51d30412f851ed8feece9bd99ba.zip | |
match: bad compile-error call in quasi matcher.
* stdlib/match.tl (expand-quasi-match): Fix too few arguments
to compile-error for format args.
| -rw-r--r-- | stdlib/match.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |