From 104767d7e356c4628156f123fbc39045f479bf1d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Nov 2007 19:02:15 +0000 Subject: [PATCH] new-style define-serializable-struct svn: r7871 original commit: f520abb24c59bbd59b9cc3056f5b40dd2c63ef93 --- collects/scribble/struct.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/struct.ss b/collects/scribble/struct.ss index 3b7bdb15..06d64c0f 100644 --- 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] ...) ...))])