break should restore system_mode.
This commit is contained in:
parent
6acf7eeb0a
commit
13f66957b6
@ -932,6 +932,7 @@ not(G) :- \+ '$execute'(G).
|
|||||||
debugger state */
|
debugger state */
|
||||||
|
|
||||||
break :-
|
break :-
|
||||||
|
nb_getval('$system_mode',SystemMode),
|
||||||
nb_getval('$trace',Trace),
|
nb_getval('$trace',Trace),
|
||||||
nb_setval('$trace',off),
|
nb_setval('$trace',off),
|
||||||
'$debug_on'(Debug),
|
'$debug_on'(Debug),
|
||||||
@ -951,7 +952,8 @@ break :-
|
|||||||
'$set_input'(InpStream), '$set_output'(OutStream),
|
'$set_input'(InpStream), '$set_output'(OutStream),
|
||||||
'$debug_on'(Debug),
|
'$debug_on'(Debug),
|
||||||
nb_setval('$trace',Trace),
|
nb_setval('$trace',Trace),
|
||||||
nb_setval('$break',BL).
|
nb_setval('$break',BL),
|
||||||
|
nb_setval('$system_mode',SystemMode).
|
||||||
|
|
||||||
'$silent_bootstrap'(F) :-
|
'$silent_bootstrap'(F) :-
|
||||||
'$init_consult',
|
'$init_consult',
|
||||||
|
Reference in New Issue
Block a user