From daef03f6b7f5c283d27053ba4845858fe1a8f7ce Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 27 Mar 2021 16:26:05 -0700 Subject: compiler: bugfix: bad expand-quasi-mods call. * share/txr/stdlib/compiler.tl (expand-quasi-args): Here, expand-quasi-mods is being called with the wrong number of arguments. This was likely intended to be a recursive call to expand-quasi-args. Let's convert it to that. Removing this case also works, but it is nicer not to generate the sys:fmt-simple call. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 9a756107..39cda32d 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1795,7 +1795,7 @@ (caseq (car el) (sys:var (mac-param-bind form (sym exp : mods) el (list (expand-quasi-mods exp mods)))) - (sys:quasi (expand-quasi-mods el)) + (sys:quasi (expand-quasi-args el)) (t (list ^(sys:fmt-simple ,el))))) ((bindable el) (list ^(sys:fmt-simple ,el))) -- cgit v1.2.3