From 1cd16e25ae97aec6dbc02009e815490a2b741af0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 Aug 1990 23:36:51 +0000
Subject: [PATCH] Export `execute_reload_cleanups' and call it when resuming
 after a `dump-world'.

---
 v7/src/microcode/fasload.c | 4 ++--
 v7/src/microcode/uxtop.c   | 4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 894864444..d710c75ce 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.55 1990/08/16 20:06:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.56 1990/08/16 23:36:51 cph Exp $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -696,7 +696,7 @@ DEFUN (add_reload_cleanup, (cleanup_procedure), Tcleanup cleanup_procedure)
     ptrvec_adjoin (reload_cleanups, cleanup_procedure);
 }
 
-static void
+void
 DEFUN_VOID (execute_reload_cleanups)
 {
   PTR * scan = (PTRVEC_START (reload_cleanups));
diff --git a/v7/src/microcode/uxtop.c b/v7/src/microcode/uxtop.c
index a6eb1bb42..22bb3cf48 100644
--- a/v7/src/microcode/uxtop.c
+++ b/v7/src/microcode/uxtop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtop.c,v 1.3 1990/08/10 02:01:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtop.c,v 1.4 1990/08/16 23:36:36 cph Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -52,6 +52,7 @@ extern void EXFUN (UX_initialize_userio, (void));
 extern void EXFUN (UX_reset_channels, (void));
 extern void EXFUN (UX_reset_processes, (void));
 extern void EXFUN (UX_reset_terminals, (void));
+extern void EXFUN (execute_reload_cleanups, (void));
 
 extern void EXFUN (OS_initialize_transcript_file, (void));
 
@@ -135,6 +136,7 @@ DEFUN_VOID (OS_reset)
   UX_reset_channels ();
   UX_reset_terminals ();
   UX_reset_processes ();
+  execute_reload_cleanups ();
 }
 
 void
-- 
2.25.1