Add option-loaded?.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index 35d70416bbac3c9bf8ef7c00fbc587ef2af2487b..1c1a67d60cb8f96b75372a6b89e6c0e2861fb2cc 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -602,7 +602,7 @@ USA.
   ((environment-lookup (->environment '(ffi)) 'update-html-index) directory))
 
 (define (load-option-quietly name)
-  (if (not (name->package (list name)))
+  (if (not (option-loaded? name))
       (let ((kernel
             (lambda ()
               (parameterize* (list (cons param:suppress-loading-message? #t))

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index c19850735b815715ed1edb1f12bf88177507cd8b..18ae8f767f486f285c0b2e1d7c584452d7552a07 100644 (file)
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -58,6 +58,9 @@ USA.
        name
        (find-option (*options*) (*parent*)))))
 
+(define (option-loaded? name)
+  (not (eq? #f (memq name loaded-options))))
+
 (define (define-load-option name . loaders)
   (*options* (cons (cons name loaders) (*options*)))
   unspecific)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index fa194bab48759d6f30266009a714c820ca6e324f..886377c61292099f50a1cbd3a5f0c8e4f596855a 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3296,6 +3296,7 @@ USA.
          further-load-options
          load-option
          local-load-options
+         option-loaded?
          standard-load-options
          standard-option-loader
          standard-system-loader)