From 625c66015d0e49a457d43a9796f5fd603760e1ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 14 Feb 2014 22:44:55 +0000
Subject: [PATCH] avoid factorized trouble

---
 pl/attributes.yap | 4 ++--
 pl/boot.yap       | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/pl/attributes.yap b/pl/attributes.yap
index c33f99c68..67f3794d3 100644
--- a/pl/attributes.yap
+++ b/pl/attributes.yap
@@ -270,8 +270,8 @@ call_residue(Goal,Module,Residue) :-
 
 delayed_goals(G, Vs, NVs, Gs) :-
 	project_delayed_goals(G),
-	term_factorized([G|Vs], [_|NVs], Gs).
-%	copy_term([G|Vs], [_|NVs], Gs).
+%	term_factorized([G|Vs], [_|NVs], Gs).
+	copy_term([G|Vs], [_|NVs], Gs).
 
 project_delayed_goals(G) :-
 % SICStus compatible step,
diff --git a/pl/boot.yap b/pl/boot.yap
index 3bd5183b8..8be82a5a7 100755
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -524,9 +524,9 @@ true :- true.
 	  '$clean_ifcp'(CP),
 	   NCP is NCP2-NCP1
 	  ;
-%	   copy_term_nat(V, NV), 
-%	   LGs = [], 
-	   term_factorized(V, NV, LGs),
+	   copy_term_nat(V, NV), 
+	   LGs = [], 
+%	   term_factorized(V, NV, LGs),
 	   NCP = 0
         ).