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

299.201

Browse Source 
svn: r572

original commit: 4ad1f381419081362c07a66fb5e19db5834b7304
This commit is contained in:
Matthew Flatt 2005-08-09 13:41:06 +00:00
parent 23798adf48
commit 7209b76239
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/struct.ss
View File

@ -53,7 +53,7 @@
(let ([dests
(map
(lambda (field)
(or (ormap (lambda (f2) (and (module-or-top-identifier=? field f2) f2)) accessors)
(or (ormap (lambda (f2) (and f2 (module-or-top-identifier=? field f2) f2)) accessors)
(raise-syntax-error #f "accessor name not associated with the given structure type" stx field)))
as)])
;; Check for duplicates using dests, not as, because mod=? as might not be id=?
@ -64,7 +64,8 @@
stx
;; Map back to an original field:
(ormap (lambda (a)
(and (module-or-top-identifier=? dupe a)
(and a
(module-or-top-identifier=? dupe a)
a))
(reverse as))))))