~ chicken-core (chicken-5) 4d6d906ca1ea573fdf15ecd22c406daae2e12208


commit 4d6d906ca1ea573fdf15ecd22c406daae2e12208
Author:     Moritz Heidkamp <moritz@twoticketsplease.de>
AuthorDate: Sun Mar 25 14:24:35 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Sun Mar 25 14:43:24 2012 +0200

    Add regression tests for fixes introduced in 4706afb4 and bc5cc698
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index 21f57e58..82a3850e 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -967,3 +967,10 @@
 
 (use (prefix srfi-1 list-))
 take
+
+
+;; #805: case-lambda is unhygienic (as well as ensure, see 4706afb4 and bc5cc698)
+(module foo ()
+  (import (prefix chicken c/) (prefix scheme s/))
+  (c/case-lambda ((a) a))
+  (c/ensure s/even? 2))
Trap