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 | d631db74c3a572a893f6ffd4de368431bfae9a28 (patch) | |
| tree | 2888d1f2a402f85761eb8f932d9aff4bd636569d | |
| parent | af4f69e2f85fcb5bbcd53740b757c3095fe8a649 (diff) | |
| download | txr-d631db74c3a572a893f6ffd4de368431bfae9a28.tar.gz txr-d631db74c3a572a893f6ffd4de368431bfae9a28.tar.bz2 txr-d631db74c3a572a893f6ffd4de368431bfae9a28.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) |