From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 01:44:03 +0000 (-0800)
Subject: Make param:loading? unsettable.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~112
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d1e34d885fc1c66a996b4b4b200e0147742be3f;p=mit-scheme.git

Make param:loading? unsettable.
---

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 2c5b996cb..d37e3f55a 100644
--- 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)