From fd651ba4cc9a26bc54a44ca009b1a37fb959a865 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sun, 22 Nov 2020 21:35:19 +0100 Subject: [PATCH] network,Dynamics: Fixes. --- networks.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/networks.rkt b/networks.rkt index 4a698ba..cf2bd50 100644 --- a/networks.rkt +++ b/networks.rkt @@ -676,7 +676,7 @@ ;;; Given a network, applies a function for building a mode to its ;;; variables and returns the corresponding network dynamics. (define (make-dynamics-from-func network mode-func) - (dynamics network (mode-func (hash-keys network)))) + (dynamics network (mode-func (hash-keys (network-functions network))))) ;;; Creates the asynchronous dynamics for a given network. (define (make-asyn-dynamics network) @@ -688,7 +688,7 @@ (module+ test (test-case "make-asyn-dynamics, make-syn-dynamics" - (define n (network-form->network #hash((a . (not a)) (b . b)))) + (define n (forms->boolean-network #hash((a . (not a)) (b . b)))) (define asyn (make-asyn-dynamics n)) (define syn (make-syn-dynamics n)) (check-equal? (dynamics-network asyn) n) @@ -748,7 +748,7 @@ (module+ test (test-case "Dynamics of networks" - (define n (network-form->network #hash((a . (not a)) (b . b)))) + (define n (forms->boolean-network #hash((a . (not a)) (b . b)))) (define asyn (make-asyn-dynamics n)) (define syn (make-syn-dynamics n)) (define s (make-state '((a . #t) (b . #f))))