adding test files for tracing the module scoping bug

tests/more-tests/module-scoping-helper.rkt

@@ -0,0 +1,10 @@
+#lang planet dyoo/whalesong
+(require (for-syntax racket/base))
+(provide x x++ x=0)
+(define x 0)
+(define (set-x v)
+  (set! x v))
+(define-syntax (x++ stx)
+  #'(set-x (add1 x)))
+(define-syntax (x=0 stx)
+  #'(set-x 0))

tests/more-tests/module-scoping.rkt

@@ -0,0 +1,13 @@
+#lang planet dyoo/whalesong
+(require "module-scoping-helper.rkt")
+x
+x++
+x++
+x
+x=0
+x++
+x
+x++
+x
+x++
+x