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

initial module is user

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-04-13 23:46:14 +01:00
parent 3c73a2e6d6
commit b14dc43bc9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/consult.yap
View File

@ -250,7 +250,8 @@ load_files(Files,Opts) :-
'$load_files'(Files, Opts, Call) :- '$load_files'(Files, Opts, Call) :-
( '$nb_getval'('$lf_status', OldTOpts, fail), nonvar(OldTOpts) -> ( '$nb_getval'('$lf_status', OldTOpts, fail), nonvar(OldTOpts) ->
'$lf_opt'(silent, OldTOpts, OldVerbosity), '$lf_opt'(silent, OldTOpts, OldVerbosity),
'$lf_opt'(autoload, OldTOpts, OldAutoload) '$lf_opt'(autoload, OldTOpts, OldAutoload),
'$lf_opt'('$context_module', OldTOpts, user)
; ;
true ), true ),
'$check_files'(Files,load_files(Files,Opts)), '$check_files'(Files,load_files(Files,Opts)),