Added error checking in the graphs-typed benchmark.

2010-05-19 10:33:15 -04:00 · 2010-05-19 10:33:15 -04:00 · 63be1f51ed
commit 63be1f51ed
parent 1ac3f6905f
1 changed files with 4 additions and 6 deletions
--- a/collects/tests/racket/benchmarks/common/graphs-typed.rkt
+++ b/collects/tests/racket/benchmarks/common/graphs-typed.rkt
@ -377,9 +377,8 @@
                                     state))
 			    ((more)
                             (accross state))
-                            ;;(else
-                            ;; (assert #f))
-                            ))
+                            (else
+                             (error "can't happen"))))
                 0
                 (lambda: ((leaf-depth : Integer)
                           (state : Boolean)
@ -504,9 +503,8 @@
 					    #f)
 					((equal more)
 					    (accross #t))
-					;(else
-					;    (assert #f))
-                                        ))))
+					(else
+                                         (error "can't happen"))))))
 			(lambda ()
 			    (minimal-folder root
                                            edge?