From 34ceccc446374610e91b8a269bd483dab242eb04 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Mon, 23 Nov 2020 23:16:11 +0100
Subject: [PATCH] networks: Fix build-syntactic-interaction-graph.

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

diff --git a/networks.rkt b/networks.rkt
index 646763c..13ad415 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -370,7 +370,8 @@
 (define (build-syntactic-interaction-graph n)
   (transpose
    (unweighted-graph/adj
-    (for/list ([(var _) n]) (cons var (list-syntactic-interactions n var))))))
+    (for/list ([(var _) (in-hash (network-form-forms n))])
+      (cons var (list-syntactic-interactions n var))))))
 
 (module+ test
   (test-case "build-syntactic-interaction-graph"