From 1050f5d15ab94e7ac933799d12c99c0c96666627 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 01:44:43 +0000
Subject: [PATCH] Rename references to SCode variable abstraction.

---
 v7/src/edwin/clsmac.scm | 6 +++---
 v7/src/edwin/xform.scm  | 9 +++++----
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/clsmac.scm b/v7/src/edwin/clsmac.scm
index 43978454c..afab5d6bf 100644
--- 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 7b21639ea..fe66a85b7 100644
--- 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)))))))
 
-- 
2.25.1