forget the past for now
This commit is contained in:
parent
e6b6e7c593
commit
af67ebf5da
12
pl/boot.yap
12
pl/boot.yap
@ -469,18 +469,6 @@ true :- true.
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
/* main execution loop */
|
/* main execution loop */
|
||||||
'$read_toplevel'(Goal, Bindings) :-
|
|
||||||
fail,
|
|
||||||
'$pred_exists'(read_history(_,_,_,_,_,_), user),
|
|
||||||
current_prolog_flag(readline, true), !,
|
|
||||||
read_history(h, '!h',
|
|
||||||
[trace, end_of_file],
|
|
||||||
Prompt, Goal, Bindings), !,
|
|
||||||
(nonvar(Err) ->
|
|
||||||
'$early_print'(error,Err), fail
|
|
||||||
;
|
|
||||||
true
|
|
||||||
).
|
|
||||||
'$read_toplevel'(Goal, Bindings) :-
|
'$read_toplevel'(Goal, Bindings) :-
|
||||||
'$prompt',
|
'$prompt',
|
||||||
'$system_catch'(read_term(user_input,
|
'$system_catch'(read_term(user_input,
|
||||||
|
Reference in New Issue
Block a user