improve some error reporting by moving cuts
This commit is contained in:
parent
c20d075d03
commit
c9c2d2747b
|
@ -131,15 +131,13 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(define-typed-syntax start-facet
|
(define-typed-syntax start-facet
|
||||||
[(_ name:id #:implements spec:type ep ...+) ≫
|
[(_ name:id #:implements ~! spec:type ep ...+) ≫
|
||||||
#:cut
|
|
||||||
[⊢ (start-facet name ep ...) ≫ e- (⇒ ν-f (~effs impl-ty))]
|
[⊢ (start-facet name ep ...) ≫ e- (⇒ ν-f (~effs impl-ty))]
|
||||||
#:fail-unless (simulating-types? #'impl-ty #'spec.norm)
|
#:fail-unless (simulating-types? #'impl-ty #'spec.norm)
|
||||||
"facet does not implement specification"
|
"facet does not implement specification"
|
||||||
------------------------------------------------------------
|
------------------------------------------------------------
|
||||||
[≻ e-]]
|
[≻ e-]]
|
||||||
[(_ name:id #:includes-behavior spec:type ep ...+) ≫
|
[(_ name:id #:includes-behavior ~! spec:type ep ...+) ≫
|
||||||
#:cut
|
|
||||||
[⊢ (start-facet name ep ...) ≫ e- (⇒ ν-f (~effs impl-ty))]
|
[⊢ (start-facet name ep ...) ≫ e- (⇒ ν-f (~effs impl-ty))]
|
||||||
#:fail-unless (type-has-simulating-subgraphs? #'impl-ty #'spec.norm)
|
#:fail-unless (type-has-simulating-subgraphs? #'impl-ty #'spec.norm)
|
||||||
"no subset implements specified behavior"
|
"no subset implements specified behavior"
|
||||||
|
|
Loading…
Reference in New Issue