From 3d8fe708e0cd813109890cd401fb7533d87bac74 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Mon, 9 Mar 2009 03:46:22 +0000
Subject: [PATCH] In batch mode, suppress loading notifications for `--load'
 arguments.

---
 v7/src/runtime/load.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
2.25.1