From dcc5b570160f74a9f63606dd9f0b457fdc56ed27 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 7 Sep 2012 00:21:57 -0500
Subject: [PATCH] remove broken meta-call optimisation.

---
 C/absmi.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C/absmi.c b/C/absmi.c
index 3e551abc2..99e97dbe6 100755
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -12942,10 +12942,12 @@ Yap_absmi(int inp)
 	  f = pen->FunctorOfPred;
 	  /* reuse environment if we are continuining a comma, ie, (g1,g2,g3) */
 	  /* can only do it deterministically */
+	  /* broken
 	  if (f == FunctorComma && (CELL *)B >= ENV) {
 	    ENV_YREG = ENV;
 	    ENV = (CELL *)ENV[E_E];
 	  }
+	  */
 	  goto execute_pred_f;
 	} else
 	  goto execute_pred_a;
@@ -12977,7 +12979,6 @@ Yap_absmi(int inp)
       BOp(p_execute, Osbmp);
 	/* fetch the module from PREG */
 	mod = PREG->u.Osbmp.mod;
-
       start_execute:
 	b_ptr = B;
 	/* we have mod, and ARG1 has the goal, let us roll */