From a77261c4243dee28ddec4316e9789b05ec215fa3 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sun, 1 Mar 2020 19:54:53 +0100
Subject: [PATCH] rs: Make reaction transparent.

---
 rs.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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.