Fixed bug in the predicate thread_create/1 when the thread goal generates an exception.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2204 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2008-04-03 23:23:06 +00:00
parent 282ba60852
commit 04682ef5f0

View File

@ -83,7 +83,7 @@ thread_create(Goal) :-
->
true
;
recorda('$thread_exit_status', [Id|exception(error(resource_error(memory),thread_create(Goal,Id)))],_)
recorda('$thread_exit_status', [Id|exception(error(resource_error(memory),thread_create(Goal)))],_)
).
thread_create(Goal, Id) :-