From 7dd003deff0087f0d9b94f1589cf50084ba3dd7f Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 20 Mar 2016 09:22:49 -0700
Subject: [PATCH] tweak

---
 br/eopl.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/br/eopl.rkt b/br/eopl.rkt
index 4562039..f6fefb2 100644
--- a/br/eopl.rkt
+++ b/br/eopl.rkt
@@ -31,8 +31,8 @@
 (define #'(define-datatype <base-type> <base-type-predicate?>
             (<subtype> [<field> <field-predicate?>] ...) ...)
   #'(begin
-      (struct <base-type> () #:transparent)
-      (struct <subtype> <base-type> (<field> ...) #:transparent
+      (struct <base-type> () #:transparent #:mutable)
+      (struct <subtype> <base-type> (<field> ...) #:transparent #:mutable
         #:guard (λ(<field> ... name)
                   (unless (<field-predicate?> <field>)
                     (error name (format "arg ~a is not ~a" <field> '<field-predicate?>))) ...