From 8e3aedbb1164b2c4a186bb47eef25a5c710c965f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 27 Sep 2016 23:55:58 -0400
Subject: [PATCH] Issue #113 - Check for duplicate lambda parameters

---
 scheme/cyclone/transforms.sld | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 5adab105..080110b9 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -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)