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

singletons

This commit is contained in:
Vítor Santos Costa 2016-03-06 01:09:43 +00:00
parent bac60d2d94
commit 17ef6ddf34
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pl/modules.yap
View File

@ -718,15 +718,15 @@ module_property(Mod, exports(Es)) :-
findall( N/A, (predicate_property(Mod:P0, public),functor(P0,N,A)), Es)
).
'$module_class'(Mod, system) :- '$is_system_module'( Mod ), !.
'$module_class'(Mod, library) :- '$library_module'( Mod ), !.
'$module_class'(Mod, user) :- !.
'$module_class'( _, temporary) :- fail.
'$module_class'( _, test) :- fail.
'$module_class'( _, development) :- fail.
'$module_class'( Mod, system) :- '$is_system_module'( Mod ), !.
'$module_class'( Mod, library) :- '$library_module'( Mod ), !.
'$module_class'(_Mod, user) :- !.
'$module_class'( _, temporary) :- fail.
'$module_class'( _, test) :- fail.
'$module_class'( _, development) :- fail.
'$library_module'(M1) :-
recorded('$module','$module'(F, M1, library(_), _MyExports,_Line),_).
recorded('$module','$module'(_, M1, library(_), _MyExports,_Line),_).
ls_imports :-
recorded('$import','$import'(M0,M,G0,G,_N,_K),_R),

2
pl/newmod.yap
View File

@ -56,7 +56,7 @@ name with the `:/2` operator.
'$add_module_on_file'(N, F, F0, Ps),
'$current_module'(_,N).
'$mk_system_predicates'( Ps, N ) :-
'$mk_system_predicates'( Ps, _N ) :-
lists:member(Name/A , Ps),
functor(P,Name,A),
'$new_system_predicate'(P, prolog),