simplify test evaluators

sugar/test/main.rkt

@@ -1,13 +1,13 @@
-#lang racket/base
+#lang racket
-(require (for-syntax racket/base racket/syntax))
+(require (for-syntax racket/syntax))
 
 (define-syntax (eval-as-untyped stx)
   (syntax-case stx ()
     [(_ exprs ...)
      (with-syntax ([sym (generate-temporary)]) 
        #'(begin
-           (module sym racket/base
+           (module sym racket
-             (require rackunit sugar net/url racket/list racket/set racket/match)
+             (require rackunit sugar net/url)
              exprs ...)
            (require 'sym)))]))
 
@@ -16,8 +16,8 @@
     [(_ exprs ...)
      (with-syntax ([sym (generate-temporary)]) 
        #'(begin
-           (module sym typed/racket/base
+           (module sym typed/racket
-             (require typed/rackunit typed/sugar typed/net/url racket/list racket/list racket/set racket/match)
+             (require typed/rackunit typed/sugar typed/net/url)
              exprs ...)
            (require 'sym)))]))