From fa73e898072e3e60f898ad46feeb027c9adca450 Mon Sep 17 00:00:00 2001 From: pmoura Date: Tue, 25 Mar 2008 01:04:27 +0000 Subject: [PATCH] Use "resource_error(threads)" instead of "resource_error(max_threads)" for compatibility with SWI-Prolog, XSB, and the latest ISO Prolog Threads DTR. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2162 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/errors.c | 2 +- pl/messages.yap | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/C/errors.c b/C/errors.c index 080944a0e..fd5677c14 100644 --- a/C/errors.c +++ b/C/errors.c @@ -1334,7 +1334,7 @@ Yap_Error(yap_error_number type, Term where, char *format,...) Term ti[1]; i = strlen(tmpbuf); - ti[0] = MkAtomTerm(Yap_LookupAtom("max_threads")); + ti[0] = MkAtomTerm(Yap_LookupAtom("threads")); nt[0] = Yap_MkApplTerm(Yap_MkFunctor(Yap_LookupAtom("resource_error"),1), 1, ti); tp = tmpbuf+i; psize -= i; diff --git a/pl/messages.yap b/pl/messages.yap index d3332d26d..238a2c8e6 100644 --- a/pl/messages.yap +++ b/pl/messages.yap @@ -11,7 +11,7 @@ * File: utilities for displaying messages in YAP. * * comments: error messages for YAP * * * -* Last rev: $Date: 2008-03-24 23:48:47 $,$Author: vsc $ * +* Last rev: $Date: 2008-03-25 01:04:27 $,$Author: pmoura $ * * * * * *************************************************************************/ @@ -237,7 +237,7 @@ system_message(error(representation_error(character_code), Where)) --> [ 'REPRESENTATION ERROR- ~w: expected character code' - [Where] ]. system_message(error(representation_error(max_arity), Where)) --> [ 'REPRESENTATION ERROR- ~w: number too big' - [Where] ]. -system_message(error(resource_error(max_threads), Where)) --> +system_message(error(resource_error(threads), Where)) --> [ 'RESOURCE ERROR- too many open threads' - [Where] ]. system_message(error(syntax_error(G,0,Msg,[],0,0), _)) --> [ 'SYNTAX ERROR: ~a' - [G,Msg] ].