From f26cb133b97fe17bd5d5360ce00870ce99cbd7a0 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 9 Feb 2014 10:44:43 +0000
Subject: [PATCH] fix left-over slots

---
 C/c_interface.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C/c_interface.c b/C/c_interface.c
index d3a9df83a..5d82f5ef9 100644
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -1780,6 +1780,7 @@ YAP_ExecuteFirst(PredEntry *pe, CPredicate exec_code)
     }
   } else {
     Int ret = (exec_code)( PASS_REGS1 );
+    LOCAL_CurSlot = CurSlot;
     if (!ret) {
       Term t;
 
@@ -1907,6 +1908,7 @@ YAP_ExecuteNext(PredEntry *pe, CPredicate exec_code)
     return TRUE;
   } else {
     Int ret = (exec_code)( PASS_REGS1 );
+    LOCAL_CurSlot = CurSlot;
     if (!ret) {
       Term t;