From 27bb25c2010d18d7898753e0e3582da24278346a Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sun, 22 Nov 2020 21:26:26 +0100 Subject: [PATCH] networks: Fix signed interaction graphs. --- networks.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/networks.rkt b/networks.rkt index 93fa991..179dcd8 100644 --- a/networks.rkt +++ b/networks.rkt @@ -336,13 +336,13 @@ ;;; function form for x. (define (list-syntactic-interactions nf x) (set-intersect - (extract-symbols (hash-ref nf x)) + (extract-symbols (hash-ref (network-form-forms nf) x)) (hash-keys nf))) (module+ test (test-case "list-syntactic-interactions" - (define n #hash((a . (+ a b c)) - (b . (- b c)))) + (define n (make-boolean-network-form #hash((a . (+ a b c)) + (b . (- b c))))) (check-true (set=? (list-syntactic-interactions n 'a) '(a b))) (check-true (set=? (list-syntactic-interactions n 'b) '(b))))) @@ -366,8 +366,8 @@ (module+ test (test-case "build-syntactic-interaction-graph" - (define n #hash((a . (+ a b c)) - (b . (- b c)))) + (define n (make-boolean-network-form #hash((a . (+ a b c)) + (b . (- b c))))) (define ig (build-syntactic-interaction-graph n)) (check-true (has-vertex? ig 'a)) (check-true (has-vertex? ig 'b))