---

yaml
---
r: 3821
b: refs/heads/master
c: 1870e97
h: refs/heads/master
i:
  3819: 4de6681
v: v3

Author: catamorphism

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: e45819ad70f338b942fda745ef7127bde7c3577a
+refs/heads/master: 1870e975599e3687672db4656c60b494c2ce7232

trunk/src/comp/syntax/visit.rs

@@ -179,6 +179,13 @@ fn visit_ty[E](&@ty t, &E e, &vt[E] v) {
     }
 }
 
+fn visit_ty_opt[E](&option::t[@ty] ot, &E e, &vt[E] v) {
+    alt (ot) {
+        case (none) {}
+        case (some(?t)) { v.visit_ty(t, e, v); }
+    }
+}
+
 fn visit_constr[E](&@constr c, &E e, &vt[E] v) {
     // default
 
@@ -369,7 +376,7 @@ fn visit_expr[E](&@expr ex, &E e, &vt[E] v) {
         case (expr_log(_, ?x)) { v.visit_expr(x, e, v); }
         case (expr_check(_, ?x)) { v.visit_expr(x, e, v); }
         case (expr_assert(?x)) { v.visit_expr(x, e, v); }
-        case (expr_port(_)) { }
+        case (expr_port(?t)) { visit_ty_opt(t, e, v); }
         case (expr_chan(?x)) { v.visit_expr(x, e, v); }
         case (expr_anon_obj(?anon_obj, _)) {
             alt (anon_obj.fields) {

trunk/src/test/run-fail/port-type.rs

@@ -0,0 +1,16 @@
+// xfail-stage0
+// error-pattern:meep
+fn echo[T](chan[T] c, chan[chan[T]] oc) {
+  // Tests that the type argument in port gets
+  // visited
+        auto p = port[T]();
+        oc <| chan(p);
+
+        auto x;
+        p |> x;
+        c <| x;
+}
+
+fn main() {
+  fail "meep";
+}