networks: Fix build-syntactic-interaction-graph.

This commit is contained in:
Sergiu Ivanov 2020-11-23 23:16:11 +01:00
parent fbd6ded717
commit 34ceccc446

View file

@ -370,7 +370,8 @@
(define (build-syntactic-interaction-graph n) (define (build-syntactic-interaction-graph n)
(transpose (transpose
(unweighted-graph/adj (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 (module+ test
(test-case "build-syntactic-interaction-graph" (test-case "build-syntactic-interaction-graph"