次のディレクティブ + 述語のタプルがあるとします。
:- web_resource(plaintext/1, [content_type(text/plain)]).
plaintext(Result) :-
...code...
gplcこのコードを次のように変換する方法を教えてください
plaintext([headers(['Content-Type'-'text/plain']),
payload(Payload)]) :-
old_plaintext(Payload).
old_plaintext(Payload) :-
...code...
コンパイルする前に?old_payload再帰的に定義できます。