Change name of failed-typecheck.
original commit: 7d2b085baadecbf512a584ea44c7f40db0f903da
This commit is contained in:
parent
36dd128bd1
commit
ecd4c40bf4
|
@ -17,7 +17,7 @@
|
|||
typed-require/struct
|
||||
predicate-assertion
|
||||
type-declaration
|
||||
failed-typecheck
|
||||
typecheck-failure
|
||||
|
||||
type-alias?
|
||||
typed-struct?
|
||||
|
@ -113,7 +113,7 @@
|
|||
(assert-predicate-internal type predicate)]
|
||||
[type-declaration
|
||||
(:-internal id:identifier type)]
|
||||
[failed-typecheck
|
||||
[typecheck-failure
|
||||
(typecheck-fail-internal stx message:str var:id)])
|
||||
|
||||
;;; Internal form creation
|
||||
|
|
|
@ -189,7 +189,7 @@
|
|||
;; We trust ignore to be only on syntax objects objects that are well typed
|
||||
expected]
|
||||
;; explicit failure
|
||||
[t:failed-typecheck
|
||||
[t:typecheck-failure
|
||||
(explicit-fail #'t.stx #'t.message #'t.var)]
|
||||
;; data
|
||||
[(quote #f) (ret (-val #f) -false-filter)]
|
||||
|
@ -329,7 +329,7 @@
|
|||
(check-subforms/ignore form)
|
||||
(ret Univ)]
|
||||
;; explicit failure
|
||||
[t:failed-typecheck
|
||||
[t:typecheck-failure
|
||||
(explicit-fail #'t.stx #'t.message #'t.var)]
|
||||
;; data
|
||||
[(quote #f) (ret (-val #f) -false-filter)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user