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

fix missing initialization (obs from Paulo Moura).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-02-28 09:08:06 +00:00
parent a5e8dbc096
commit 12b8acfa20
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pl/boot.yap
View File

@ -65,19 +65,12 @@ true :- true.
'$stream_representation_error'(user_output, 512), '$stream_representation_error'(user_output, 512),
'$stream_representation_error'(user_error, 512), '$stream_representation_error'(user_error, 512),
'$enter_system_mode', '$enter_system_mode',
'$init_globals',
set_value(fileerrors,1), set_value(fileerrors,1),
'$init_consult',
set_value('$gc',on), set_value('$gc',on),
('$exit_undefp' -> true ; true), ('$exit_undefp' -> true ; true),
prompt(' ?- '), prompt(' ?- '),
nb_setval('$break',0),
% '$set_read_error_handler'(error), let the user do that
nb_setval('$open_expands_filename',true),
'$debug_on'(false), '$debug_on'(false),
nb_setval('$trace',off),
nb_setval('$assert_all',off),
nb_setval('$if_skip_mode',no_skip),
b_setval('$spy_glist',[]),
% simple trick to find out if this is we are booting from Prolog. % simple trick to find out if this is we are booting from Prolog.
get_value('$user_module',V), get_value('$user_module',V),
( (
@ -101,6 +94,17 @@ true :- true.
'$init_or_threads', '$init_or_threads',
'$run_at_thread_start'. '$run_at_thread_start'.
'$init_globals' :-
'$init_consult',
nb_setval('$break',0),
% '$set_read_error_handler'(error), let the user do that
nb_setval('$open_expands_filename',true),
nb_setval('$trace',off),
nb_setval('$assert_all',off),
nb_setval('$if_skip_mode',no_skip),
b_setval('$spy_glist',[]).
'$init_consult' :- '$init_consult' :-
nb_setval('$lf_verbose',informational), nb_setval('$lf_verbose',informational),
nb_setval('$if_level',0), nb_setval('$if_level',0),
@ -1007,7 +1011,7 @@ break :-
nb_setval('$system_mode',SystemMode). nb_setval('$system_mode',SystemMode).
'$silent_bootstrap'(F) :- '$silent_bootstrap'(F) :-
'$init_consult', '$init_globals',
nb_setval('$if_level',0), nb_setval('$if_level',0),
nb_getval('$lf_verbose',OldSilent), nb_getval('$lf_verbose',OldSilent),
nb_setval('$lf_verbose',silent), nb_setval('$lf_verbose',silent),