From ab2d0f8f0c3a5b6ca1648ccb36b7309eb3bd65d3 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 7 Nov 2011 11:44:54 +0100
Subject: [PATCH] another scoping test

* test-suite/tests/syntax.test ("top-level define"): Add another test
  for scoping.
---
 test-suite/tests/syntax.test | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 31d992120..e99bdfb27 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -812,6 +812,19 @@
          (define-10 foo)
          (foo))
       (current-module))
+     10))
+
+  (pass-if "module scoping, same symbolic name"
+    (equal?
+     (eval
+      '(begin
+         (define-module (top-level-define/module-scoping-3))
+         (define a 10)
+         (define-module (top-level-define/module-scoping-4)
+           #:use-module (top-level-define/module-scoping-3))
+         (define a (@@ (top-level-define/module-scoping-3) a))
+         a)
+      (current-module))
      10)))
 
 (with-test-prefix "internal define"