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

Added error checking in the graphs-typed benchmark.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-05-19 10:33:15 -04:00
parent 1ac3f6905f
commit 63be1f51ed
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/racket/benchmarks/common/graphs-typed.rkt
View File

@ -377,9 +377,8 @@
state)) state))
((more) ((more)
(accross state)) (accross state))
;;(else (else
;; (assert #f)) (error "can't happen"))))
))
0 0
(lambda: ((leaf-depth : Integer) (lambda: ((leaf-depth : Integer)
(state : Boolean) (state : Boolean)
@ -504,9 +503,8 @@
#f) #f)
((equal more) ((equal more)
(accross #t)) (accross #t))
;(else (else
; (assert #f)) (error "can't happen"))))))
))))
(lambda () (lambda ()
(minimal-folder root (minimal-folder root
edge? edge?