diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-04-13 14:26:03 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-04-13 14:26:03 +0200 |
| commit | c4aa51bae8ac6139798e043fc86eaa696b06010c (patch) | |
| tree | cd11f1f87cdcc3318206ef3cd313e28e6fbdc927 | |
| parent | d0d8a552b414569b0f8d84f0a4f75bec38da693c (diff) | |
| download | guile-c4aa51bae8ac6139798e043fc86eaa696b06010c.tar.gz | |
Remove debugging code in closure-conversion
* module/language/cps/closure-conversion.scm (prune-free-vars): Remove
pk.
| -rw-r--r-- | module/language/cps/closure-conversion.scm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/module/language/cps/closure-conversion.scm b/module/language/cps/closure-conversion.scm index 6a1127d9e..26737e924 100644 --- a/module/language/cps/closure-conversion.scm +++ b/module/language/cps/closure-conversion.scm @@ -190,7 +190,6 @@ (lp var (cons label alias-stack)))))) ((eq? closure-label label) ;; Eliminate self-reference. - (pk 'hi) (prune-free closure-label free)) (else (adjoin var (prune-free closure-label free))))) |