From de46b64eee5689490ce36b52bc25b402559a39b0 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 25 Jan 2010 09:02:00 +0000
Subject: [PATCH] allow debugging inside directives.

---
 pl/boot.yap | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index 8f25a0200..b79152321 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -390,7 +390,9 @@ true :- true.
  % but YAP and SICStus does.
  %
  '$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) :-
 	 '$go_compile_clause'(G,V,Pos,5,Source),