From 98c92e8b42faf5893c8094b4b6ef6fbf688f8405 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 30 Jul 1990 03:47:46 +0000 Subject: [PATCH] Move the call to reset-gc-after-restore! from disk-save/kernel to setup-image, since both disk-save and dump-world must take care of it. --- v7/src/runtime/savres.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm index 8a31b05f5..7ac43d0b7 100644 --- a/v7/src/runtime/savres.scm +++ b/v7/src/runtime/savres.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.12 1990/07/16 17:11:58 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.13 1990/07/30 03:47:46 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -72,6 +72,7 @@ MIT in each case. |# false)) (lambda () (set! time-world-saved time) + (reset-gc-after-restore!) (event-distributor/invoke! event:after-restore) (cond ((string? identify) (set! world-identification identify) @@ -110,7 +111,6 @@ MIT in each case. |# ;; This instruction is a noop, so I flushed it -- cph. ;; (enable-interrupts! interrupt-mask/none) (read-microcode-tables!) - (reset-gc-after-restore!) after-restore)))))))) (define (dump-world/kernel filename after-suspend after-restore) -- 2.25.1