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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LGPL/prolog_xref.pl
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 Part of SWI-Prolog
@ -538,7 +538,7 @@ process_meta_predicate(Decl) :-
; meta_goal(Head, _) ; meta_goal(Head, _)
) )
-> true -> true
; assert(meta_goal(Head, Meta)) ; assert(prolog:meta_goal(Head, Meta))
). ).
meta_args(I, Arity, _, _, []) :- meta_args(I, Arity, _, _, []) :-

2
docs/yap.tex
View File

@ -2341,7 +2341,7 @@ several small modules. The following declarations can be used for that purpose:
@snindex reexport/1 @snindex reexport/1
@cnindex reexport/1 @cnindex reexport/1
Export all predicates defined in file @var{F} as if they were defined in 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}) @item reexport(+@var{F},+@var{Decls})
@findex reexport/2 @findex reexport/2

3
pl/utils.yap
View File

@ -254,13 +254,14 @@ op(P,T,V) :-
'$do_error'(domain_error(out_of_range,P),G) '$do_error'(domain_error(out_of_range,P),G)
; ;
\+ '$associativity'(T) -> \+ '$associativity'(T) ->
'$do_error'(domain_error(operator_specifier,P),G) '$do_error'(domain_error(operator_specifier,T),G)
; ;
'$check_op_name'(V,G) '$check_op_name'(V,G)
). ).
'$associativity'(xfx). '$associativity'(xfx).
'$associativity'(xfy). '$associativity'(xfy).
'$associativity'(yfx).
'$associativity'(yfy). '$associativity'(yfy).
'$associativity'(xf). '$associativity'(xf).
'$associativity'(yf). '$associativity'(yf).