adjust testing macro

sugar/test/main.rkt

@@ -1,22 +1,21 @@
 #lang racket
-(require (for-syntax racket/syntax))
+(require (for-syntax racket/syntax syntax/strip-context))
 
 (define-syntax (eval-as-untyped stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (let ([sym (generate-temporary)]
+     (with-syntax ([module-without-contracts (generate-temporary)]
-           [sym2 (generate-temporary)])
+                   [module-with-contracts (generate-temporary)])
-       (datum->syntax
+       (replace-context stx
-        stx
+                        #'(begin
-        `(begin
+                            (module module-without-contracts racket
-          (module ,sym racket
+                              (require rackunit "../main.rkt" net/url)
-            (require rackunit "../main.rkt" net/url)
+                              exprs ...)
-            ,@(syntax->datum #'(exprs ...)))
+                            (require 'module-without-contracts)
-          (require ',sym)
+                            (module module-with-contracts racket
-          (module ,sym2 racket
+                              (require rackunit (submod "../main.rkt" safe) net/url)
-            (require rackunit (submod "../main.rkt" safe) net/url)
+                              exprs ...)
-            ,@(syntax->datum #'(exprs ...)))
+                            (require 'module-with-contracts))))]))
-          (require ',sym2))))]))
 
 
 (eval-as-untyped