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

fix first fail in autoload

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-11-10 10:58:09 +00:00
parent 64575e37ee
commit 318199a47b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/modules.yap
View File

@ -354,6 +354,7 @@ expand_goal(G, G).
'$nb_getval'('$autoloader_set', true, fail), !, '$nb_getval'('$autoloader_set', true, fail), !,
autoloader:find_predicate(G,ExportingModI). autoloader:find_predicate(G,ExportingModI).
'$autoloader_find_predicate'(G,ExportingModI) :- '$autoloader_find_predicate'(G,ExportingModI) :-
'$exit_undefp',
yap_flag(autoload, false), yap_flag(autoload, false),
load_files([library(autoloader), load_files([library(autoloader),
autoloader:library('INDEX'), autoloader:library('INDEX'),
@ -361,6 +362,7 @@ expand_goal(G, G).
[silent(true),if(not_loaded)]), [silent(true),if(not_loaded)]),
nb_setval('$autoloader_set', true), nb_setval('$autoloader_set', true),
yap_flag(autoload, true), yap_flag(autoload, true),
'$enter_undefp',
autoloader:find_predicate(G,ExportingModI). autoloader:find_predicate(G,ExportingModI).