allow debugging inside directives.
This commit is contained in:
parent
ce3a193ae7
commit
de46b64eee
@ -390,7 +390,9 @@ true :- true.
|
|||||||
% but YAP and SICStus does.
|
% but YAP and SICStus does.
|
||||||
%
|
%
|
||||||
'$process_directive'(G, _, M) :-
|
'$process_directive'(G, _, M) :-
|
||||||
( '$notrace'(M:G) -> true ; format(user_error,':- ~w:~w failed.~n',[M,G]) ).
|
'$exit_system_mode',
|
||||||
|
( '$notrace'(M:G) -> true ; format(user_error,':- ~w:~w failed.~n',[M,G]) ),
|
||||||
|
'$enter_system_mode'.
|
||||||
|
|
||||||
'$continue_with_command'(reconsult,V,Pos,G,Source) :-
|
'$continue_with_command'(reconsult,V,Pos,G,Source) :-
|
||||||
'$go_compile_clause'(G,V,Pos,5,Source),
|
'$go_compile_clause'(G,V,Pos,5,Source),
|
||||||
|
Reference in New Issue
Block a user