Repaired issue 154

vermaseren · Dec 16, 2016 · fe7a26b · fe7a26b
1 parent 033e880
commit fe7a26b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/sources/execute.c b/sources/execute.c
@@ -2325,9 +2325,8 @@ LONG CountTerms1(PHEAD0)
 	for(;;) {
 		numterms++;
 		retval = GetOneTerm(BHEAD AT.WorkPointer,AR.infile,&startposition,0);
+		if ( retval >= 0 ) AR.CompressPointer = oldipointer;
 		if ( retval <= 0 ) break;
-
-		AR.CompressPointer = oldipointer;
 		t = AR.CompressPointer;
 		if ( *t < (1 + decr + ABS(*(t+*t-1))) ) break;
 		t++;

diff --git a/sources/proces.c b/sources/proces.c
@@ -4497,10 +4497,8 @@ WORD Deferred(PHEAD WORD *term, WORD level)
 		AR.CompressPointer = oldipointer;
 		AT.WorkPointer = termout;
 		retval = GetOneTerm(BHEAD AT.WorkPointer,AR.infile,&startposition,0);
-
+		if ( retval >= 0 ) AR.CompressPointer = oldipointer;
 		if ( retval <= 0 ) break;
-
-		AR.CompressPointer = oldipointer;
 		t = AR.CompressPointer;
 		if ( *t < (1 + decr + ABS(*(t+*t-1))) ) break;
 		t++;