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
).
'$read_toplevel'(Goal, Bindings) :-
prompt(_,'?- '),
prompt1('|: '),
prompt1('?- '),
prompt(_,'|: '),
'$system_catch'('$raw_read'(user_input, Line), prolog, E,
(print_message(error, E),
( E = error(syntax_error(_), _)