Rename references to SCode variable abstraction.

diff --git a/v7/src/edwin/clsmac.scm b/v7/src/edwin/clsmac.scm
index 43978454c5584054155b351cbbba1ffbe92fd012..afab5d6bfff12a8379d4a3e260b7c49d1f918c00 100644 (file)
--- a/v7/src/edwin/clsmac.scm
+++ b/v7/src/edwin/clsmac.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;$Id: clsmac.scm,v 1.4 2001/12/18 21:34:54 cph Exp $
+;;;$Id: clsmac.scm,v 1.5 2001/12/19 01:41:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989, 1999, 2001 Massachusetts Institute of Technology
 ;;;
@@ -121,8 +121,8 @@
      (syntax* expression))))
 
 (define (make-method-definition class operation expression)
-  (make-comb (make-variable 'CLASS-METHOD-DEFINE)
-            (make-variable class)
+  (make-comb (make-scode-variable 'CLASS-METHOD-DEFINE)
+            (make-scode-variable class)
             operation
             expression))
 

diff --git a/v7/src/edwin/xform.scm b/v7/src/edwin/xform.scm
index 7b21639ea1f747a4b94a7273d3ccc14b0235bd16..fe66a85b7097f3420ad4c7e029fb89881f1de7fa 100644 (file)
--- a/v7/src/edwin/xform.scm
+++ b/v7/src/edwin/xform.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;$Id: xform.scm,v 1.10 2001/12/18 22:23:21 cph Exp $
+;;;$Id: xform.scm,v 1.11 2001/12/19 01:44:43 cph Exp $
 ;;;
-;;; Copyright (c) 1985, 1989, 1990, 1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1985, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -16,7 +16,8 @@
 ;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
 
 ;;;; Instance Variable Transformation
 
@@ -69,7 +70,7 @@
        (if (not entry)
            (make-assignment name value)
            (make-combination vector-set!
-                             (list (make-variable name-of-self)
+                             (list (make-scode-variable name-of-self)
                                    (cdr entry)
                                    value)))))))