From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 31 Jul 2005 02:59:37 +0000 (+0000)
Subject: Eliminate binding for primitive GC-SPACE-STATUS, since that binding is
X-Git-Tag: 20090517-FFI~1235
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0766f735554f31404da6c0e93103e512161853aa;p=mit-scheme.git

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 ef75e6fc6..ab267ade2 100644
--- 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 6f7e66b98..12209c06b 100644
--- 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 fa042be86..9983d459c 100644
--- 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)))