wisp
 
(Arne Babenhauserheide)
2016-11-08: three witches: Consecutive Scenes now work

three witches: Consecutive Scenes now work

diff --git a/examples/enter-three-witches.w b/examples/enter-three-witches.w
--- a/examples/enter-three-witches.w
+++ b/examples/enter-three-witches.w
@@ -197,15 +197,20 @@ define-syntax Enter
    : _ b ...
      #' begin #t
 
+
 define-syntax Scene
   lambda (x)
     syntax-case x ()
       : _ thisscene args ...
         with-syntax ((c (datum->syntax x (module-name (current-module)))))
           #` begin ; FIXME: this currently requires the Scene identifier to be a valid symbol -> cannot use "Scene 1"
+             module-re-export! (current-module) 
+               module-map (λ (x y) x)
+                  module-import-interface (current-module) 'Scene ; ensure that all symbols remain available
              define-module (scene thisscene)
-               . #:use-module c
-             re-export Scene
+             import c
+             . #t
+
 
 define : main args
   Enter : First Witch