From e6d5377be4eb75f4695ef860684a4e0f3e7ec512 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Sep 1990 02:23:23 +0000 Subject: [PATCH] Fix a number of instances of syntactic keywords being used as variables. --- v7/src/edwin/xform.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.25.1