more loops.

2019-02-15 21:09:58 +00:00
parent 1bd2f0338c
commit 1ef3f738ee
5 changed files with 12 additions and 7 deletions
--- a/regression/cyclics.yap
+++ b/regression/cyclics.yap
@@ -70,6 +70,7 @@ d(X, (  X= f(X,X)) ).
 d(X, (  X= f(_,X)) ).
 d(X, (  X= f(A,A,X)) ).
 d(X, (  X= f(A,A,g(A))) ).
+d(X, (  X= f(A,A,2.3)) ).
 d(X, (  X= f(A,g(X,[A|A]),X)) ).
 d(X, (  X= f(X,[X,X])) ).
 d(X, (  X= f(3.14,[22.3,X])) ).