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

Fixed use of thread defaults by the thread_create/3 predicate.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1650 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2006-05-24 15:27:45 +00:00
parent cf28236537
commit c5e3e3f528
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/threads.yap
View File

@ -78,7 +78,10 @@ thread_create(Goal, Id, Options) :-
'$thread_options'(V, _, _, _, _, _, G) :- var(V), !,
'$do_error'(instantiation_error,G).
'$thread_options'([], [], Stack, Trail, System, _, _) :-
recorded('$thread_defaults', [Stack, Trail, System], _).
recorded('$thread_defaults', [DefaultStack, DefaultTrail, DefaultSystem], _),
( var(Stack) -> Stack = DefaultStack; true ),
( var(Trail) -> Trail = DefaultTrail; true ),
( var(System) -> System = DefaultSystem; true ).
'$thread_options'([Opt|Opts], Aliases, Stack, Trail, System, Detached, G0) :-
'$thread_option'(Opt, Aliases, Stack, Trail, System, Detached, G0, Aliases0),
'$thread_options'(Opts, Aliases0, Stack, Trail, System, Detached, G0).