From 027d34374454b44733be8f779872bb3901c5dae8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 2005 20:45:24 +0000
Subject: [PATCH] Treat MITSCHEME_LOAD_OPTIONS as specifying a potential
 options file rather than a required one.

---
 v7/src/runtime/option.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 53a4fe57b..c97d22c3e 100644
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: option.scm,v 14.44 2005/03/08 20:43:09 cph Exp $
+$Id: option.scm,v 14.45 2005/03/08 20:45:24 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1997,1998,2001,2002 Massachusetts Institute of Technology
@@ -76,9 +76,9 @@ USA.
 
 (define (initial-load-options)
   (or *initial-options-file*
-      (confirm-pathname
-       (merge-pathnames (get-environment-variable "MITSCHEME_LOAD_OPTIONS")
-			(user-homedir-pathname)))
+      (let ((s (get-environment-variable "MITSCHEME_LOAD_OPTIONS")))
+	(and s
+	     (confirm-pathname (merge-pathnames s (user-homedir-pathname)))))
       (local-load-options)))
 
 (define (local-load-options)
-- 
2.25.1