From 5d5106f73f82821b14e6d0929896704436b0088e Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Sat, 30 May 1992 18:22:46 +0000 Subject: [PATCH] Changed timing of when the options directory is actualized so it can be absent if the require option is already present. --- v7/src/runtime/option.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm index 66864f9d3..70a8961a0 100644 --- a/v7/src/runtime/option.scm +++ b/v7/src/runtime/option.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.16 1992/05/26 18:02:40 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.17 1992/05/30 18:22:46 mhwu Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -38,12 +38,11 @@ MIT in each case. |# (declare (usual-integrations)) (define (load-option name) - (let ((entry (assq name options)) - (directory (library-directory-pathname "options"))) + (let ((entry (assq name options))) (if (not entry) (error "Unknown option name" name)) (if (not (memq name loaded-options)) - (begin + (let ((directory (library-directory-pathname "options"))) (for-each (lambda (descriptor) (let ((environment -- 2.25.1