suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't use /0 as an error

Browse Source 
svn: r4152
This commit is contained in:
Matthew Flatt 2006-08-27 09:55:19 +00:00
parent df317d58e7
commit f735ba32f7
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/benchmarks/common/peval.sch
View File

@ -343,7 +343,6 @@
((eq? (caar env) 'lambda) ((eq? (caar env) 'lambda)
(if (memq var (cadar env)) (car env) (binding-frame var (cdr env)))) (if (memq var (cadar env)) (car env) (binding-frame var (cdr env))))
(else (else
(/ 0)
'(fatal-error "ill-formed environment")))) '(fatal-error "ill-formed environment"))))
(define (bound-expr var frame) (define (bound-expr var frame)
@ -352,7 +351,6 @@
((eq? (car frame) 'lambda) ((eq? (car frame) 'lambda)
not-constant) not-constant)
(else (else
(/ 0)
'(fatal-error "ill-formed frame")))) '(fatal-error "ill-formed frame"))))
(define (add-binding val frame name) (define (add-binding val frame name)

2
collects/tests/mzscheme/benchmarks/common/scheme.sch
View File

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