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:
vsc 2008-02-13 14:42:55 +00:00
parent d86f30a2eb
commit df0a199afb
3 changed files with 5 additions and 4 deletions

View File

@ -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, _, _, []) :-

View File

@ -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

View File

@ -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).