mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

Remove debugging code in closure-conversion

Browse source 
* module/language/cps/closure-conversion.scm (prune-free-vars): Remove
  pk.
This commit is contained in:
Andy Wingo 2014-04-13 14:26:03 +02:00
parent d0d8a552b4
commit c4aa51bae8
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/language/cps/closure-conversion.scm
View file

@ -190,7 +190,6 @@
(lp var (cons label alias-stack)))))) (lp var (cons label alias-stack))))))
((eq? closure-label label) ((eq? closure-label label)
;; Eliminate self-reference. ;; Eliminate self-reference.
(pk 'hi)
(prune-free closure-label free)) (prune-free closure-label free))
(else (else
(adjoin var (prune-free closure-label free))))) (adjoin var (prune-free closure-label free)))))