From 0f8f97c9ba7825d1e642467e5c5df266bc388b91 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Fri, 25 Jun 1993 23:11:03 +0000
Subject: [PATCH] Fix spurious I/O introduced in the last edit.

---
 v7/src/runtime/packag.scm | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm
index ba70f3532..83054ed95 100644
--- a/v7/src/runtime/packag.scm
+++ b/v7/src/runtime/packag.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: packag.scm,v 14.14 1993/06/10 06:08:20 gjr Exp $
+$Id: packag.scm,v 14.15 1993/06/25 23:11:03 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -179,26 +179,25 @@ MIT in each case. |#
 (define (filename->compiled-object system component)
   (let ((prim (ucode-primitive initialize-c-compiled-block 1)))
     (and (implemented-primitive-procedure? prim)
-	 (let ((name
-		(let* ((p (->pathname component))
-		       (d (pathname-directory p)))
-		  (string-append
-		   (if (or (not d) (null? d))
-		       system
-		       (car (last-pair d)))
-		   "_"
-		   (string-replace (pathname-name p) ; kludge
-				   #\-
-				   #\_)))))
+	 (let* ((name
+		 (let* ((p (->pathname component))
+			(d (pathname-directory p)))
+		   (string-append
+		    (if (or (not d) (null? d))
+			system
+			(car (last-pair d)))
+		    "_"
+		    (string-replace (pathname-name p) ; kludge
+				    #\-
+				    #\_))))
+		(value (prim name)))
 	   (if load/suppress-loading-message?
-	       (prim name)
+	       value
 	       (let ((port (nearest-cmdl/port)))
 		 (fresh-line port)
-		 (write-string ";Initializing " port)
+		 (write-string ";Initialized " port)
 		 (write name port)
-		 (let ((value (prim name)))
-		   (write-string " -- done" port)
-		   value)))))))
+		 value))))))
 
 (define-integrable (package/reference package name)
   (lexical-reference (package/environment package) name))
-- 
2.25.1