Define add-gc-daemon!/no-restore, required by the C back end.

diff --git a/v7/src/runtime/gcdemn.scm b/v7/src/runtime/gcdemn.scm
index d7c8f7c459efdc90ccb3c592a5e8c33c4527e8c7..f46eae608fb4b8e849c67f4684870e1c15a8d402 100644 (file)
--- a/v7/src/runtime/gcdemn.scm
+++ b/v7/src/runtime/gcdemn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: gcdemn.scm,v 14.6 1993/06/29 22:58:16 cph Exp $
+$Id: gcdemn.scm,v 14.7 1993/11/18 15:09:01 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -66,6 +66,11 @@ MIT in each case. |#
 (define gc-daemons)
 (define trigger-gc-daemons!)
 (define add-gc-daemon!)
+(define (add-gc-daemon!/no-restore daemon)
+  (add-gc-daemon!
+   (lambda ()
+     (if (not *within-restore-window?*)
+        (daemon)))))  
 
 ;;; SECONDARY-GC-DAEMONS are executed rarely.  Their purpose is to
 ;;; reclaim storage that is either unlikely to be reclaimed or

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 430ee615b6cf2ffbf05be7c0a42305a838acbc49..c15872322382c273c53b5e3871eb0a712a3896dc 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.215 1993/11/18 04:36:21 adams Exp $
+$Id: runtime.pkg,v 14.216 1993/11/18 15:08:56 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -721,6 +721,7 @@ MIT in each case. |#
   (parent ())
   (export ()
          add-gc-daemon!
+         add-gc-daemon!/no-restore
          add-secondary-gc-daemon!
          gc-clean
          trigger-secondary-gc-daemons!)
@@ -1906,6 +1907,8 @@ MIT in each case. |#
          disk-save
          dump-world
          identify-world)
+  (export (runtime gc-daemons)
+         *within-restore-window?*)
   (export (runtime user-interface)
          *within-restore-window?*)
   (initialization (initialize-package!)))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 430ee615b6cf2ffbf05be7c0a42305a838acbc49..c15872322382c273c53b5e3871eb0a712a3896dc 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.215 1993/11/18 04:36:21 adams Exp $
+$Id: runtime.pkg,v 14.216 1993/11/18 15:08:56 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -721,6 +721,7 @@ MIT in each case. |#
   (parent ())
   (export ()
          add-gc-daemon!
+         add-gc-daemon!/no-restore
          add-secondary-gc-daemon!
          gc-clean
          trigger-secondary-gc-daemons!)
@@ -1906,6 +1907,8 @@ MIT in each case. |#
          disk-save
          dump-world
          identify-world)
+  (export (runtime gc-daemons)
+         *within-restore-window?*)
   (export (runtime user-interface)
          *within-restore-window?*)
   (initialization (initialize-package!)))