don't use /0 as an error

svn: r4152

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)

collects/tests/mzscheme/benchmarks/common/scheme.sch

@@ -16,7 +16,7 @@
   name)
 
 (define (scheme-error msg . args)
-  (/ 0))
+  'error)
 
 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -