diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix message_queue_property/2 to accept integers as valid queue indentifiers

Browse Source
This commit is contained in:
Paulo Moura 2013-10-10 11:44:52 +01:00
parent c412f6de2f
commit 0e2402b27e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/threads.yap
View File

@ -690,6 +690,7 @@ message_queue_property(Id, Prop) :-
var(Term), !, var(Term), !,
'$do_error'(instantiation_error, Goal). '$do_error'(instantiation_error, Goal).
'$check_message_queue_or_alias'(Term, Goal) :- '$check_message_queue_or_alias'(Term, Goal) :-
\+ integer(Term),
\+ atom(Term), \+ atom(Term),
Term \= '$message_queue'(_), !, Term \= '$message_queue'(_), !,
'$do_error'(domain_error(queue_or_alias, Term), Goal). '$do_error'(domain_error(queue_or_alias, Term), Goal).
@ -697,7 +698,6 @@ message_queue_property(Id, Prop) :-
\+ recorded('$queue', q(_,_,_,I,_), _), !, \+ recorded('$queue', q(_,_,_,I,_), _), !,
'$do_error'(existence_error(queue, '$message_queue'(I)), Goal). '$do_error'(existence_error(queue, '$message_queue'(I)), Goal).
'$check_message_queue_or_alias'(Term, Goal) :- '$check_message_queue_or_alias'(Term, Goal) :-
atom(Term),
\+ recorded('$queue', q(Term,_,_,_,_), _), !, \+ recorded('$queue', q(Term,_,_,_,_), _), !,
'$do_error'(existence_error(queue, Term), Goal). '$do_error'(existence_error(queue, Term), Goal).
'$check_message_queue_or_alias'(_, _). '$check_message_queue_or_alias'(_, _).