suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: e9d213313f9126a07312596cc07b52e1db78c96a
This commit is contained in:
Matthew Flatt 2002-06-12 14:32:55 +00:00
parent ce351178cc
commit 93f48397ab
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/mzlib/compat.ss
View File

@ -109,8 +109,8 @@
(append fields init-fields)))])
(syntax
(define-values (struct: make- ? gs ...)
(let-values ([(struct: make- ? gs ...)
(struct sname (field ... init-field ...))])
(let ()
(define-struct sname (field ... init-field ...))
(values struct:
(let ([make- (lambda (field ...)
(make- field ...