suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

new-style define-serializable-struct

Browse Source 
svn: r7871

original commit: f520abb24c59bbd59b9cc3056f5b40dd2c63ef93
This commit is contained in:
Matthew Flatt 2007-11-30 19:02:15 +00:00
parent 85ce73089c
commit 104767d7e3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/struct.ss
View File

@ -1,6 +1,6 @@
(module struct scheme/base (module struct scheme/base
(require mzlib/serialize (require scheme/serialize
scheme/contract scheme/contract
(for-syntax scheme/base)) (for-syntax scheme/base))
@ -66,7 +66,7 @@
(syntax-case stx () (syntax-case stx ()
[(_ (id ([field ct] ...)) ...) [(_ (id ([field ct] ...)) ...)
#`(begin #`(begin
(define-serializable-struct id (field ...)) ... (define-serializable-struct id (field ...) #:mutable) ...
(provide/contract (provide/contract
#,@(let ([ids (syntax->list #'(id ...))] #,@(let ([ids (syntax->list #'(id ...))]
[fields+cts (syntax->list #'(([field ct] ...) ...))]) [fields+cts (syntax->list #'(([field ct] ...) ...))])