From 393f9629e6575aa3a48a9e21bfb48b75490cb5e9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 27 Aug 2019 21:49:12 -0700 Subject: compiler: relate mac bind error to right substructure. * share/txr/stdlib/compiler.tl (expand-bind-mac-params): A nested destructuring error must be reported against the local parameter list, not the top-level one. The bind-mac-check call muts use the local par-syntax, not the original top-level params. --- 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 ec76f1dd..280fe753 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1383,7 +1383,7 @@ (len ,obj-var) 0)))) ,*(cond ((eq strict t) - ^((sys:bind-mac-check ,err-form ',params + ^((sys:bind-mac-check ,err-form ',par-syntax ,obj-var ,pars.nreq ,(unless pars.rest pars.nfix)))) ((null strict) nil) -- cgit v1.2.3