remove system mod

This commit is contained in:
Vitor Santos Costa 2015-01-16 20:42:52 -08:00
parent f835ff153d
commit 45e3711ca2
2 changed files with 3 additions and 3 deletions

View File

@ -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);

View File

@ -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
),