From 7463cbea967e5f595fc8ccbdebcb0d1a7b6a6ad9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.(none)>
Date: Mon, 4 Apr 2011 14:35:42 +0100
Subject: [PATCH] protect readline against failure.

---
 pl/boot.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index d917e1b39..28019513f 100755
--- 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
 	;