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

fix bad transitions on missing file.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-09-07 22:28:13 +02:00
parent 3d1781d2f3
commit 7940ec75b2
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

@ -434,7 +434,7 @@ initialization(G,OPT) :-
'$do_startup_reconsult'(X) :- '$do_startup_reconsult'(X) :-
( '$access_yap_flags'(15, 0) -> ( '$access_yap_flags'(15, 0) ->
'$system_catch'(load_files(X, [silent(true)]),Module,Error,'$Error'(Error)) '$system_catch'(load_files(X, [silent(true)]),Module, Error, '$Error'(Error))
; ;
set_value('$verbose',off), set_value('$verbose',off),
'$system_catch'(load_files(X, [silent(true),skip_unix_comments]),Module,_,fail) '$system_catch'(load_files(X, [silent(true),skip_unix_comments]),Module,_,fail)
@ -443,6 +443,7 @@ initialization(G,OPT) :-
), ),
!, !,
( '$access_yap_flags'(15, 0) -> true ; halt). ( '$access_yap_flags'(15, 0) -> true ; halt).
'$do_startup_reconsult'(_).
'$skip_unix_comments'(Stream) :- '$skip_unix_comments'(Stream) :-
peek_code(Stream, 0'#), !, % 35 is ASCII for '# peek_code(Stream, 0'#), !, % 35 is ASCII for '#