Code cleanup

SWI-Prolog · Dec 30, 2024 · 5528aa6 · 5528aa6
1 parent eb264c6
commit 5528aa6
Showing 1 changed file with 7 additions and 11 deletions.
diff --git a/src/pl-termwalk.c b/src/pl-termwalk.c
@@ -80,19 +80,15 @@ static inline Word
 nextTermAgenda(DECL_LD term_agenda *a)
 { Word p;
 
-  if ( a->work.size > 0 )
-  { ok:
-    a->work.size--;
-    p = a->work.location++;
-    deRef(p);
-
-    return p;
-  }
+  if ( unlikely(a->work.size == 0) &&
+       !popSegStack(&a->stack, &a->work, aNode) )
+    return NULL;
 
-  if ( popSegStack(&a->stack, &a->work, aNode) )
-    goto ok;
+  a->work.size--;
+  p = a->work.location++;
+  deRef(p);
 
-  return NULL;
+  return p;
 }