From aafddf02dbca04bdc8299b838e0c4878bbe4ad5b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 3 Mar 1993 19:56:10 +0000 Subject: [PATCH] Eliminate a few more error checks that were missed in the last edit. --- v7/src/runtime/syntax.scm | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) 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]")) -- 2.25.1