9f1b358c04
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1486 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
16 lines
377 B
Plaintext
16 lines
377 B
Plaintext
|
|
bar :- % test predicate
|
|
write('bar predicate called'), nl.
|
|
|
|
|
|
:- object(bypass).
|
|
|
|
:- public(foo//0).
|
|
:- mode(foo, one).
|
|
:- info(foo//0, [
|
|
comment is 'Just the almighty and famous old foo.']).
|
|
|
|
foo --> {{bar}}. % the external pair of {}'s have the usual DCG semantics;
|
|
% the internal pair of {}'s is the Logtalk compiler bypass control construct
|
|
:- end_object.
|