~ chicken-core (chicken-5) 23cebadc9e30dba8c7ec257444a6fb23040a488f

commit 23cebadc9e30dba8c7ec257444a6fb23040a488f
Author:     unknown <felix@.(none)>
AuthorDate: Thu Nov 5 11:17:12 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Thu Nov 5 11:17:12 2009 +0100

    removed debugging output in support.scm

diff --git a/support.scm b/support.scm
index 7501f664..22a74b5e 100644
--- a/support.scm
+++ b/support.scm
@@ -611,7 +611,6 @@
 	  [(##core#variable) 
 	   (let ((var (first params)))
 	     (when (get db var 'contractable)
-	       (debugging 'x "un-marking contractable" var) 
 	       (put! db var 'contractable #f) )
 	     (varnode (rename var rl))) ]
 	  [(set!)