Logtalk 2.23.1 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1260 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-03-06 21:19:09 +00:00
parent 4c972ca825
commit 8b74eb8b2b
159 changed files with 625 additions and 481 deletions
--- a/Logtalk/examples/benchmarks/plain.pl
+++ b/Logtalk/examples/benchmarks/plain.pl
@@ -20,3 +20,17 @@ my_length([], Length, Length).
 my_length([_| Tail], Acc, Length) :-
 	Acc2 is Acc + 1,
 	my_length(Tail, Acc2, Length).
+
+
+:- dynamic(pred_plain/0).
+
+db_test_plain :-
+	repeat(100),
+		assertz(pred_plain),
+	fail.
+
+db_test_plain :-
+	retract(pred_plain),
+	fail.
+
+db_test_plain.