diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-08-27 21:49:12 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-08-27 21:49:12 -0700 |
| commit | 393f9629e6575aa3a48a9e21bfb48b75490cb5e9 (patch) | |
| tree | 690629e23c4cbccd871f5095f51c73c5de65f294 | |
| parent | e9e0ecdaea431aed31b8940bf8359f52ae5d3f6c (diff) | |
| download | txr-393f9629e6575aa3a48a9e21bfb48b75490cb5e9.tar.gz txr-393f9629e6575aa3a48a9e21bfb48b75490cb5e9.tar.bz2 txr-393f9629e6575aa3a48a9e21bfb48b75490cb5e9.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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) |