From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sat, 30 Apr 2011 18:20:19 +0000 (-0700)
Subject: Oops, remove ALL "debugging printfs".
X-Git-Tag: 20110609-Gtk~16^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97c7f48ba547673e6c8f4b7e4b96d62b2d30bbbf;p=mit-scheme.git

Oops, remove ALL "debugging printfs".
---

diff --git a/src/cref/butils.scm b/src/cref/butils.scm
index 0f644b5e3..e125a0e53 100644
--- a/src/cref/butils.scm
+++ b/src/cref/butils.scm
@@ -111,8 +111,6 @@ USA.
 	    (let ((target (->environment (car import)))
 		  (source (->environment (cadr import)))
 		  (names (cddr import)))
-	      (for-each display (list";compile-system: linking: "
-				     target" <- "source": "names"\n"))
 	      (for-each (lambda (name)
 			 (environment-link-name target source name))
 		       names)))