Logtalk 2.30.7 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

Logtalk/examples/benchmarks/objects.lgt

@@ -19,7 +19,6 @@
 		length(Tail, Acc2, Length).
 
 	:- public(ctg_self/0).
-
 	% call an imported category predicate by sending a message to self;
 	% performance will depend on the distance between "self" and "this"
 	% (always uses dynamic binding)
@@ -27,12 +26,18 @@
 		::ctg_pred.
 
 	:- public(ctg_direct/0).
-
 	% call an imported category predicate directly by using the :/1 control construct;
 	% (static binding may be used, depending on how the category is compiled)
 	ctg_direct :-
 		:ctg_pred.
 
+	:- public(obj_local/0).
+	% call a local object predicate directly; used for comparing performance with 
+	% calls to category predicates using the ::/1 and :/1 control constructs
+	obj_local :-
+		{generate_list(20, List)},
+		length(List, _).
+
 :- end_object.