fix the op changes
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2097 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
d86f30a2eb
commit
df0a199afb
|
@ -1,4 +1,4 @@
|
|||
/* $Id: prolog_xref.pl,v 1.2 2008-02-12 18:10:48 vsc Exp $
|
||||
/* $Id: prolog_xref.pl,v 1.3 2008-02-13 14:42:55 vsc Exp $
|
||||
|
||||
Part of SWI-Prolog
|
||||
|
||||
|
@ -538,7 +538,7 @@ process_meta_predicate(Decl) :-
|
|||
; meta_goal(Head, _)
|
||||
)
|
||||
-> true
|
||||
; assert(meta_goal(Head, Meta))
|
||||
; assert(prolog:meta_goal(Head, Meta))
|
||||
).
|
||||
|
||||
meta_args(I, Arity, _, _, []) :-
|
||||
|
|
|
@ -2341,7 +2341,7 @@ several small modules. The following declarations can be used for that purpose:
|
|||
@snindex reexport/1
|
||||
@cnindex reexport/1
|
||||
Export all predicates defined in file @var{F} as if they were defined in
|
||||
the curremt module.
|
||||
the current module.
|
||||
|
||||
@item reexport(+@var{F},+@var{Decls})
|
||||
@findex reexport/2
|
||||
|
|
|
@ -254,13 +254,14 @@ op(P,T,V) :-
|
|||
'$do_error'(domain_error(out_of_range,P),G)
|
||||
;
|
||||
\+ '$associativity'(T) ->
|
||||
'$do_error'(domain_error(operator_specifier,P),G)
|
||||
'$do_error'(domain_error(operator_specifier,T),G)
|
||||
;
|
||||
'$check_op_name'(V,G)
|
||||
).
|
||||
|
||||
'$associativity'(xfx).
|
||||
'$associativity'(xfy).
|
||||
'$associativity'(yfx).
|
||||
'$associativity'(yfy).
|
||||
'$associativity'(xf).
|
||||
'$associativity'(yf).
|
||||
|
|
Reference in New Issue