From 88caecb98aff28946a3f9bac0df567f923d8bf45 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Thu, 12 Nov 2020 01:07:41 +0100
Subject: [PATCH] networks: Properly export dynamics.

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

diff --git a/networks.rkt b/networks.rkt
index 6f5845f..6504632 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -15,9 +15,10 @@
 
 (provide
  ;; Structures
- (struct-out dynamics)
  (contract-out [struct tbf/state ([weights (hash/c variable? number?)]
-                                  [threshold number?])])
+                                  [threshold number?])]
+               [struct dynamics ([network network?]
+                                 [mode mode?])])
  ;; Functions
  (contract-out [update (-> network? state? (set/c variable? #:kind 'dont-care) state?)]
                [make-state (-> (listof (cons/c symbol? any/c)) state?)]