rs,list-enabled: Made the type signature more explicit.

This commit is contained in:
Sergiu Ivanov 2020-03-01 19:24:32 +01:00
parent d7e189eef0
commit 3732d4897e

2
rs.rkt
View file

@ -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))