Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #113 - Check for duplicate lambda parameters

Browse source
This commit is contained in:
Justin Ethier 2016-09-27 23:55:58 -04:00
parent 8cfb7720eb
commit 8e3aedbb11
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/transforms.sld
View file

@ -1075,6 +1075,10 @@
(define-vars (find-defined-vars body)) (define-vars (find-defined-vars body))
(defines-a-lookup (make-a-lookup define-vars)) (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 `(lambda
,(list->lambda-formals ,(list->lambda-formals
(map (lambda (p) (cdr p)) a-lookup) (map (lambda (p) (cdr p)) a-lookup)