diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-03-27 16:26:05 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-03-27 16:26:05 -0700 |
| commit | fcd5374bc0a3cc878cfacea092ce074326ac5940 (patch) | |
| tree | f2c76687acd12c25cefb9ab803e70161409ccd24 | |
| parent | 641c0f421cdb70d410df1e28d34c29e6dd536512 (diff) | |
| download | txr-fcd5374bc0a3cc878cfacea092ce074326ac5940.tar.gz txr-fcd5374bc0a3cc878cfacea092ce074326ac5940.tar.bz2 txr-fcd5374bc0a3cc878cfacea092ce074326ac5940.zip | |
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.
| -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 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))) |