From fc710c7dcc06df67a862109a07d5a30c3c7b8482 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 16 Apr 2019 01:50:54 -0700 Subject: compiler: stray debug print. * share/txr/stdlib/compiler.tl (compiler comp-lambda): Stray prinl removed, issued in the rare case when the present flag parameter of an optional parameter is present and is a special var. --- share/txr/stdlib/compiler.tl | 1 - 1 file changed, 1 deletion(-) (limited to 'share') 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)) -- cgit v1.2.3