From b6843777ce2a38ad0669eba9723fad2ea69790b8 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 3 Nov 2016 04:54:35 +0000 Subject: [PATCH] Disable init file in batch mode. --- src/runtime/load.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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*))) -- 2.25.1