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

Merge branch 'master' of ssh://yap.git.sourceforge.net/gitroot/yap/yap-6.3

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-06-24 21:09:09 +01:00
commit 5aa652d21e
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/consult.yap
View File

@ -696,7 +696,7 @@ absolute_file_name(File,Opts,TrueFileName) :-
;
nb:nb_queue_close(Ref, FileNames, [])
),
'$absolute_file_names'(Solutions, FileNames, FError, TrueFileName, File, G).
'$absolute_file_names'(Solutions, FileNames, FErrors, TrueFileName, File, G).
'$absolute_file_names'(Solutions, [], error, _, File, G) :- !,
'$do_error'(existence_error(file,File),G).

2
pl/flags.yap
View File

@ -213,7 +213,7 @@ yap_flag(associate,X) :-
yap_flag(associate,X) :-
atom(X), !,
set_value('$associate',X).
yap_flag(bounded,X) :-
yap_flag(associate,X) :-
'$do_error'(type_error(atom,X),associate(X)).
yap_flag(bounded,X) :-

4
pl/yapor.yap
View File

@ -13,7 +13,7 @@
:- meta_predicate
parallel(:),
parallel_findall(?,:,?).
parallel_findall(?,:,?),
parallel_once(:).
@ -161,7 +161,7 @@ parallel_once(Goal) :-
'$parallel_once_query'(Goal) :-
'$c_yapor_start',
'$execute'(Goal), !,
'$execute'(once(Goal)),
recordz(parallel_once,Goal,_),
fail.
'$parallel_once_query'(_).