diff --git a/rs.rkt b/rs.rkt index 23a78d7..b01d86c 100644 --- a/rs.rkt +++ b/rs.rkt @@ -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.