Add load-option/suppress-loading-message? for load-ffi-quietly.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index 8266650c19fe12bc6b3d4f55e0f88a3d6bba2982..6da746fe86cb8ad04423a5733b7486991bab6139 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -547,7 +547,7 @@ USA.
 (define (load-ffi-quietly)
   (if (not (name->package '(FFI)))
       (let ((kernel (lambda ()
-                     (fluid-let ((load/suppress-loading-message? #t))
+                     (fluid-let ((load-option/suppress-loading-message? #t))
                        (load-option 'FFI)))))
        (if (nearest-cmdl/batch-mode?)
            (kernel)

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index bcb9ec430e36c8f15ff47daa79c21a9174441cf5..c7470fbcdfb0ea250e0f971f108951207e746d28 100644 (file)
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -29,6 +29,8 @@ USA.
 
 (declare (usual-integrations))
 \f
+(define load-option/suppress-loading-message? #f)
+
 (define (load-option name #!optional no-error?)
   (let ((no-error? (and (not (default-object? no-error?)) no-error?)))
 
@@ -40,9 +42,11 @@ USA.
 
     (define (notifier option)
       (named-lambda (notify port)
-       (write-string "Loading " port)
-       (write-string (symbol-name option) port)
-       (write-string " option" port)))
+       (if (not load-option/suppress-loading-message?)
+           (begin
+             (write-string "Loading " port)
+             (write-string (symbol-name option) port)
+             (write-string " option" port)))))
 
     (define (load-entry entry)
       (with-notification

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index cb47a816567eade64f4239bd99ec2c7d559c6b52..ea6aac30ed1777c23e3ad9feca523c55c114017b 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3340,7 +3340,8 @@ USA.
          compile-shim
          link-shim
          install-shim
-         install-load-option)
+         install-load-option
+         load-option/suppress-loading-message?)
   (initialization (initialize-package!)))
 
 (define-package (runtime program-copier)