From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Sep 1990 02:23:23 +0000 (+0000)
Subject: Fix a number of instances of syntactic keywords being used as
X-Git-Tag: 20090517-FFI~11197
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e6d5377be4eb75f4695ef860684a4e0f3e7ec512;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 c3f44800c..de1193ea2 100644
--- a/v7/src/edwin/xform.scm
+++ b/v7/src/edwin/xform.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$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 $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xform.scm,v 1.7 1990/09/12 02:23:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -124,9 +124,9 @@
       (error "Free definition encountered:" name)
       (make-definition name (transform-expression transforms value)))))
 
-(define (transform-sequence transforms sequence)
+(define (transform-sequence transforms expression)
   (make-sequence (transform-expressions transforms
-					(sequence-actions sequence))))
+					(sequence-actions expression))))
 
 (define (transform-conditional transforms conditional)
   (conditional-components conditional