From 68dec176d0cbd65f8f47b51bb9cbb72d10c199b3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 20 Dec 2016 18:47:01 -0800 Subject: 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. --- share/txr/stdlib/tagbody.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'share') 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 -- cgit v1.2.3