diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-12-20 18:47:01 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-12-20 18:47:01 -0800 |
| commit | 68dec176d0cbd65f8f47b51bb9cbb72d10c199b3 (patch) | |
| tree | 6368f1136a4248d22085825188bf48a8a90694ac /share | |
| parent | 0bcfe2aa4452ecbc61ebdc8071ad042d2289682c (diff) | |
| download | txr-68dec176d0cbd65f8f47b51bb9cbb72d10c199b3.tar.gz txr-68dec176d0cbd65f8f47b51bb9cbb72d10c199b3.tar.bz2 txr-68dec176d0cbd65f8f47b51bb9cbb72d10c199b3.zip | |
tagbody bugfix: env not passed to expander.
* share/txr/stdlib/tagbody.tl (tagbody): When calling
sys:expand, env was left out due to wrong parenthesis
placement.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/tagbody.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/tagbody.tl b/share/txr/stdlib/tagbody.tl index d3ca8a86..b35f4cab 100644 --- a/share/txr/stdlib/tagbody.tl +++ b/share/txr/stdlib/tagbody.tl @@ -55,7 +55,7 @@ ;; protect those (go ...)forms from falling victim to the ;; global macro, by wrapping this with a harmless local go macro. (pass-one (sys:expand ^(macrolet ((go (:form form label) form)) - ,basic-code)) env)) + ,basic-code) env))) ;; pass two: now expand the remaining go forms at this level, against ;; this tagbody. If any go forms remain, they must refer to nonexistent ;; labels. By calling sys:expand one more time, we flush these out |