Add option-loaded?.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index ca6ba622c68c3e5cf9d1a60c2956ebb279c6897b..260614c9137b1eeeaea9b162557af68eb98c06f0 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 95bc2391364cc99508c1dcde90c15d7432c274c4..fd500ba44e7f66a0300494671797e7fdfbddae5d 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3323,6 +3323,7 @@ USA.
          further-load-options
          load-option
          local-load-options
+         option-loaded?
          standard-load-options
          standard-option-loader
          standard-system-loader)