Eliminate binding for primitive GC-SPACE-STATUS, since that binding is

now in the global environment.

diff --git a/v7/src/edwin/undo.scm b/v7/src/edwin/undo.scm
index ef75e6fc6b9700c472d7dd73d0ade765036dc7f1..ab267ade2108895d4082862217f1c671744de505 100644 (file)
--- a/v7/src/edwin/undo.scm
+++ b/v7/src/edwin/undo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: undo.scm,v 1.62 2003/02/14 18:28:13 cph Exp $
+$Id: undo.scm,v 1.63 2005/07/31 02:59:32 cph Exp $
 
 Copyright 1985, 1989-2000 Massachusetts Institute of Technology
 
@@ -181,8 +181,7 @@ which includes both the saved text and other data."
   ;; the editor does not exist or is not running.  It would actually
   ;; prefer to be run *before* the GC, but that's not possible now.
   (if edwin-editor
-      (let ((bytes/word
-            (vector-ref ((ucode-primitive gc-space-status 0)) 0)))
+      (let ((bytes/word (vector-ref (gc-space-status) 0)))
        (let ((words->bytes
               (lambda (words)
                 (round (/ words bytes/word)))))

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 6f7e66b98e949bc86e68321ce73b540aec923c9f..12209c06bd7148fedde5b4c16eabde814ba6831e 100644 (file)
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.54 2003/02/14 18:28:13 cph Exp $
+$Id: utils.scm,v 1.55 2005/07/31 02:59:37 cph Exp $
 
 Copyright 1986, 1989-2002 Massachusetts Institute of Technology
 
@@ -65,8 +65,7 @@ USA.
      ;; This is written as a macro so that the shift will be a constant
      ;; in the compiled code.
      ;; It does not work when cross-compiled!
-     (let ((chars-per-word
-           (vector-ref ((ucode-primitive gc-space-status 0)) 0)))
+     (let ((chars-per-word (vector-ref (gc-space-status) 0)))
        (case chars-per-word
         ((4) -2)
         ((8) -3)

diff --git a/v7/src/swat/scheme/mit-xlib.scm b/v7/src/swat/scheme/mit-xlib.scm
index fa042be86d94b31e0b5cd6c26f577c6a21c7ff28..9983d459cabba83665c7ea79d5837f2930f3d2f6 100644 (file)
--- a/v7/src/swat/scheme/mit-xlib.scm
+++ b/v7/src/swat/scheme/mit-xlib.scm
@@ -548,10 +548,9 @@ This will print a whole lot of crap.  Break glass in case of emergency only.
 
 
 (define check-space
-  (let ((get-status (make-primitive-procedure 'gc-space-status))
-       (set-debug-flags! (make-primitive-procedure 'set-debug-flags!)))
+  (let ((set-debug-flags! (make-primitive-procedure 'set-debug-flags!)))
     (lambda ()
-      (let* ((status (get-status))
+      (let* ((status (gc-space-status))
             (free (vector-ref status 5))
             (top (vector-ref status 6))
             (space (- top free)))