Fix unchecked struct with custom constructor (#3301)
Fix a bug introduced in #3267 Related to: #3300 Sounds good to me!
This commit is contained in:
parent
39b37dd892
commit
7c903871bd
|
@ -1477,4 +1477,10 @@
|
|||
|
||||
;; ----------------------------------------
|
||||
|
||||
(let ()
|
||||
(struct exn:foo exn () #:constructor-name make-exn:foo)
|
||||
(test "foo" exn-message (make-exn:foo "foo" (current-continuation-marks))))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
||||
(report-errs)
|
||||
|
|
|
@ -700,7 +700,7 @@
|
|||
#'make-self-ctor-struct-info
|
||||
(if include-autos?
|
||||
#'make-struct-auto-info
|
||||
#'make-struct-info)))]
|
||||
#'make-struct-field-info)))]
|
||||
[define-syntax-body
|
||||
#`(#,mk-info
|
||||
(lambda ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user