From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 18 Nov 1993 15:09:01 +0000 (+0000)
Subject: Define add-gc-daemon!/no-restore, required by the C back end.
X-Git-Tag: 20090517-FFI~7478
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2ecec2ca09ebf0645cf5643919c6fed291929fa6;p=mit-scheme.git

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 d7c8f7c45..f46eae608 100644
--- 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 430ee615b..c15872322 100644
--- 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 430ee615b..c15872322 100644
--- 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!)))