fix break

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@304 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

changes4.3.html

@@ -16,6 +16,7 @@
 
 <h2>Yap-4.3.21:</h2>
 <ul>
+	<li>FIXED: break should not start the whole system.</li>
 	<li>FIXED: abolish could backtrack and give weird error (Nicos
 	Angelopoulos).</li>
 	<li>FIXED: make consult, use_module and friends meta-predicates

pl/boot.yap

@@ -22,6 +22,10 @@ true :- true. % otherwise, $$compile will ignore this clause.
 
 '$live' :-
 	'$init_system',
+        '$init_catch',
+        '$do_live'.
+
+'$do_live' :-
 	repeat,
 		'$set_input'(user),'$set_output'(user),
 		'$current_module'(Module),
@@ -69,7 +73,6 @@ read_sig.
 		       (nl,writeq('[ Received user signal 2 ]'),nl,halt)), _),
 	'$set_yap_flags'(10,0),
 	'$set_value'('$gc',on),
-	'$init_catch',
 	prompt('  ?- '),
 	(
 	    '$get_value'('$break',0)
@@ -845,7 +848,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
 	'$set_value'('$break',NBL),
 	current_output(OutStream), current_input(InpStream),
 	'$format'(user_error, "[ Break (level ~w) ]~n", [NBL]),
-	'$live',
+	'$do_live',
 	!,
 	'$set_value'('$live',true),
 	'$set_value'(spy_sl,SPY_SL),