drop [⊢ [e-stx]] ⇐-conclusion since it causes ambiguity and is undocumented

2016-10-05 10:32:53 -04:00 · 2016-10-05 10:32:53 -04:00 · 3ec2dfa431
commit 3ec2dfa431
parent 5296774b9a
1 changed files with 1 additions and 1 deletions
--- a/turnstile/turnstile.rkt
+++ b/turnstile/turnstile.rkt
@ -308,7 +308,7 @@
                  [⊢ [e-stx props:⇒-props/conclusion]])
             #:with :last-clause #'[⊢ [_ ≫ e-stx . props]]]
    ;; ⇐ conclusion
-    [pattern (~or [⊢ [e-stx]] [⊢ (~and e-stx (~not [_ ≫ . rst]))])
+    [pattern [⊢ (~and e-stx (~not [_ ≫ . rst]))]
             #:with :last-clause #'[⊢ [_ ≫ e-stx ⇐ : _]]]
    [pattern (~or [⊢ pat* ≫ e-stx ⇐ τ-pat]
                  [⊢ pat* ≫ e-stx ⇐ : τ-pat]