From 35db3eee550d7d97e35c1dc58615b6530dd13360 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 19 Apr 2021 06:29:27 -0700 Subject: new: remove superflous prefix from diagnostic. * share/txr/stdlib/struct.tl (new-expander): Don't format prefix into error message; compile-error does that. --- share/txr/stdlib/struct.tl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'share') 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) -- cgit v1.2.3