~ chicken-core (chicken-5) bb1940be3934b66144e5e2592a8c7e9744669a19

commit bb1940be3934b66144e5e2592a8c7e9744669a19
Author:     felix <felix@y.(none)>
AuthorDate: Thu Apr 22 04:29:45 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Thu Apr 22 04:29:45 2010 +0200

    added test for local definitions with redefined define

diff --git a/tests/module-tests-2.scm b/tests/module-tests-2.scm
index 4b5d8500..4bfd7754 100644
--- a/tests/module-tests-2.scm
+++ b/tests/module-tests-2.scm
@@ -85,3 +85,18 @@
 (module m2 ()
   (import m1)
   ((lambda () (f1)))) ; should use new lambda (but should be folded by compiler)
+
+
+;;; local define should work even with redefined define
+
+(module m3 ()
+  (import (rename scheme (define s:define)))
+  (import chicken)
+  (define-syntax define
+    (syntax-rules ()
+      ((_) (display 'oink))))
+  (define)
+  (let ()
+    (define a 1)
+    (assert (= a 1)))
+  (define))