global variables

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1685 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-08-22 16:12:46 +00:00
parent 0f714371e5
commit d11fd73306
31 changed files with 1712 additions and 640 deletions
--- a/C/utilpreds.c
+++ b/C/utilpreds.c
@@ -209,7 +209,7 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, CELL *ptf, CELL *H
 	if (dvars == NULL) {
 	  dvars = (CELL *)DelayTop();
 	} 	
-	if (ptd0 >= dvars) {
+	if (ptd0 < dvars) {
 	  *ptf++ = (CELL) ptd0;
 	} else {
 	  tr_fr_ptr CurTR;