Fix use of expected type of ignore expressions.
This commit is contained in:
parent
8de32baf28
commit
ca082c2176
|
@ -244,7 +244,7 @@
|
||||||
(register-ignored! form)
|
(register-ignored! form)
|
||||||
(check-subforms/ignore form)
|
(check-subforms/ignore form)
|
||||||
;; We trust ignore to be only on syntax objects objects that are well typed
|
;; We trust ignore to be only on syntax objects objects that are well typed
|
||||||
expected]
|
(ret -Bottom)]
|
||||||
;; explicit failure
|
;; explicit failure
|
||||||
[t:typecheck-failure
|
[t:typecheck-failure
|
||||||
(explicit-fail #'t.stx #'t.message #'t.var)]
|
(explicit-fail #'t.stx #'t.message #'t.var)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user