From af8428d275572e69a096a1dbd3d49efb713accb8 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Wed, 18 Nov 2020 00:13:00 +0100
Subject: [PATCH] network,build-interaction-graph: Use in-list.

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

diff --git a/networks.rkt b/networks.rkt
index b7a8b91..ccd2a8a 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -511,8 +511,8 @@
 (define (build-interaction-graph network doms)
   (define vars (hash-keys network))
   (unweighted-graph/directed
-   (for*/list ([x vars]
-               [y vars]
+   (for*/list ([x (in-list vars)]
+               [y (in-list vars)]
                #:when (interaction? network doms x y))
      (list x y))))