From bd83455429214a9422e660b0527edc1122989031 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 17 Aug 1989 15:59:21 +0000 Subject: [PATCH] (sf-conditionally): Don't echo "up to date" message unless specifically requested to. --- v7/src/sf/butils.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/sf/butils.scm b/v7/src/sf/butils.scm index d7bc8b31d..e59f44858 100644 --- a/v7/src/sf/butils.scm +++ b/v7/src/sf/butils.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.2 1989/08/17 15:54:13 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.3 1989/08/17 15:59:21 cph Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -95,7 +95,9 @@ MIT in each case. |# (lambda (filename) (cond ((not (file-processed? filename "scm" "bin")) (sf filename)) - ((or (default-object? echo-up-to-date?) echo-up-to-date?) (newline) + ((and (not (default-object? echo-up-to-date?)) + echo-up-to-date?) + (newline) (write-string "Syntax file: ") (write filename) (write-string " is up to date")))))) -- 2.25.1