This commit is contained in:
Vitor Santos Costa
2019-02-13 09:44:24 +00:00
parent 2c80e33c6a
commit c4b78e161b
19 changed files with 107 additions and 85 deletions

View File

@@ -1,5 +1,5 @@
/**
* @file autoloader.yap
*
*/
:- module(autoloader,[make_library_index/0]).

View File

@@ -24,7 +24,10 @@
* @{
*
*/
%% @file charsio.yap
%%
%%
%% @brief Input/Output to characters.
:- module(system(charsio), [
format_to_chars/3,
@@ -52,7 +55,7 @@ You can use the following directive to load the files.
~~~~~~~
:- use_module(library(avl)).
:- use_module(library(charsio)).
~~~~~~~
It includes the following predicates:

View File

@@ -154,6 +154,10 @@ co_term_expansion((H :- B), M, (NH :- B)) :- !,
co_term_expansion(H, M, NH) :-
coinductive(H, M, NH), !.
/** user:term_expansion(+M:Cl,-M:NCl )
rule preprocessor
*/
user:term_expansion(M:Cl,M:NCl ) :- !,
co_term_expansion(Cl, M, NCl).

View File

@@ -52,6 +52,10 @@
functor(G, F, N),
predicate_property(M:G, meta_predicate(P)).
/** user:term_expansion(+M:Cl,-M:NCl )
rule preprocessor
*/
user:term_expansion( ( :- '$meta_predicate'( _ ) ), [] ).
user:goal_expansion(_:'_user_expand_goal'(A, M, B), user:user_expand_goal(A, M, B) ).