From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Sep 1990 02:19:36 +0000 (+0000)
Subject: Fix a number of instances of syntactic keywords being used as
X-Git-Tag: 20090517-FFI~11198
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=03322552bd2c457007b7d2c28a52fd860693ddd1;p=mit-scheme.git

Fix a number of instances of syntactic keywords being used as
variables.
---

diff --git a/v7/src/edwin/xform.scm b/v7/src/edwin/xform.scm
index 36a436a06..c3f44800c 100644
--- a/v7/src/edwin/xform.scm
+++ b/v7/src/edwin/xform.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xform.scm,v 1.5 1989/04/28 22:54:57 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xform.scm,v 1.6 1990/09/12 02:19:36 cph Exp $
 ;;;
-;;;	Copyright (c) 1985, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1985, 1989, 1990 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -103,8 +103,8 @@
       (make-combination (transform-expression transforms operator)
 			(transform-expressions transforms operands)))))
 
-(define (transform-lambda transforms lambda)
-  (lambda-components** lambda
+(define (transform-lambda transforms expression)
+  (lambda-components** expression
     (lambda (pattern bound body)
       (make-lambda** pattern bound
 		     (transform-expression (remove-transforms transforms bound)