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 | 3f6a55831805e755812aef6ddd4197384dbc822d (patch) | |
| tree | 7463eff7d8ab36f8a6ff5dae7555d29ab8e1328b | |
| parent | 7d1237a784b4f5fef4b5598d15830f8602f034d9 (diff) | |
| download | txr-3f6a55831805e755812aef6ddd4197384dbc822d.tar.gz txr-3f6a55831805e755812aef6ddd4197384dbc822d.tar.bz2 txr-3f6a55831805e755812aef6ddd4197384dbc822d.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))) |