diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-19 06:29:27 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-19 06:29:27 -0700 |
| commit | 35db3eee550d7d97e35c1dc58615b6530dd13360 (patch) | |
| tree | 2888d1f2a402f85761eb8f932d9aff4bd636569d | |
| parent | d1b7254ee6bf59b6ff6a97134f10061cf8090b29 (diff) | |
| download | txr-35db3eee550d7d97e35c1dc58615b6530dd13360.tar.gz txr-35db3eee550d7d97e35c1dc58615b6530dd13360.tar.bz2 txr-35db3eee550d7d97e35c1dc58615b6530dd13360.zip | |
new: remove superflous prefix from diagnostic.
* share/txr/stdlib/struct.tl (new-expander): Don't format
prefix into error message; compile-error does that.
| -rw-r--r-- | share/txr/stdlib/struct.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index 56d27e0a..bd62637f 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -279,8 +279,7 @@ (defun sys:new-expander (op form spec pairs) (when (oddp (length pairs)) - (compile-error form - "~s: slot initform arguments must occur pairwise" op)) + (compile-error form "slot initform arguments must occur pairwise")) (let ((qpairs (mappend (aret ^(',@1 ,@2)) (tuples 2 pairs)))) (tree-case spec ((texpr . args) |