correct is_cyclic again for non-variable ref cells (#2116)

2023-10-15 01:28:42 -06:00
parent 3fb2e451a2
commit 3a6aee72a3
2 changed files with 7 additions and 1 deletions
--- a/src/tests/acyclic_term.pl
+++ b/src/tests/acyclic_term.pl
@@ -173,6 +173,10 @@ test("acyclic_term#2114", (
    A=B*B, acyclic_term(A)
 )).

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