fix prompt

This commit is contained in:
Vitor Santos Costa 2011-08-31 21:10:49 -07:00
parent d21888abc9
commit 841dd3a3e1
1 changed files with 2 additions and 2 deletions

View File

@ -161,8 +161,8 @@ true :- true.
true true
). ).
'$read_toplevel'(Goal, Bindings) :- '$read_toplevel'(Goal, Bindings) :-
prompt(_,'?- '), prompt1('?- '),
prompt1('|: '), prompt(_,'|: '),
'$system_catch'('$raw_read'(user_input, Line), prolog, E, '$system_catch'('$raw_read'(user_input, Line), prolog, E,
(print_message(error, E), (print_message(error, E),
( E = error(syntax_error(_), _) ( E = error(syntax_error(_), _)