From: Henry M. Wu Date: Sat, 30 May 1992 18:22:46 +0000 (+0000) Subject: Changed timing of when the options directory is actualized so it can X-Git-Tag: 20090517-FFI~9309 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5d5106f73f82821b14e6d0929896704436b0088e;p=mit-scheme.git Changed timing of when the options directory is actualized so it can be absent if the require option is already present. --- 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