From 18c25783aab8d63f5eee82dedec4325a298f076a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Sep 1990 00:39:42 +0000
Subject: [PATCH] Fix a number of instances of syntactic keywords being used as
 variables.

---
 v7/src/compiler/back/asmmac.scm | 8 ++++----
 v7/src/compiler/base/toplev.scm | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/compiler/back/asmmac.scm b/v7/src/compiler/back/asmmac.scm
index 991b86e49..2429f6fc3 100644
--- a/v7/src/compiler/back/asmmac.scm
+++ b/v7/src/compiler/back/asmmac.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/asmmac.scm,v 1.6 1988/06/14 08:09:40 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/asmmac.scm,v 1.7 1990/09/12 00:35:45 cph Rel $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -49,8 +49,8 @@ MIT in each case. |#
 
 (define (compile-database cases procedure)
   `(LIST
-    ,@(map (lambda (case)
-	     (parse-rule (car case) (cdr case)
+    ,@(map (lambda (rule)
+	     (parse-rule (car rule) (cdr rule)
 	       (lambda (pattern variables qualifier actions)
 		 `(CONS ',pattern
 			,(rule-result-expression variables
diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index b78180a50..7a30750e4 100644
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.29 1990/06/07 19:52:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.30 1990/09/12 00:39:42 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -197,10 +197,10 @@ MIT in each case. |#
    '()))
 |#
 
-(define (lap->code label lap)
+(define (lap->code label instructions)
   (in-compiler
    (lambda ()
-     (set! *lap* lap)
+     (set! *lap* instructions)
      (set! *entry-label* label)
      (set! *current-label-number* 0)
      (set! *next-constant* 0)
-- 
2.25.1