Added SET-GC-NOTIFICATION!

diff --git a/v7/src/runtime/gcnote.scm b/v7/src/runtime/gcnote.scm
index 667f47f2d3afbbead764860c583aed25218495e5..7cdac9d5a6d59da55fa7427457cb0f95efbc7572 100644 (file)
--- a/v7/src/runtime/gcnote.scm
+++ b/v7/src/runtime/gcnote.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: gcnote.scm,v 14.10 1993/10/21 11:49:44 cph Exp $
+$Id: gcnote.scm,v 14.11 1995/04/24 23:22:19 adams Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -45,6 +45,18 @@ MIT in each case. |#
                (else (error "Can't grab GC statistics hook")))))
   unspecific)
 
+(define (set-gc-notification! #!optional on?)
+  (let ((on? (if (default-object? on?) #T on?)))
+    (set! hook/record-statistic!
+         (let ((current hook/record-statistic!))
+           (if (or (eq? current gc-notification)
+                   (eq? current default/record-statistic!))
+               (if on?
+                   gc-notification
+                   default/record-statistic!)
+               (error "Can't grab GC statistics hook"))))
+    unspecific))
+    
 (define (with-gc-notification! notify? thunk)
   (fluid-let ((hook/record-statistic!
               (if notify? gc-notification default/record-statistic!)))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index a48e77d7b5ed2c6c0e030ab65bbbbd5423177bc0..8f9355c10c9711f69df4d3db1541f3fce85885c5 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.254 1995/04/23 05:43:50 cph Exp $
+$Id: runtime.pkg,v 14.255 1995/04/24 23:22:30 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -762,6 +762,7 @@ MIT in each case. |#
   (export ()
          gc-statistic->string
          print-gc-statistics
+         set-gc-notification!
          toggle-gc-notification!
          with-gc-notification!))
 

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index a48e77d7b5ed2c6c0e030ab65bbbbd5423177bc0..8f9355c10c9711f69df4d3db1541f3fce85885c5 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.254 1995/04/23 05:43:50 cph Exp $
+$Id: runtime.pkg,v 14.255 1995/04/24 23:22:30 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -762,6 +762,7 @@ MIT in each case. |#
   (export ()
          gc-statistic->string
          print-gc-statistics
+         set-gc-notification!
          toggle-gc-notification!
          with-gc-notification!))