From e4ccfc0e2545e23aed935cd6424d59675dd1d6c4 Mon Sep 17 00:00:00 2001 From: John Clements Date: Thu, 29 Oct 2009 19:23:08 +0000 Subject: [PATCH] removed extra arg from call to 'go' svn: r16457 --- collects/tests/stepper/test-engine.ss | 2 -- collects/tests/stepper/through-tests.ss | 10 +--------- 2 files changed, 1 insertion(+), 11 deletions(-) diff --git a/collects/tests/stepper/test-engine.ss b/collects/tests/stepper/test-engine.ss index 5614bdf62a..062c5f2cc6 100644 --- a/collects/tests/stepper/test-engine.ss +++ b/collects/tests/stepper/test-engine.ss @@ -178,8 +178,6 @@ show-lambdas-as-lambdas? ;; language level: 'testing - ;; run-in-drscheme thunk: - (lambda (thunk) (thunk)) (disable-stepper-error-handling)))) (error-display-handler current-error-display-handler))) diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss index 6b1226b31e..1a02656461 100755 --- a/collects/tests/stepper/through-tests.ss +++ b/collects/tests/stepper/through-tests.ss @@ -302,13 +302,6 @@ -> {(cond (else 3))} -> {3}) -(t 'identical-clauses m:upto-int/lam - (cond [(= 1 1) true] [(= 1 1) true]) - :: (cond [{(= 1 1)} true] [(= 1 1) true]) - -> (cond [{true} true] [(= 1 1) true]) - :: {(cond [true true] [(= 1 1) true])} - -> {true}) - ;; reconstruct can't handle 'begin' #; (m:mz "(cond [#f 3 4] [#t (+ 3 4) (+ 4 9)])" @@ -1450,7 +1443,6 @@ #;(run-tests '(check-expect forward-ref check-within check-within-bad check-error check-error-bad)) #;(run-tests '(teachpack-universe)) #;(run-tests '(check-expect check-within)) - (run-tests '(identical-clauses)) - #;(run-all-tests))) + (run-all-tests)))