Fix for current_module/1, re issue #582

trealla-prolog · Sep 1, 2024 · 579d9b6 · 579d9b6
1 parent a5c9e2c
commit 579d9b6
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/bif_predicates.c b/src/bif_predicates.c
@@ -5648,8 +5648,7 @@ static bool bif_current_module_1(query *q)
  }
 
  check_heap_error(push_choice(q));
-
- module *m = list_front(&q->pl->modules);
+ module *m = q->current_m = list_front(&q->pl->modules);
  cell tmp;
  make_atom(&tmp, new_atom(q->pl, m->name));
  return unify(q, p1, p1_ctx, &tmp, q->st.curr_frame);
@@ -5658,7 +5657,7 @@ static bool bif_current_module_1(query *q)
  if (!q->current_m)
  return false;
 
- module *m = list_next(q->current_m);
+ module *m = q->current_m = list_next(q->current_m);
 
  if (!m)
  return false;