network: Fix table->network.

networks.rkt

@@ -998,7 +998,10 @@
                   (table->function (for/list ([in st-ins] [o out])
                                      (list in o)))))
   ;; Construct the network.
-  (network (map cons var-names funcs) (hash)))
+  (network (for/hash ([x (in-list var-names)]
+                      [f (in-list funcs)])
+             (values x f))
+           (hash)))
 
 (module+ test
   (test-case "table->network"