diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-04-16 01:50:54 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-04-16 01:50:54 -0700 |
| commit | fc710c7dcc06df67a862109a07d5a30c3c7b8482 (patch) | |
| tree | e97a39022a8300563e2e59f5ee9d0bf42af3439c | |
| parent | 710889ccdf6f8f8501f0a9409258b3850002d41d (diff) | |
| download | txr-fc710c7dcc06df67a862109a07d5a30c3c7b8482.tar.gz txr-fc710c7dcc06df67a862109a07d5a30c3c7b8482.tar.bz2 txr-fc710c7dcc06df67a862109a07d5a30c3c7b8482.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 1 |
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)) |