patch for OPTYap from João Silva

2014-02-05 16:21:21 +00:00
parent ce6bc98f30
commit 6c7e5e3cd2
6 changed files with 9 additions and 7 deletions
--- a/H/trim_trail.h
+++ b/H/trim_trail.h
@@ -128,7 +128,7 @@
      } else if (IsPairTerm(d1)) {
 	CELL *pt = RepPair(d1);
 	      
-	if (IN_BETWEEN(H0,pt,H) && IsAttVar(pt)) {
+	if (IN_BETWEEN(H0,pt,HR) && IsAttVar(pt)) {
 	  CELL val = Deref(*pt);
 	  if (IsVarTerm(val)) {
 	    Bind(VarOfTerm(val), MkAtomTerm(AtomCut));