remove system mod
This commit is contained in:
parent
f835ff153d
commit
45e3711ca2
@ -613,7 +613,7 @@ PL_install_readline(void)
|
||||
Serror->functions = &GD->os.rl_functions;
|
||||
|
||||
#define PRED(name, arity, func, attr) \
|
||||
PL_register_foreign_in_module("system", name, arity, func, attr)
|
||||
PL_register_foreign_in_module("prolog", name, arity, func, attr)
|
||||
|
||||
PRED("rl_read_init_file", 1, pl_rl_read_init_file, 0);
|
||||
PRED("rl_add_history", 1, pl_rl_add_history, PL_FA_NOTRACE);
|
||||
|
@ -450,13 +450,13 @@ true :- true.
|
||||
(print_message(error, E),
|
||||
'$handle_toplevel_error'(Line, E))),
|
||||
(
|
||||
'$pred_exists'(rl_add_history(_), user)
|
||||
'$pred_exists'(rl_add_history(_), prolog)
|
||||
->
|
||||
format(atom(CompleteLine), '~W~W',
|
||||
[ Line, [partial(true)],
|
||||
'.', [partial(true)]
|
||||
]),
|
||||
user:rl_add_history(CompleteLine)
|
||||
userprolog:rl_add_history(CompleteLine)
|
||||
;
|
||||
true
|
||||
),
|
||||
|
Reference in New Issue
Block a user