From 91b09d738276a089eaec188cd86041a17ebf938d Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Sun, 14 Jun 2009 19:44:36 -0500
Subject: [PATCH] do not do macro_expansion from goal, only when consulting.

---
 library/expand_macros.yap | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/expand_macros.yap b/library/expand_macros.yap
index 18eb91b70..bbf3218bb 100644
--- a/library/expand_macros.yap
+++ b/library/expand_macros.yap
@@ -500,4 +500,5 @@ contains_illegal_dcgnt(NT) :-
 %	nl.
 
 goal_expansion_allowed :-
+	prolog_load_context(_, _), % make sure we are compiling.
 	\+ current_prolog_flag(xref, true).