From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 9 Mar 2009 03:46:22 +0000 (+0000)
Subject: In batch mode, suppress loading notifications for `--load' arguments.
X-Git-Tag: 20090517-FFI~57
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3d8fe708e0cd813109890cd401fb7533d87bac74;p=mit-scheme.git

In batch mode, suppress loading notifications for `--load' arguments.
---

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index 1636972c4..bb3fa39c9 100644
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.103 2008/03/08 17:43:12 cph Exp $
+$Id: load.scm,v 14.104 2009/03/09 03:46:22 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -624,7 +624,8 @@ USA.
     (lambda (arg)
       (run-in-nearest-repl
        (lambda (repl)
-	 (load arg (repl/environment repl))))))
+	 (fluid-let ((load/suppress-loading-message? (cmdl/batch-mode? repl)))
+	   (load arg (repl/environment repl)))))))
   (argument-command-line-parser "eval" #t
     (lambda (arg)
       (run-in-nearest-repl