fix use of the wrong blame in struct/dc

This commit is contained in:
Matthew Flatt 2015-03-31 17:42:22 -06:00
parent a27f06b690
commit 9481e3956d

View File

@ -1429,7 +1429,7 @@
#,@(reverse s-chap-code) ;; built the last backwards, so reverse it here
stronger-prop-desc
(vector free-var ...)))
(struct/dc-error blame #,(opt/info-val opt/info) 'struct-name))))
(struct/dc-error #,(opt/info-blame opt/info) #,(opt/info-val opt/info) 'struct-name))))
#:lifts
s-lifts
#:superlifts