From d2a47ca4c0a284f69e76af365cd4e46eec3ec637 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Tue, 22 Jan 2013 22:21:44 +0000 Subject: [PATCH] protect exo compilation from atom gc --- pl/boot.yap | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/pl/boot.yap b/pl/boot.yap index 4ccc30ccf..3c1ddd51a 100755 --- a/pl/boot.yap +++ b/pl/boot.yap @@ -1043,18 +1043,22 @@ bootstrap(F) :- ). '$loop'(Stream,exo) :- + prolog_flag(agc_margin,Old,0), prompt1('| '), prompt(_,'| '), '$current_module'(OldModule), repeat, '$system_catch'(dbload_from_stream(Stream, OldModule, exo), '$db_load', Error, user:'$LoopError'(Error, Status)), + prolog_flag(agc_margin,_,Old), !. '$loop'(Stream,db) :- + prolog_flag(agc_margin,Old,0), prompt1('| '), prompt(_,'| '), '$current_module'(OldModule), repeat, '$system_catch'(dbload_from_stream(Stream, OldModule, db), '$db_load', Error, user:'$LoopError'(Error, Status)), + prolog_flag(agc_margin,_,Old), !. '$loop'(Stream,Status) :- (