From f735ba32f7dd7a59fb08ec45e5416737d2152896 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 27 Aug 2006 09:55:19 +0000
Subject: [PATCH] don't use /0 as an error

svn: r4152
---
 collects/tests/mzscheme/benchmarks/common/peval.sch  | 2 --
 collects/tests/mzscheme/benchmarks/common/scheme.sch | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

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)
 
 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -