:- use_module(library('$project_atts')).
:- use_module(library('$atts')).
-:- dynamic(disabled_init_file/0).
+:- dynamic(disable_init_file/0).
load_scryerrc :-
( '$home_directory'(HomeDir) ->
Args = Args0
),
delegate_task(Args, []),
- (\+ disabled_init_file -> load_scryerrc ; true),
+ (\+ disable_init_file -> load_scryerrc ; true),
repl.
'$repl'(_) :-
( \+ argv(_) -> asserta('$toplevel':argv([]))
delegate_task([], []).
delegate_task([], Goals0) :-
reverse(Goals0, Goals),
- (\+ disabled_init_file -> load_scryerrc ; true),
+ (\+ disable_init_file -> load_scryerrc ; true),
run_goals(Goals),
repl.
write(' -g, --goal GOAL '),
write('Run the query GOAL'), nl,
write(' -f '),
- write('Do not load initialization file (~/.scryerrc)'),nl,
+ write('Fast startup. Do not load initialization file (~/.scryerrc)'),nl,
% write(' '),
halt.
delegate_task(Args, [Gs|Goals]).
init_file :-
- asserta('disabled_init_file').
+ asserta('disable_init_file').
arg_type(g).
arg_type(t).