rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more eagerly check for cyclicity of variables in cycle detecting stackless iterator (#2121)

Browse Source
This commit is contained in:
Mark
2023-10-15 15:14:38 -06:00
parent e2000859b6
commit dff2e73842
2 changed files with 33 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/tests/acyclic_term.pl
View File

@@ -149,6 +149,11 @@ test("acyclic_term_29", (
acyclic_term(B), acyclic_term(Y)
)).
test("acyclic_term_30", (
A=str(B,B,B), C=str(A,_D,B), acyclic_term(C),
acyclic_term(A), acyclic_term(B)
)).
test("acyclic_term#2111_1", (
term1(A), \+ acyclic_term(A)
)).
@@ -189,6 +194,11 @@ test("acyclic_term#2117", (
A=[]*A,B=[]*A, \+ acyclic_term(B)
)).
test("acyclic_term#2121", (
A=B*B, C=A*B, acyclic_term(C),
acyclic_term(A), acyclic_term(B)
)).
main :-
findall(test(Name, Goal), test(Name, Goal), Tests),
run_tests(Tests, Failed),
@@ -200,7 +210,7 @@ main_quiet :-
run_tests_quiet(Tests, Failed),
( Failed = [] ->
format("All tests passed", [])
; format("Some tests failed: ~w~n", [Failed])
; format("Some tests failed", [])
),
halt.