From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 31 Mar 1997 19:27:09 +0000 (+0000)
Subject: Flush purification queue after loading an option.  Otherwise, if the
X-Git-Tag: 20090517-FFI~5226
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fada65f145ff3b6a8126c44a020f2bd40bace3cd;p=mit-scheme.git

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 8515119f4..cfe488af4 100644
--- 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)