From 16f88904d5d20fa8a6e82cc45d2271b5769f29e9 Mon Sep 17 00:00:00 2001
From: Andrew Davison <andrew.davison@gmail.com>
Date: Wed, 10 Jan 2024 21:27:45 +1000
Subject: [PATCH] Work on list_attributed/1, re issue #443

---
 src/bif_atts.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/bif_atts.c b/src/bif_atts.c
index 11fcd3e58..525b2ac11 100644
--- 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;