Remove unused load-option/suppress-loading-message?.

Reduce runtime/ diffs between this branch and master.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index 55025e58c0eec1b54124fbc5d8992a0d7b2d796f..12e8d01d0cb05be82cee2fea6116579fda787782 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -569,8 +569,7 @@ USA.
 (define (load-ffi-quietly)
   (if (not (name->package '(FFI)))
       (let ((kernel (lambda ()
-                     (let-fluids load-option/suppress-loading-message? #t
-                                 load/suppress-loading-message? #t
+                     (let-fluid load/suppress-loading-message? #t
                        (lambda ()
                          (load-option 'FFI))))))
        (if (nearest-cmdl/batch-mode?)

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index 8d8cffc698798281da6244f6e6a987976754d121..a97bb7b0f575dffcde52b170d5a8df4d511027dc 100644 (file)
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -29,8 +29,6 @@ USA.
 
 (declare (usual-integrations))
 \f
-(define load-option/suppress-loading-message?)
-
 (define (load-option name #!optional no-error?)
   (let ((no-error? (and (not (default-object? no-error?)) no-error?)))
 
@@ -41,17 +39,7 @@ USA.
            (else #f)))
 
     (define (load-entry entry)
-      (let-fluid load/suppress-loading-message? #t
-       (lambda ()
-         (if load-option/suppress-loading-message?
-             (for-each (lambda (thunk) (thunk)) (cdr entry))
-             (with-notification
-              (named-lambda (load-optoin-notify port)
-                (write-string "Loading " port)
-                (write-string (symbol-name name) port)
-                (write-string " option" port))
-              (lambda ()
-                (for-each (lambda (thunk) (thunk)) (cdr entry)))))))
+      (for-each (lambda (thunk) (thunk)) (cdr entry))
       (set! loaded-options (cons name loaded-options))
       name)
 
@@ -112,8 +100,7 @@ USA.
 
 (define (initialize-package!)
   (set! *options* (make-fluid '()))
-  (set! *parent* (make-fluid initial-load-options))
-  (set! load-option/suppress-loading-message? (make-fluid #f)))
+  (set! *parent* (make-fluid initial-load-options)))
 \f
 (define (dummy-option-loader)
   unspecific)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7b9a99b0275b3359625f5c4ada95ab9a934fdac2..4a9bdf35acf781c2cb9f32101621ca9ed9ff27b4 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3053,7 +3053,6 @@ USA.
   (files "option")
   (parent (runtime))
   (export ()
-         load-option/suppress-loading-message?
          *initial-options-file*
          define-load-option
          dummy-option-loader