From 841dd3a3e18b50e61e85c00d0df33d2e2b6fd652 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 31 Aug 2011 21:10:49 -0700
Subject: [PATCH] fix prompt

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

diff --git a/pl/boot.yap b/pl/boot.yap
index 888d88d79..bea338cc5 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -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(_), _)