Added thread_send_message/1 built-in predicate.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1929 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2007-09-18 17:50:12 +00:00
parent b4a6005fc4
commit f9b0a9dde7

View File

@ -542,6 +542,10 @@ message_queue_destroy(Name) :-
fail.
'$clean_mqueue'(_).
thread_send_message(Term) :-
'$thread_self'(Id),
thread_send_message(Id, Term).
thread_send_message(Queue, Term) :- var(Queue), !,
'$do_error'(instantiation_error,thread_send_message(Queue,Term)).
thread_send_message(Queue, Term) :-