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

networks: Fix make-boolean-network.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-22 22:02:56 +01:00
parent 5475bc5fbf
commit 0085eb964b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
networks.rkt
View file

@ -1410,8 +1410,8 @@
;;; Constructs a network from a network form defining a TBN. ;;; Constructs a network from a network form defining a TBN.
(define (tbn->network tbn) (define (tbn->network tbn)
(for/hash ([(var tbf) (in-hash tbn)]) (make-boolean-network (for/hash ([(var tbf) (in-hash tbn)])
(values var ((curry apply-tbf/state) tbf)))) (values var ((curry apply-tbf/state) tbf)))))
(module+ test (module+ test
(test-case "tbn->network" (test-case "tbn->network"