rs,list-enabled: Made the type signature more explicit.
This commit is contained in:
parent
d7e189eef0
commit
3732d4897e
1 changed files with 1 additions and 1 deletions
2
rs.rkt
2
rs.rkt
|
@ -37,7 +37,7 @@
|
|||
(define-type ReactionSystem (HashTable Symbol reaction))
|
||||
|
||||
;;; Returns the list of reaction names enabled on a given set.
|
||||
(: list-enabled (-> ReactionSystem (Setof Symbol) (Listof Symbol)))
|
||||
(: list-enabled (-> ReactionSystem (Setof Species) (Listof Symbol)))
|
||||
(define (list-enabled rs s)
|
||||
(for/list ([(name reaction) (in-hash rs)]
|
||||
#:when (enabled? reaction s))
|
||||
|
|
Loading…
Reference in a new issue