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

remove system mod

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
os/pl-rl.c
View File

@ -613,7 +613,7 @@ PL_install_readline(void)
Serror->functions = &GD->os.rl_functions; Serror->functions = &GD->os.rl_functions;
#define PRED(name, arity, func, attr) \ #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_read_init_file", 1, pl_rl_read_init_file, 0);
PRED("rl_add_history", 1, pl_rl_add_history, PL_FA_NOTRACE); PRED("rl_add_history", 1, pl_rl_add_history, PL_FA_NOTRACE);

4
pl/boot.yap
View File

@ -450,13 +450,13 @@ true :- true.
(print_message(error, E), (print_message(error, E),
'$handle_toplevel_error'(Line, E))), '$handle_toplevel_error'(Line, E))),
( (
'$pred_exists'(rl_add_history(_), user) '$pred_exists'(rl_add_history(_), prolog)
-> ->
format(atom(CompleteLine), '~W~W', format(atom(CompleteLine), '~W~W',
[ Line, [partial(true)], [ Line, [partial(true)],
'.', [partial(true)] '.', [partial(true)]
]), ]),
user:rl_add_history(CompleteLine) userprolog:rl_add_history(CompleteLine)
; ;
true true
), ),