Improve the types in bfs/generalized and dfs/generalized.

graph.rkt

@@ -275,8 +275,8 @@
   [bfs/generalized (->* (Graph Any)
                         (#:init-queue Any ; TODO: Add a proper type.
                          #:break (-> Graph Any Any Any Boolean)
-                         #:init (-> Graph Any Void)
-                         #:visit? (-> Graph Any Any Any Boolean)
+                         #:init (U (-> Graph Any Void) Void)
+                         #:visit? (U (-> Graph Any Any Any Boolean) False)
                          #:discover (-> Graph Any Any Any Any Any)
                          #:visit (-> Graph Any Any Any Any)
                          #:return (-> Graph Any Any Any))
@@ -290,9 +290,9 @@
   [dfs/generalized (->* (Graph)
                         (#:order (-> (Listof Any) (Listof Any))
                          #:break (-> Graph Any Any Any Boolean)
-                         #:init (-> Graph Void)
+                         #:init (U (-> Graph Void) Void)
                          #:inner-init (-> Any Any)
-                         #:visit? (-> Graph Any Any Boolean)
+                         #:visit? (U (-> Graph Any Any Boolean) False)
                          #:prologue (-> Graph Any Any Any Any)
                          #:epilogue (-> Graph Any Any Any Any)
                          #:process-unvisited? (-> Graph Any Any Boolean)