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

handle errors.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-11 19:49:01 +00:00
parent 8eeae7942c
commit 93d2ac7e59
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/autoloader.yap
View File

@ -37,7 +37,7 @@ scan_library_exports :-
scan_exports(queues, library(queues)), scan_exports(queues, library(queues)),
scan_exports(random, library(random)), scan_exports(random, library(random)),
scan_exports(rbtrees, library(rbtrees)), scan_exports(rbtrees, library(rbtrees)),
scan_exports(readutil, library(readutil)), scan_exports('../LGPL/readutil', library(readutil)),
scan_exports(regexp, library(regexp)), scan_exports(regexp, library(regexp)),
scan_exports('../LGPL/shlib', library(shlib)), scan_exports('../LGPL/shlib', library(shlib)),
scan_exports(system, library(system)), scan_exports(system, library(system)),
@ -51,8 +51,8 @@ scan_exports(Library, CallName) :-
access(read), access(read),
file_errors(fail) file_errors(fail)
]), ]),
!,
open(Path, read, O), open(Path, read, O),
!,
get_exports(O, Exports, Module), get_exports(O, Exports, Module),
close(O), close(O),
open('INDEX.pl', append, W), open('INDEX.pl', append, W),