syntax error
This commit is contained in:
parent
0788a6c857
commit
98b4f64b40
@ -327,7 +327,7 @@ break :-
|
|||||||
nb_getval('$debug_jump',Jump),
|
nb_getval('$debug_jump',Jump),
|
||||||
nb_getval('$debug_run',Run),
|
nb_getval('$debug_run',Run),
|
||||||
'$swi_current_prolog_flag'(debug, Debug),
|
'$swi_current_prolog_flag'(debug, Debug),
|
||||||
'$swi_set_prolog_flag'(debug, false)
|
'$swi_set_prolog_flag'(debug, false),
|
||||||
nb_getval('$break',BL), NBL is BL+1,
|
nb_getval('$break',BL), NBL is BL+1,
|
||||||
nb_getval('$spy_gn',SPY_GN),
|
nb_getval('$spy_gn',SPY_GN),
|
||||||
b_getval('$spy_glist',GList),
|
b_getval('$spy_glist',GList),
|
||||||
|
@ -651,7 +651,7 @@ debugging :-
|
|||||||
read(user,G),
|
read(user,G),
|
||||||
% don't allow yourself to be caught by creep.
|
% don't allow yourself to be caught by creep.
|
||||||
'$swi_current_prolog_flag'(debug, OldDeb),
|
'$swi_current_prolog_flag'(debug, OldDeb),
|
||||||
'$swi_set_prolog_flag'(debug, false)
|
'$swi_set_prolog_flag'(debug, false),
|
||||||
( '$execute'(G) -> true ; true),
|
( '$execute'(G) -> true ; true),
|
||||||
'$swi_set_prolog_flag'(debug, OldDeb),
|
'$swi_set_prolog_flag'(debug, OldDeb),
|
||||||
% '$skipeol'(0'!), % '
|
% '$skipeol'(0'!), % '
|
||||||
|
Reference in New Issue
Block a user