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

docs

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-07-31 10:36:17 -05:00
parent f6a90c0cac
commit 71afcd0350
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pl/modules.yap
View File

@ -588,15 +588,16 @@ set_base_module(ExportingModule) :-
set_base_module(ExportingModule) :- set_base_module(ExportingModule) :-
atom(ExportingModule), !, atom(ExportingModule), !,
'$current_module'(Mod), '$current_module'(Mod),
retractall(prolg:'$parent_module'(Mod,_)), retractall(prolog:'$parent_module'(Mod,_)),
asserta(prolog:'$parent_module'(Mod,ExportingModule)). asserta(prolog:'$parent_module'(Mod,ExportingModule)).
set_base_module(ExportingModule) :- set_base_module(ExportingModule) :-
'$do_error'(type_error(atom,ExportingModule),set_base_module(ExportingModule)). '$do_error'(type_error(atom,ExportingModule),set_base_module(ExportingModule)).
/** /**
@pred import_module( +ImportingModule, +ExportingModule ) is det * @pred import_module( +ImportingModule, +ExportingModule ) is det
All exported predicates from _ExportingModule_ are automatically available to the * All exported predicates from _ExportingModule_
source module _ImportModule_. * are automatically available to the
* source module _ImportModule_.
This innovation was introduced by SWI-Prolog. By default, modules only This innovation was introduced by SWI-Prolog. By default, modules only
inherit from `prolog` and `user`. This extension allows predicates in inherit from `prolog` and `user`. This extension allows predicates in
@ -692,7 +693,7 @@ Reports the following properties of _Module_:
operator symbols exported or re-exported by this module. operator symbols exported or re-exported by this module.
*/ */
module_property(Mod, Prop) :- module_property(Mod, Prop) :-
var(Mod), var(Mod),
!, !,
recorded('$module','$module'(_,Mod,_,_Es,_),_), recorded('$module','$module'(_,Mod,_,_Es,_),_),
@ -727,7 +728,7 @@ module_property(Mod, exports(Es)) :-
'$library_module'(M1) :- '$library_module'(M1) :-
recorded('$module','$module'(_, M1, library(_), _MyExports,_Line),_). recorded('$module','$module'(_, M1, library(_), _MyExports,_Line),_).
ls_imports :- ls_imports :-
recorded('$import','$import'(M0,M,G0,G,_N,_K),_R), recorded('$import','$import'(M0,M,G0,G,_N,_K),_R),
numbervars(G0+G, 0, _), numbervars(G0+G, 0, _),