tracking + flags
This commit is contained in:
parent
e8e33e405a
commit
c3487d0fc0
@ -446,7 +446,6 @@ true :- true.
|
|||||||
'$read_toplevel'(Goal, Bindings) :-
|
'$read_toplevel'(Goal, Bindings) :-
|
||||||
prompt1('?- '),
|
prompt1('?- '),
|
||||||
prompt(_,'|: '),
|
prompt(_,'|: '),
|
||||||
'$system_catch'('$raw_read'(user_input, Line), prolog, E,
|
|
||||||
(print_message(error, E),
|
(print_message(error, E),
|
||||||
'$handle_toplevel_error'(Line, E))),
|
'$handle_toplevel_error'(Line, E))),
|
||||||
(
|
(
|
||||||
|
Reference in New Issue
Block a user