Flush purification queue after loading an option. Otherwise, if the

option creates a new environment, and that environment has state
variables, the contents of those state variables will be purified at
the time of the next GC.

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 8515119f4fc69b35246f4094347fdfccb76dbb61..cfe488af43ee0a892486385b849e3a91227f62ef 100644 (file)
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: option.scm,v 14.33 1995/04/29 14:09:09 adams Exp $
+$Id: option.scm,v 14.34 1997/03/31 19:27:09 cph Exp $
 
-Copyright (c) 1988-1994 Massachusetts Institute of Technology
+Copyright (c) 1988-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -137,6 +137,7 @@ MIT in each case. |#
                           syntax-table/system-internal
                           true))))))))
        files)
+      (flush-purification-queue!)
       (eval init-expression environment))))
 
 (define (library-directory-pathname name)