diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

stuff

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-08-17 15:33:57 -05:00
parent ffda6c291e
commit 55910b4610
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/expand_macros.yap
View File

@ -499,6 +499,10 @@ contains_illegal_dcgnt(NT) :-
% write(contains_illegal_nt(NT)), % JW: we do not want to write % write(contains_illegal_nt(NT)), % JW: we do not want to write
% nl. % nl.
'$expand':allowed_expansion(QExpand) :-
strip_module(QExpand, Mod, Pred),
goal_expansion_allowed(Pred, Mod).
goal_expansion_allowed(Pred, Mod) :- goal_expansion_allowed(Pred, Mod) :-
allowed_module(Pred,Mod), allowed_module(Pred,Mod),
once( prolog_load_context(_, _) ), % make sure we are compiling. once( prolog_load_context(_, _) ), % make sure we are compiling.

3
misc/sysgraph
View File

@ -264,7 +264,8 @@ pl_interfs(Dir - Mod) :-
atom_concat([Dir,'/',File], Path), atom_concat([Dir,'/',File], Path),
( ( sub_atom(File,_,_,0,'.yap') ; sub_atom(File,_,_,0,'.pl') ) -> ( ( sub_atom(File,_,_,0,'.yap') ; sub_atom(File,_,_,0,'.pl') ) ->
ops_restore, ops_restore,
pl_interf( Path , Mod ) absolute_file_name( Path, APath ),
pl_interf( APath , Mod )
; ;
exists_directory( Path ), exists_directory( Path ),
\+ atom_concat(_, '/.', Path), \+ atom_concat(_, '/.', Path),