From 724681dde816a427bc2202b7ba742d768f2dbd23 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 29 Sep 2018 12:51:06 +0100
Subject: [PATCH] fix

---
 packages/yap-lbfgs/yap_lbfgs.c | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/packages/yap-lbfgs/yap_lbfgs.c b/packages/yap-lbfgs/yap_lbfgs.c
index 0a3c21f48..70713f420 100644
--- a/packages/yap-lbfgs/yap_lbfgs.c
+++ b/packages/yap-lbfgs/yap_lbfgs.c
@@ -73,7 +73,7 @@ static lbfgsfloatval_t evaluate(
   if (result==FALSE) {
     printf("ERROR: the evaluate call failed in YAP.\n");
     // Goal did not succeed
-   YAP_ShutdownGoal( TRUE );
+   YAP_ShutdownGoal( false );
    return FALSE;
   }
 
@@ -90,7 +90,7 @@ static lbfgsfloatval_t evaluate(
   
   }
 
-  YAP_ShutdownGoal( TRUE );
+  YAP_ShutdownGoal( false );
   return rc;
 }
 
@@ -112,7 +112,7 @@ static int progress(
   YAP_Bool result;
   YAP_Int s1;
 
-  YAP_Term t[9],t2[2], v;
+  YAP_Term t[10],t2[2], v;
   t[0] = YAP_MkFloatTerm(fx);
   t[1] = YAP_MkIntTerm((YAP_Int)local_x);
   t[1] = YAP_MkApplTerm(ffloats, 1, t+1);
@@ -137,21 +137,19 @@ static int progress(
   //optimizer_status=OPTIMIZER_STATUS_RUNNING;
 
   YAP_Term o = YAP_GetFromSlot( s1 );
+      YAP_ShutdownGoal( false );
 
   if (result==FALSE) {
    printf("ERROR:  the progress call failed in YAP.\n");
     // Goal did not succeed
-      YAP_ShutdownGoal( TRUE );
       return -1;
   }
 
   if (YAP_IsIntTerm(o)) {
     int v = YAP_IntOfTerm(o);
-    //YAP_ShutdownGoal( TRUE );
   return (int)v;
   }
 
-  YAP_ShutdownGoal( TRUE );
   fprintf(stderr, "ERROR: The progress call back function did not return an integer as last argument\n");
   return 1;
 }