fix srcloc-missing-from-exn bug in struct/dc

This commit is contained in:
Robby Findler 2013-05-17 09:54:48 -05:00
parent c2672dd6c9
commit 7eaa072524

View File

@ -587,7 +587,7 @@
[(exp) (values #f #'exp)]
[else (raise-syntax-error 'struct/dc "could not parse clause" stx clause)]))
(indep-clause exp lazy? #'sel-name (name->sel-id #'id #'sel-name)))]
[_ (raise-syntax-error 'struct/dc "could not parse clause" stx #'clause)])))
[_ (raise-syntax-error 'struct/dc "could not parse clause" stx clause)])))
(let ()