From c4aa51bae8ac6139798e043fc86eaa696b06010c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 13 Apr 2014 14:26:03 +0200 Subject: Remove debugging code in closure-conversion * module/language/cps/closure-conversion.scm (prune-free-vars): Remove pk. --- module/language/cps/closure-conversion.scm | 1 - 1 file changed, 1 deletion(-) 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))))) -- cgit v1.2.1