user defined directives are multiple.

This commit is contained in:
Vítor Santos Costa 2015-11-09 11:29:09 +00:00
parent 6975c60645
commit 2d330f3bee

View File

@ -67,6 +67,8 @@
'$all_directives'(G) :- !,
'$directive'(G).
:- multifile '$directive'/1.
'$directive'(block(_)).
'$directive'(char_conversion(_,_)).
'$directive'(compile(_)).
@ -132,6 +134,8 @@ considered.
*/
:- multifile '$exec_directive'/5.
'$exec_directive'(initialization(D), _, M, _, _) :-
'$initialization'(M:D).
'$exec_directive'(initialization(D,OPT), _, M, _, _) :-