moredeb
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
/**
|
||||
* @file autoloader.yap
|
||||
*
|
||||
|
||||
*/
|
||||
:- module(autoloader,[make_library_index/0]).
|
||||
|
@@ -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:
|
||||
|
@@ -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).
|
||||
|
||||
|
@@ -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) ).
|
||||
|
Reference in New Issue
Block a user