Rename references to SCode variable abstraction.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 9349c93d2e74b02f5615d5642e5546a52828511f..19d6415a97918a1bfa860aa51f9550f92fb52afc 100644 (file)
--- 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 4f445bea5b4a4d9ce8f12b2f7f360fab9ce6f402..7b21639ea1f747a4b94a7273d3ccc14b0235bd16 100644 (file)
--- 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)