rs: Make reaction transparent.

This commit is contained in:
Sergiu Ivanov 2020-03-01 19:54:53 +01:00
parent 5c13b468e3
commit a77261c424

3
rs.rkt
View File

@ -23,7 +23,8 @@
;;; inhibitors, and the products, respectively.
(struct reaction ([reactants : (Setof Symbol)]
[inhibitors : (Setof Symbol)]
[products : (Setof Symbol)]))
[products : (Setof Symbol)])
#:transparent)
;;; A reaction is enabled on a set if all of its reactants are in the
;;; set and none of its inhibitors are.