From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 22:23:26 +0000 (+0000)
Subject: Rename references to SCode variable abstraction.
X-Git-Tag: 20090517-FFI~2373
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f29bd860269bc60fe43bf3ff8c4abd1c2f35cb9;p=mit-scheme.git

Rename references to SCode variable abstraction.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 9349c93d2..19d6415a9 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.276 2001/12/18 21:35:04 cph Exp $
+$Id: edwin.pkg,v 1.277 2001/12/18 22:23:26 cph Exp $
 
 Copyright (c) 1989-2001 Massachusetts Institute of Technology
 
@@ -126,7 +126,10 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
   (files "xform")
   (parent (edwin class-macros))
   (export (edwin class-macros)
-	  transform-instance-variables))
+	  transform-instance-variables)
+  (import ()
+	  (make-scode-variable make-variable)
+	  (scode-variable-name variable-name)))
 
 (define-package (edwin class-constructor)
   (files "clscon")
diff --git a/v7/src/edwin/xform.scm b/v7/src/edwin/xform.scm
index 4f445bea5..7b21639ea 100644
--- a/v7/src/edwin/xform.scm
+++ b/v7/src/edwin/xform.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;$Id: xform.scm,v 1.9 1999/01/02 06:11:34 cph Exp $
+;;;$Id: xform.scm,v 1.10 2001/12/18 22:23:21 cph Exp $
 ;;;
 ;;; Copyright (c) 1985, 1989, 1990, 1999 Massachusetts Institute of Technology
 ;;;
@@ -54,11 +54,11 @@
   constant)
 
 (define (transform-variable transforms variable)
-  (let ((entry (assq (variable-name variable) transforms)))
+  (let ((entry (assq (scode-variable-name variable) transforms)))
     (if (not entry)
 	variable
 	(make-combination vector-ref
-			  (list (make-variable name-of-self)
+			  (list (make-scode-variable name-of-self)
 				(cdr entry))))))
 
 (define (transform-assignment transforms assignment)