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

fixes match

Browse Source 
svn: r6674
This commit is contained in:
Shu-Yu Guo 2007-06-16 16:58:37 +00:00
parent 97f6934eba
commit 5016e59f8e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract-ds.ss
View File

@ -98,7 +98,7 @@ it around flattened out.
(define-syntax name (list-immutable #'struct:-name (define-syntax name (list-immutable #'struct:-name
#'struct-maker #'struct-maker
#'predicate #'predicate
(list-immutable #'selectors ...) (reverse (list-immutable #'selectors ...))
(list-immutable #,@(map (λ (x) #f) (syntax->list #'(selectors ...)))) (list-immutable #,@(map (λ (x) #f) (syntax->list #'(selectors ...))))
#t)) #t))