networks: Fix build-syntactic-interaction-graph.
This commit is contained in:
parent
fbd6ded717
commit
34ceccc446
1 changed files with 2 additions and 1 deletions
|
@ -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"
|
||||||
|
|
Loading…
Reference in a new issue