Issue #113 - Check for duplicate lambda parameters

This commit is contained in:
Justin Ethier 2016-09-27 23:55:58 -04:00
parent 8cfb7720eb
commit 8e3aedbb11

View file

@ -1075,6 +1075,10 @@
(define-vars (find-defined-vars body))
(defines-a-lookup (make-a-lookup define-vars))
)
;; This is a convenient place to check for duplicate lambda args
(if (not (equal? (delete-duplicates args) args))
(error "duplicate lambda parameter(s)" args))
;; New lambda code
`(lambda
,(list->lambda-formals
(map (lambda (p) (cdr p)) a-lookup)