From 798178852cf9110407464492fa3186a987ac361a Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sun, 23 Feb 2020 00:55:34 +0100
Subject: [PATCH] networks-test: Use make-boolean-domains.

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

diff --git a/networks-tests.rkt b/networks-tests.rkt
index 10aeb4d..48ec170 100644
--- a/networks-tests.rkt
+++ b/networks-tests.rkt
@@ -76,6 +76,6 @@
                 '((a . (#f #t)) (b . (#f #t))))
 
   (let ([n #hash((a . (not b)) (b . a))]
-        [doms (make-immutable-hash (for/list ([var '(a b)]) (cons var '(#f #t))))])
+        [doms (make-boolean-domains '(a b))])
     (check-equal? (get-interaction-sign n doms 'a 'b) '+)
     (check-equal? (get-interaction-sign n doms 'b 'a) '-)))