networks: Properly export dynamics.

2020-11-12 01:07:41 +01:00 · 2020-11-12 01:07:41 +01:00 · 88caecb98a
commit 88caecb98a
parent 6d77052ed6
1 changed files with 3 additions and 2 deletions
--- 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?)]