From 481e9e46aa09b9daf251d667ddd012d72a29038a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 15 Apr 2007 15:49:20 +0000 Subject: [PATCH] Suppress "because of" messages. --- v7/src/edwin/decls.scm | 38 ++++++++++++++++---------------------- 1 file changed, 16 insertions(+), 22 deletions(-) diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm index 1de7c4ca4..ad7d81a19 100644 --- a/v7/src/edwin/decls.scm +++ b/v7/src/edwin/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.81 2007/02/05 18:26:37 cph Exp $ +$Id: decls.scm,v 1.82 2007/04/15 15:49:20 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -53,27 +53,21 @@ USA. true)))))))) (if (not (null? reasons)) (begin - (if (environment-bound? system-global-environment - 'write-notification-line) - (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))) - (begin - (fresh-line) - (write-string "Processing ") - (write source) - (write-string " because of:") - (for-each (lambda (reason) - (write-char #\space) - (write reason)) - reasons) - (newline))) + #| + (let ((notify + (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)))) + (if (environment-bound? system-global-environment + 'write-notification-line) + (write-notification-line notify) + (notify (notification-output-port)))) + |# (fluid-let ((sf/default-syntax-table environment) (sf/default-declarations (map (lambda (dependency) -- 2.25.1