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

small fix to consult.

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-03-03 19:08:59 +00:00
parent 8f41517e24
commit f489118025
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/consult.yap
View File

@ -172,9 +172,9 @@ consult(Fs) :-
'$consult'(Fs,Module) :- '$consult'(Fs,Module) :-
'$access_yap_flags'(8, 2), % SICStus Prolog compatibility '$access_yap_flags'(8, 2), % SICStus Prolog compatibility
!, !,
'$load_files'(Module:Fs,[],Fs). '$load_files'(Module:Fs,[],consult(Fs)).
'$consult'(Fs, Module) :- '$consult'(Fs, Module) :-
'$load_files'(Module:Fs,[consult(consult)],Fs). '$load_files'(Module:Fs,[consult(consult)],consult(Fs)).
reconsult(Fs) :- reconsult(Fs) :-
'$load_files'(Fs, [], reconsult(Fs)). '$load_files'(Fs, [], reconsult(Fs)).