From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Mar 1993 19:56:10 +0000 (+0000)
Subject: Eliminate a few more error checks that were missed in the last edit.
X-Git-Tag: 20090517-FFI~8431
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aafddf02dbca04bdc8299b838e0c4878bbe4ad5b;p=mit-scheme.git

Eliminate a few more error checks that were missed in the last edit.
---

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index 62f7432f6..3b6e101b8 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syntax.scm,v 14.20 1993/02/28 21:03:50 cph Exp $
+$Id: syntax.scm,v 14.21 1993/03/03 19:56:10 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -622,26 +622,17 @@ MIT in each case. |#
       (syntax-error "name of lambda expression must be a symbol" name))
   (parse-lambda-list pattern
     (lambda (required optional rest)
-      (for-each guarantee-parameter-not-syntactic-keyword required)
-      (for-each guarantee-parameter-not-syntactic-keyword optional)
-      (if rest (guarantee-parameter-not-syntactic-keyword rest))
       (internal-make-lambda name required optional rest body))))
 
 (define (make-closed-block tag names values body)
-  (for-each guarantee-parameter-not-syntactic-keyword names)
   (make-combination (internal-make-lambda tag names '() false body) values))
 
 (define (make-letrec names values body)
-  (for-each guarantee-parameter-not-syntactic-keyword names)
   (make-closed-block lambda-tag:let '() '()
 		     (make-scode-sequence
 		      (append! (map make-definition names values)
 			       (list body)))))
 
-(define (guarantee-parameter-not-syntactic-keyword name)
-  (if (syntax-table-ref *syntax-table* name)
-      (syntax-error "rebinding syntactic keyword" name)))
-
 (define-integrable lambda-tag:unnamed
   ((ucode-primitive string->symbol) "#[unnamed-procedure]"))