From a21547d9d41c55aed2872c992983afbfb0ba20ff Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Sun, 31 Jul 2016 10:34:54 -0500 Subject: [PATCH] more files to consult --- pl/init.yap | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) diff --git a/pl/init.yap b/pl/init.yap index b7392e54e..cc1873a95 100644 --- a/pl/init.yap +++ b/pl/init.yap @@ -42,7 +42,7 @@ :- use_system_module( '$_boot', ['$cut_by'/1]). -% :- start_low_level_trace. +%:- start_low_level_trace. % This is the YAP init file % should be consulted first step after booting @@ -110,10 +110,9 @@ otherwise. :- '$all_current_modules'(M), yap_flag(M:unknown, error) ; true. - - :- compile_expressions. +:- bootstrap('bootutils.yap'). :- bootstrap('bootlists.yap'). :- bootstrap('consult.yap'). :- bootstrap('preddecls.yap'). @@ -121,21 +120,16 @@ otherwise. :- bootstrap('meta.yap'). :- bootstrap('newmod.yap'). - :- bootstrap('atoms.yap'). :- bootstrap('os.yap'). :- bootstrap('grammar.yap'). +:- bootstrap('directives.yap'). :- bootstrap('absf.yap'). -%:-set_prolog_flag(gc_trace, verbose). -%:- set_prolog_flag( verbose_file_search, true ). :- dynamic prolog:'$parent_module'/2. - - :- [ - 'directives.yap', 'preds.yap', 'modules.yap' ]. @@ -181,6 +175,7 @@ otherwise. 'spy.yap', 'udi.yap']. + :- meta_predicate(log_event(+,:)). :- dynamic prolog:'$user_defined_flag'/4. @@ -198,9 +193,6 @@ version(yap,[6,3]). :- dynamic 'extensions_to_present_answer'/1. :- ['arrays.yap']. - -:- ['undefined.yap']. - %:- start_low_level_trace. :- multifile user:portray_message/2. @@ -238,6 +230,8 @@ sub-goal _NG_ will replace _G_ and will be processed in the same :- use_module('messages.yap'). +:- ['undefined.yap']. + :- use_module('hacks.yap'). @@ -345,6 +339,8 @@ If this hook predicate succeeds it must instantiate the _Action_ argument to th :- dynamic user:exception/3. + +:- reconsult('pathconf.yap'). /* Add some tests */ @@ -352,8 +348,6 @@ If this hook predicate succeeds it must instantiate the _Action_ argument to th :- yap_flag(user:unknown,error). -:- stream_property(user_input, tty(true)) -> set_prolog_flag(readline, true) ; true. - /* :- if(predicate_property(run_tests, static)).