scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

network: Fix table->network.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-26 22:25:25 +01:00
parent a074258b1a
commit cdb2149358
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
networks.rkt
View file

@ -998,7 +998,10 @@
(table->function (for/list ([in st-ins] [o out]) (table->function (for/list ([in st-ins] [o out])
(list in o))))) (list in o)))))
;; Construct the network. ;; 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 (module+ test
(test-case "table->network" (test-case "table->network"