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

fix bad call.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-14 20:37:55 +00:00
parent c5ba36e191
commit 3bfcc2e7b4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/threads.yap
View File

@ -655,12 +655,12 @@ message_queue_destroy(_).
'$do_error'(type_error(atom,Name),message_queue_destroy(Name)). '$do_error'(type_error(atom,Name),message_queue_destroy(Name)).
'$clean_mqueue'(Queue) :- '$clean_mqueue'(Queue) :-
'$db_dequeue'(Queue), '$db_dequeue'(Queue, _),
fail. fail.
'$clean_mqueue'(_). '$clean_mqueue'(_).
'$empty_mqueue'(Queue) :- '$empty_mqueue'(Queue) :-
'$db_dequeue_unlocked'(Queue), '$db_dequeue_unlocked'(Queue, _),
fail. fail.
'$empty_mqueue'(_). '$empty_mqueue'(_).