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:
sorawee 2020-07-18 16:32:58 -07:00 committed by GitHub
parent 39b37dd892
commit 7c903871bd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 7 additions and 1 deletions

View File

@ -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)

View File

@ -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 ()