This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/examples/dcgs/bypass.lgt

16 lines
216 B
Plaintext
Raw Normal View History

bar :-
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}}.
:- end_object.