From 5de83906f7af5e019ce7f6618e6107563521a26d Mon Sep 17 00:00:00 2001
From: Stephen Williams <steve@icarus.com>
Date: Thu, 21 Aug 2014 20:34:55 -0700
Subject: [PATCH] Sorry message for multi-dimension foreach loop indices.

---
 pform.cc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/pform.cc b/pform.cc
index 02214b64a..7c58fa343 100644
--- a/pform.cc
+++ b/pform.cc
@@ -731,7 +731,11 @@ PForeach* pform_make_foreach(const struct vlltype&loc,
       perm_string use_index = loop_vars->front();
       loop_vars->pop_front();
 
-      ivl_assert(loc, loop_vars->empty());
+      if (! loop_vars->empty()) {
+	    cerr << loc.get_fileline() << ": sorry: "
+		 << "Multi-dimension foreach indices not supported." << endl;
+	    error_count += 1;
+      }
       delete loop_vars;
 
       PForeach*fe = new PForeach(use_name, use_index, stmt);