From 4dbab303ddff75e07d05fc2f562188d9be1503cb Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 22 May 1992 23:22:41 +0000 Subject: [PATCH] Get rid of storage leek caused by flushing the purification queue too early (?). --- etc/pack.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/etc/pack.scm b/etc/pack.scm index 78f783e4c..3403cc114 100644 --- a/etc/pack.scm +++ b/etc/pack.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/pack.scm,v 1.3 1992/05/22 21:09:43 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/pack.scm,v 1.4 1992/05/22 23:22:41 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -202,8 +202,10 @@ MIT in each case. |# (if (and purify? (not (eq? purify? default-object))) (purify (load/purification-root scode))) (extended-scode-eval scode env)))))))) - (fluid-let ((load new-load)) - (new-load (caar alist))))) + (fluid-let ((load new-load) + (flush-purification-queue! (lambda () 'done))) + (new-load (caar alist)))) + (flush-purification-queue!)) (with-binary-input-file (->truename pathname) (lambda (channel) -- 2.25.1