From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 3 Nov 2016 04:54:35 +0000 (+0000)
Subject: Disable init file in batch mode.
X-Git-Tag: mit-scheme-pucked-9.2.12~254^2~13
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b6843777ce2a38ad0669eba9723fad2ea69790b8;p=mit-scheme.git

Disable init file in batch mode.
---

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index d37e3f55a..ca9826c09 100644
--- a/src/runtime/load.scm
+++ b/src/runtime/load.scm
@@ -521,10 +521,13 @@ USA.
 		    (process-keyword (vector->list unused-command-line) '()))
 	      (for-each (lambda (act) (act))
 			(reverse after-parsing-actions))
-	      (if (param:load-init-file?) (load-init-file)))))
+	      (if (and (param:load-init-file?)
+		       (not (nearest-cmdl/batch-mode?)))
+		  (load-init-file)))))
 	(begin
 	  (set! *unused-command-line* #f)
-	  (load-init-file)))))
+	  (if (not (nearest-cmdl/batch-mode?))
+	      (load-init-file))))))
 
 (define (find-keyword-parser keyword)
   (let ((entry (assoc (strip-leading-hyphens keyword) *command-line-parsers*)))