From 7940ec75b2dc9a576bd45dfed8215b04a08a8e51 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Wed, 7 Sep 2011 22:28:13 +0200 Subject: [PATCH] fix bad transitions on missing file. --- pl/consult.yap | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pl/consult.yap b/pl/consult.yap index 7140b47ce..85f7b96bd 100644 --- a/pl/consult.yap +++ b/pl/consult.yap @@ -434,7 +434,7 @@ initialization(G,OPT) :- '$do_startup_reconsult'(X) :- ( '$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), '$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). +'$do_startup_reconsult'(_). '$skip_unix_comments'(Stream) :- peek_code(Stream, 0'#), !, % 35 is ASCII for '#