From ff6fa2c88b9ff909b545938c108e50cca2a32f57 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sun, 22 Nov 2020 22:11:25 +0100
Subject: [PATCH] network: Fix the test for make-boolean-network.

---
 networks.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/networks.rkt b/networks.rkt
index 9b3ca39..bb32b4c 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -198,7 +198,7 @@
     (define f2 (λ (s) (let ([x2 (hash-ref s 'x2)])
                         (not x2))))
     (define bn (make-boolean-network (hash 'x1 f1 'x2 f2)))
-    (check-equal? (hash 'x1 '(#f #t) 'x2 '(#f #t)))))
+    (check-equal? (network-domains bn) (hash 'x1 '(#f #t) 'x2 '(#f #t)))))
 
 ;;; Given a state s updates all the variables from xs.
 (define (update network s xs)