protect readline against failure.

2011-04-04 14:35:42 +01:00 · 2011-04-04 14:35:42 +01:00 · 7463cbea96
commit 7463cbea96
parent 4ed9df43ac
1 changed files with 2 additions and 2 deletions
--- a/pl/boot.yap
+++ b/pl/boot.yap
@ -145,10 +145,10 @@ true :- true.

 /* main execution loop							*/
 '$read_vars'(user_input, Goal, Mod, Pos, Bindings) :-
-	'$swi_current_prolog_flag'(readline, true), !,
+	'$swi_current_prolog_flag'(readline, true),
 	read_history(h, '!h',
                         [trace, end_of_file],
-                         ' ?- ', Goal, Bindings),
+                         ' ?- ', Goal, Bindings), !,
 	(nonvar(Err) ->
 	 print_message(error,Err), fail
 	;