Change name of failed-typecheck.

original commit: 7d2b085baadecbf512a584ea44c7f40db0f903da
This commit is contained in:
Eric Dobson 2013-11-13 08:20:20 -08:00
parent 36dd128bd1
commit ecd4c40bf4
2 changed files with 4 additions and 4 deletions

View File

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

View File

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