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:
parent
b4a6005fc4
commit
f9b0a9dde7
@ -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) :-
|
||||
|
Reference in New Issue
Block a user