~ 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