diff options
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 |