From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 2006 17:29:21 +0000 (+0000)
Subject: Use WRITE-NOTIFICATION-LINE to generate dependency notifications.
X-Git-Tag: 20090517-FFI~871
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c541dfc66e634398b4705a5e221180b0dbc8148b;p=mit-scheme.git

Use WRITE-NOTIFICATION-LINE to generate dependency notifications.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index a25f82936..ba0befdba 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.76 2006/06/16 19:02:27 riastradh Exp $
+$Id: decls.scm,v 1.77 2006/10/25 17:29:21 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1998,1999,2000 Massachusetts Institute of Technology
@@ -53,15 +53,15 @@ USA.
 				   true))))))))
 	      (if (not (null? reasons))
 		  (begin
-		    (fresh-line)
-		    (write-string "Processing ")
-		    (write source)
-		    (write-string " because of:")
-		    (for-each (lambda (reason)
-				(write-char #\space)
-				(write reason))
-			      reasons)
-		    (newline)
+		    (write-notification-line
+		     (lambda (port)
+		       (write-string "Processing " port)
+		       (write source port)
+		       (write-string " because of:" port)
+		       (for-each (lambda (reason)
+				   (write-char #\space port)
+				   (write reason port))
+				 reasons)))
 		    (fluid-let ((sf/default-syntax-table environment)
 				(sf/default-declarations
 				 (map (lambda (dependency)