diff --git a/collects/tests/mzscheme/benchmarks/common/peval.sch b/collects/tests/mzscheme/benchmarks/common/peval.sch index 2a7b04dfa0..dfa6ce3791 100644 --- a/collects/tests/mzscheme/benchmarks/common/peval.sch +++ b/collects/tests/mzscheme/benchmarks/common/peval.sch @@ -343,7 +343,6 @@ ((eq? (caar env) 'lambda) (if (memq var (cadar env)) (car env) (binding-frame var (cdr env)))) (else - (/ 0) '(fatal-error "ill-formed environment")))) (define (bound-expr var frame) @@ -352,7 +351,6 @@ ((eq? (car frame) 'lambda) not-constant) (else - (/ 0) '(fatal-error "ill-formed frame")))) (define (add-binding val frame name) diff --git a/collects/tests/mzscheme/benchmarks/common/scheme.sch b/collects/tests/mzscheme/benchmarks/common/scheme.sch index d720832d9e..9761ad7df7 100644 --- a/collects/tests/mzscheme/benchmarks/common/scheme.sch +++ b/collects/tests/mzscheme/benchmarks/common/scheme.sch @@ -16,7 +16,7 @@ name) (define (scheme-error msg . args) - (/ 0)) + 'error) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -