From eaa35611dc2c66d73032ece1ddde7881fcaccdee Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 22 Jul 2010 12:24:55 -0700
Subject: Add XFAIL'ed test for return-in-iter, call unimpl when we find it.
 Closes #100.

---
 src/boot/me/trans.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/boot/me')

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index be7adc1a..07b22dca 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -4532,6 +4532,8 @@ let trans_visitor
             calls
 
       | Ast.STMT_ret atom_opt ->
+          if get_stmt_depth cx stmt.id > 0
+          then unimpl (Some stmt.id) "ret within iterator-block";
           begin
             match atom_opt with
                 None -> ()
-- 
cgit v1.2.3