From 0085eb964bbdfd1cba31972fc7b5a4e7f05af4a7 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sun, 22 Nov 2020 22:02:56 +0100
Subject: [PATCH] networks: Fix make-boolean-network.

---
 networks.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/networks.rkt b/networks.rkt
index ae0f158..9b76583 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -1410,8 +1410,8 @@
 
 ;;; Constructs a network from a network form defining a TBN.
 (define (tbn->network tbn)
-  (for/hash ([(var tbf) (in-hash tbn)])
-    (values var ((curry apply-tbf/state) tbf))))
+  (make-boolean-network (for/hash ([(var tbf) (in-hash tbn)])
+                          (values var ((curry apply-tbf/state) tbf)))))
 
 (module+ test
   (test-case "tbn->network"