fix ty-var bug

2019-05-10 10:27:30 -04:00 · 2019-05-10 10:27:30 -04:00 · 75539d0ec3
parent 47d2568a93
commit 75539d0ec3
1 changed files with 1 additions and 1 deletions
--- a/racket/typed/core-types.rkt
+++ b/racket/typed/core-types.rkt
@ -728,7 +728,7 @@
      (free-identifier=? #'X #'Y)]
     [((~∀ (X:id ...) τ1) (~∀ (Y:id ...) τ2))
      #:when (stx-length=? #'(X ...) #'(Y ...))
-      #:with τ2-X/Y (substs #'(Y ...) #'(X ...) #'τ2)
+      #:with τ2-X/Y (substs #'(X ...) #'(Y ...) #'τ2)
      (<: #'τ1 #'τ2-X/Y)]
     [((~Base τ1:id) (~Base τ2:id))
      (free-identifier=? #'τ1 #'τ2)]