Export `execute_reload_cleanups' and call it when resuming after a

`dump-world'.

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 89486444489f03f055593b6c62a36ccf0807ebec..d710c75ce950372d0bcf4c00c0804792ec6a4134 100644 (file)
--- 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 a6eb1bb42f2c1dfa1cdb1f085327117633ec69d7..22bb3cf482ad37b79eab4ef2e9e946987f117dc4 100644 (file)
--- 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 ();
 }
 \f
 void