Make param:loading? unsettable.

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 2c5b996cbe01c12ab607219723423a7a20243fd7..d37e3f55a23915907f7f9e9af8240d873f6a517a 100644 (file)
--- a/src/runtime/load.scm
+++ b/src/runtime/load.scm
@@ -35,13 +35,13 @@ USA.
        (make-condition-type 'NOT-LOADING condition-type:error '()
          "No file being loaded."))
 
-  (set! param:after-load-hooks (make-parameter '()))
-  (set! param:current-load-environment (make-parameter #!default))
-  (set! param:eval-unit (make-parameter #f))
-  (set! param:load-init-file? (make-parameter #t))
-  (set! param:loading? (make-parameter #f))
-  (set! param:suppress-loading-message? (make-parameter #f))
-  (set! param:write-notifications? (make-parameter #t))
+  (set! param:after-load-hooks (make-settable-parameter '()))
+  (set! param:current-load-environment (make-settable-parameter #!default))
+  (set! param:eval-unit (make-unsettable-parameter #f))
+  (set! param:load-init-file? (make-settable-parameter #t))
+  (set! param:loading? (make-unsettable-parameter #f))
+  (set! param:suppress-loading-message? (make-settable-parameter #f))
+  (set! param:write-notifications? (make-unsettable-parameter #t))
 
   (initialize-command-line-parsers)
   (set! hook/process-command-line default/process-command-line)