From 5c41c509c0f29d42334625372403d27346830384 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 15 Feb 2019 23:04:35 +0000
Subject: [PATCH] fixes

---
 C/terms.c | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/C/terms.c b/C/terms.c
index 9629ed11e..ba9277099 100644
--- a/C/terms.c
+++ b/C/terms.c
@@ -1448,18 +1448,13 @@ Int cp_link(Term t, Int i, Int j, cl_connector * q, Int max, CELL * tailp) {
     Term ref = Deref(q[me].reference);
     if (IsVarTerm(ref)) {
       q[i].copy[j] = ref;
-    }  else if (i == 0){
-
-     Term p = TermNil;
-     Term v =	UNFOLD_LOOP(ref,&p);
-     q[i].reference = HeadOfTerm(p);
-     q[i].copy[j] = v;
-   }
-   else if (tailp && q[me].parent) {
+    }  
+   else {
     Term v = 	UNFOLD_LOOP(ref, tailp);
     q[i].copy[j] = v;
+    if (me)
     q[me].parent[0] = v;
-    q[i].reference = v;
+    q[me].reference = v;
 
   }
   return max;