network,build-interaction-graph: Use in-list.

2020-11-18 00:13:00 +01:00 · 2020-11-18 00:13:00 +01:00 · af8428d275
commit af8428d275
parent d190f76fdf
1 changed files with 2 additions and 2 deletions
--- 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))))