Fix a number of instances of syntactic keywords being used as

variables.

diff --git a/v7/src/compiler/back/asmmac.scm b/v7/src/compiler/back/asmmac.scm
index 991b86e49c7a9253a5064c424c53cd903bdec0c3..2429f6fc3655bcd862c639041e581151d866d0b3 100644 (file)
--- 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 b78180a503aa6061d0d1142e06d3ccf7e767ba05..7a30750e4ff4f85667735d2a0f6676550c5da832 100644 (file)
--- 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)