summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--share/txr/stdlib/compiler.tl1
1 files changed, 0 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index eea91b62..e76849db 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -866,7 +866,6 @@
(set specials [remq var-sym specials cdr])
^((bindv ,vbind.loc ,me.(get-dreg (car spec-sub)))))
,*(whenlet ((spec-sub [find have-sym specials : cdr]))
- (prinl 'have)
(set specials [remq have-sym specials cdr])
^((bindv ,have-bind.loc ,me.(get-dreg (car spec-sub))))))))))
(benv (if specials (new env up nenv co me) nenv))