scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

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

Browse source
This commit is contained in:
Sergiu Ivanov 2020-03-01 19:24:32 +01:00
parent d7e189eef0
commit 3732d4897e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
rs.rkt
View file

@ -37,7 +37,7 @@
(define-type ReactionSystem (HashTable Symbol reaction)) (define-type ReactionSystem (HashTable Symbol reaction))
;;; Returns the list of reaction names enabled on a given set. ;;; 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) (define (list-enabled rs s)
(for/list ([(name reaction) (in-hash rs)] (for/list ([(name reaction) (in-hash rs)]
#:when (enabled? reaction s)) #:when (enabled? reaction s))