diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix break

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@304 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-16 22:11:55 +00:00
parent 289d0da079
commit 6e8e59a0b1
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
changes4.3.html
View File

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

7
pl/boot.yap
View File

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