networks, generic: Make all set/c arguments 'dont-care.

This commit is contained in:
Sergiu Ivanov 2020-02-23 13:38:18 +01:00
parent fea113c1dd
commit 95d248c548
2 changed files with 2 additions and 2 deletions

View file

@ -12,7 +12,7 @@
gen:dds gen:dds
;; Functions ;; Functions
(contract-out [dds-step-one (-> dds? any/c (set/c any/c))] (contract-out [dds-step-one (-> dds? any/c (set/c any/c))]
[dds-step (-> dds? (set/c any/c) (set/c any/c))]) [dds-step (-> dds? (set/c any/c #:kind 'dont-care) (set/c any/c))])
;; Predicates ;; Predicates
(contract-out [dds? (-> any/c boolean?)])) (contract-out [dds? (-> any/c boolean?)]))

View file

@ -37,7 +37,7 @@
[make-asyn-dynamics (-> network? dynamics?)] [make-asyn-dynamics (-> network? dynamics?)]
[make-syn-dynamics (-> network? dynamics?)] [make-syn-dynamics (-> network? dynamics?)]
[dds-step-one (-> dynamics? state? (set/c state?))] [dds-step-one (-> dynamics? state? (set/c state?))]
[dds-step (-> dynamics? (set/c state?) (set/c state?))]) [dds-step (-> dynamics? (set/c state? #:kind 'dont-care) (set/c state?))])
;; Predicates ;; Predicates
(contract-out [variable? (-> any/c boolean?)] (contract-out [variable? (-> any/c boolean?)]
[state? (-> any/c boolean?)] [state? (-> any/c boolean?)]