From f232e56623731da5077f1949dfc60e3e84ce6300 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Nov 2012 10:54:02 -0600 Subject: [PATCH] tweak optimization tests Use `racket/base' to speed up the test suite --- collects/tests/racket/optimize.rktl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/racket/optimize.rktl b/collects/tests/racket/optimize.rktl index 9e47596018..971b34345c 100644 --- a/collects/tests/racket/optimize.rktl +++ b/collects/tests/racket/optimize.rktl @@ -1299,10 +1299,10 @@ (let ([try-equiv (lambda (extras) (lambda (a b) - (test-comp `(module m racket + (test-comp `(module m racket/base (define (f x) (apply x ,@extras ,a))) - `(module m racket + `(module m racket/base (define (f x) (x ,@extras ,@b))))))]) (map (lambda (try-equiv) @@ -1321,7 +1321,7 @@ (try-equiv '(0)) (try-equiv '(0 1))))) -(test-comp '(module m mzscheme +(test-comp '(module m racket/base (define (q x) ;; Single-use bindings should be inlined always: (let* ([a (lambda (x) (+ x 10))] @@ -1336,7 +1336,7 @@ [j (lambda (x) (+ 1 (i x)))] [k (lambda (x) (+ 1 (j x)))]) (k x)))) - '(module m mzscheme + '(module m racket/base (define (q x) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ x 10))))))))))))))