bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 104767d7e356c4628156f123fbc39045f479bf1d
parent 85ce73089c4b65d219bae3da2fd411f86974d568
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 30 Nov 2007 19:02:15 +0000

new-style define-serializable-struct

svn: r7871

original commit: f520abb24c59bbd59b9cc3056f5b40dd2c63ef93

Diffstat:
M
collects/scribble/struct.ss
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/struct.ss b/collects/scribble/struct.ss
@@ -1,6 +1,6 @@
 
 (module struct scheme/base
-  (require mzlib/serialize
+  (require scheme/serialize
            scheme/contract
            (for-syntax scheme/base))
 
@@ -66,7 +66,7 @@
     (syntax-case stx ()
       [(_ (id ([field ct] ...)) ...)
        #`(begin
-           (define-serializable-struct id (field ...)) ...
+           (define-serializable-struct id (field ...) #:mutable) ...
            (provide/contract
             #,@(let ([ids (syntax->list #'(id ...))]
                      [fields+cts (syntax->list #'(([field ct] ...) ...))])