From aea6c90b571f8c3e7ae37c9a0a3f67be62e5f8b8 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 18 Apr 2015 07:48:06 -0700 Subject: [PATCH] simplify test evaluators --- sugar/test/main.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/sugar/test/main.rkt b/sugar/test/main.rkt index 15126d6..2b795b2 100644 --- a/sugar/test/main.rkt +++ b/sugar/test/main.rkt @@ -1,13 +1,13 @@ -#lang racket/base -(require (for-syntax racket/base racket/syntax)) +#lang racket +(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 - (require rackunit sugar net/url racket/list racket/set racket/match) + (module sym racket + (require rackunit sugar net/url) exprs ...) (require 'sym)))])) @@ -16,8 +16,8 @@ [(_ exprs ...) (with-syntax ([sym (generate-temporary)]) #'(begin - (module sym typed/racket/base - (require typed/rackunit typed/sugar typed/net/url racket/list racket/list racket/set racket/match) + (module sym typed/racket + (require typed/rackunit typed/sugar typed/net/url) exprs ...) (require 'sym)))]))