~ chicken-core (chicken-5) 0862e1597f5f5a2f832ad75e3d8c6dd6ba50a35d

commit 0862e1597f5f5a2f832ad75e3d8c6dd6ba50a35d
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Feb 19 17:42:06 2011 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sat Feb 19 17:42:06 2011 +0100

    Add regression test for behaviour exhibited by #511 - we don't want to accidentally start changing the expander so it doesn't do this check anymore

diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index 45a4d01a..16878b23 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -723,6 +723,16 @@
 (import (prefix rfoo f:))
 (f:rbar 1)
 
+;;; Internal hash-prefixed names shouldn't work within modules
+
+(module one (always-one)
+  (import scheme)
+  (define (always-one) 1))
+
+(f (eval '(module two ()
+            (import scheme)
+            (define (always-two) (+ (one#always-one) 1)))))
+
 ;;; SRFI-26
 
 ;; Cut