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 c3f44800ce1fd812b2c6c085fe8967978f9b3f55..de1193ea262f1bac04ad065db0609eb71ab16e4a 100644 (file)
--- 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