~ chicken-core (chicken-5) 7202de092b41c36bb720168a5f7ca5d0cc04793c

commit 7202de092b41c36bb720168a5f7ca5d0cc04793c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 13 00:25:46 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 13 00:25:46 2011 +0200

    argh

diff --git a/compiler.scm b/compiler.scm
index 7cdaa36b..2182baba 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -2199,10 +2199,6 @@
 		  (let ((c (delete-duplicates (gather (first subs) id vars) eq?)))
 		    (put! db id 'closure-size (length c))
 		    (put! db id 'captured-variables c)
-		    #;(print "X: " id " -> "
-			   (sort c
-				 (lambda (x y)
-				   (string<? (symbol->string x) (symbol->string y)))))
 		    (lset-difference eq? c locals vars)))))))
 	
 	  (else (concatenate (map (lambda (n) (gather n here locals)) subs)) ) ) ))