From: Daniel Kochmański <daniel@turtleware.eu>
Date: Mon, 17 Aug 2015 12:08:22 +0000 (+0200)
Subject: lambda-list: add check for the proper context (function)
X-Git-Tag: ECL-16.0.0~1^2~37
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=f79a157387421c326a58f46fd1364330e468fb52;p=ecl.git

lambda-list: add check for the proper context (function)

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

diff --git a/src/c/compiler.d b/src/c/compiler.d
index 9fd80be..b601e14 100644
--- a/src/c/compiler.d
+++ b/src/c/compiler.d
@@ -2808,7 +2808,8 @@ REST:           unlikely_if (stage >= AT_REST)
         case AT_REQUIREDS:
                 nreq++;
                 assert_var_name(v);
-                if (ecl_member_eq(v, lists[0]))
+                if (context == @'function' && ecl_member_eq(v, lists[0]))
+                        /* note: ftype isn't valid context for this check */
                         FEprogram_error_noreturn
                                 ("The variable ~s occurs more than once as the "
                                  "required parameter in the lambda list.", 1, v);