stuff

2014-08-17 15:33:57 -05:00
parent ffda6c291e
commit 55910b4610
2 changed files with 6 additions and 1 deletions
--- a/library/expand_macros.yap
+++ b/library/expand_macros.yap
@@ -499,6 +499,10 @@ contains_illegal_dcgnt(NT) :-
 %	write(contains_illegal_nt(NT)),		% JW: we do not want to write
 %	nl.

+'$expand':allowed_expansion(QExpand) :-
+    strip_module(QExpand, Mod, Pred),
+    goal_expansion_allowed(Pred, Mod).
+
 goal_expansion_allowed(Pred, Mod) :-
 	allowed_module(Pred,Mod),
 	once( prolog_load_context(_, _) ), % make sure we are compiling.