Permalink
Browse files

fix missing select

  • Loading branch information...
1 parent c96439c commit 29400462985edd44610aac6a5ecc3cf6eb8b7bfb @samth committed Apr 24, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 constraints.rkt
View
@@ -83,7 +83,7 @@
[(where α (fresh-α))
---
- (typ/e Γ x α ((:= α (Γ x))))]
+ (typ/e Γ x α ((:= α (select Γ x))))]
[(typ/e Γ e σ (C ...))
(where α (fresh-α))
@@ -99,6 +99,7 @@
(judgment-holds (typ/e () (+ 3 4) σ_1 Cs_1) (σ_1 Cs_1))
+(judgment-holds (typ/e () (dot z w) σ_1 Cs_1) (σ_1 Cs_1))
(judgment-holds (typ/e () (+ y (dot z w)) σ_1 Cs_1) (σ_1 Cs_1))

0 comments on commit 2940046

Please sign in to comment.