debugging

2018-02-07 23:18:43 +00:00 · 2018-02-07 23:18:43 +00:00 · eee6760f96
commit eee6760f96
parent 8d6654d4cf
2 changed files with 4 additions and 0 deletions
--- a/pl/consult.yap
+++ b/pl/consult.yap
@ -1414,6 +1414,7 @@ initialization(_G,_OPT).
                OPT, initialization(G0,OPT)),
                '$yap_strip_module'(G0,M,G1),
              '$expand_term'((M:G1), G),
+              writeln(G),
   (
 	 OPT == now
 	->
--- a/pl/debug.yap
+++ b/pl/debug.yap
@ -924,7 +924,10 @@ be lost.

 '$scan_number'(Nb) :-
 	readutil:read_line_to_codes( debugger_input, S),
+	S = [_|_],
+	!,
        number_codes(Nb,S).
+'$scan_number'(0).

 '$print_deb_sterm'(G) :-
 	'$get_sterm_list'(L), !,