From df0a199afb6f04ea5f9a665d9c9b4dca2fdf2c78 Mon Sep 17 00:00:00 2001 From: vsc Date: Wed, 13 Feb 2008 14:42:55 +0000 Subject: [PATCH] fix the op changes git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2097 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- LGPL/prolog_xref.pl | 4 ++-- docs/yap.tex | 2 +- pl/utils.yap | 3 ++- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/LGPL/prolog_xref.pl b/LGPL/prolog_xref.pl index 10bc11ad7..59de4897d 100644 --- a/LGPL/prolog_xref.pl +++ b/LGPL/prolog_xref.pl @@ -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, _, _, []) :- diff --git a/docs/yap.tex b/docs/yap.tex index eb8fee844..54dd0d31a 100644 --- a/docs/yap.tex +++ b/docs/yap.tex @@ -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 diff --git a/pl/utils.yap b/pl/utils.yap index 13761beb7..cf5eefbe5 100644 --- a/pl/utils.yap +++ b/pl/utils.yap @@ -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).