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

thread_create should ignore bad options, not complain.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-11 20:36:00 +00:00
parent e05b84ce4e
commit 921fb1c815
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/threads.yap
View File

@ -193,8 +193,9 @@ thread_create(Goal, Id, Options) :-
( Detached \== true, Detached \== false -> '$do_error'(domain_error(thread_option,Detached+[true,false]),G0) ; true ). ( Detached \== true, Detached \== false -> '$do_error'(domain_error(thread_option,Detached+[true,false]),G0) ; true ).
'$thread_option'(at_exit(AtExit), _, _, _, _, _, AtExit, M, G0) :- !, '$thread_option'(at_exit(AtExit), _, _, _, _, _, AtExit, M, G0) :- !,
( \+ callable(AtExit) -> '$do_error'(type_error(callable,AtExit),G0) ; true ). ( \+ callable(AtExit) -> '$do_error'(type_error(callable,AtExit),G0) ; true ).
'$thread_option'(Option, _, _, _, _, _, _, _, G0) :- % succeed silently, like SWI.
'$do_error'(domain_error(thread_option,Option),G0). '$thread_option'(Option, _, _, _, _, _, _, _, G0).
% '$do_error'(domain_error(thread_option,Option),G0).
'$record_alias_info'(_, Alias) :- '$record_alias_info'(_, Alias) :-
var(Alias), !. var(Alias), !.