---

yaml
---
r: 1403
b: refs/heads/master
c: 80c6726
h: refs/heads/master
i:
  1401: 3574a3e
  1399: 1377acd
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 34c60b6edb810d9f142d248b27d8e6e34c95d63c
+refs/heads/master: 80c67268fc007d55fa0ff193ac0be6ab83640aa6

trunk/src/comp/middle/trans.rs

@@ -2238,7 +2238,7 @@ fn trans_for_each(@block_ctxt cx,
     // escape. This could be determined upstream, and probably ought
     // to be so, eventualy. For first cut, skip this. Null env.
 
-    auto env_ty = T_struct(vec(T_ptr(T_i8())));
+    auto env_ty = T_opaque_closure_ptr(cx.fcx.ccx.tn);
 
 
     // Step 2: Declare foreach body function.
@@ -2283,11 +2283,19 @@ fn trans_for_each(@block_ctxt cx,
     // Step 3: Call iter passing [lliterbody, llenv], plus other args.
 
     alt (seq.node) {
+
         case (ast.expr_call(?f, ?args, ?ann)) {
 
+            auto pair = cx.build.Alloca(T_fn_pair(cx.fcx.ccx.tn,
+                                                  iter_body_llty));
+            auto code_cell = cx.build.GEP(pair,
+                                          vec(C_int(0),
+                                              C_int(abi.fn_field_code)));
+            cx.build.Store(lliterbody, code_cell);
+
             // log "lliterbody: " + val_str(cx.fcx.ccx.tn, lliterbody);
             ret trans_call(cx, f,
-                           some[ValueRef](lliterbody),
+                           some[ValueRef](cx.build.Load(pair)),
                            args,
                            ann);
         }
@@ -3364,7 +3372,7 @@ fn trans_expr(@block_ctxt cx, @ast.expr e) -> result {
             ret trans_ret(cx, e);
         }
 
-        case (ast.expr_ret(?e)) {
+        case (ast.expr_put(?e)) {
             ret trans_put(cx, e);
         }