Work on list_attributed/1, re issue #443

trealla-prolog · Jan 10, 2024 · 82aa575 · 82aa575
1 parent 25c415d
commit 82aa575
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/bif_atts.c b/src/bif_atts.c
@@ -207,7 +207,7 @@ bool bif_sys_list_attributed_1(query *q)
 		cell *c = &e->c;
 		pl_idx c_ctx = e->c.var_ctx;
 
-		if (!is_empty(c) || !c->attrs || is_nil(c->attrs))
+		if (!is_empty(c) || !c->attrs || is_nil(c->attrs) || is_cyclic_term(q, c->attrs, c->attrs_ctx))
 			continue;
 
 		cell tmp;