remove list remnants from stack iteration in printer when cyclic (#2131)

2023-10-24 14:10:11 -06:00
parent 4ab3e23b1f
commit 773d3f81fd
4 changed files with 27 additions and 11 deletions
--- a/src/tests/acyclic_term.pl
+++ b/src/tests/acyclic_term.pl
@@ -255,6 +255,11 @@ test("acyclic_term#2130_2", (
    \+ acyclic_term(T)
 )).

+test("acyclic_term#2131", (
+    A=[B],C=[B],C=[A],
+    \+ acyclic_term(C)
+)).
+
 main :-
    findall(test(Name, Goal), test(Name, Goal), Tests),
    run_tests(Tests, Failed),