usabiity

C/exec.c

@@ -327,7 +327,7 @@ inline static bool do_execute(Term t, Term mod USES_REGS) {
     /* I cannot use the standard macro here because
        otherwise I would dereference the argument and
        might skip a svar */
-    if (pen->PredFlags & (MetaPredFlag | UndefPredFlag)) {
+    if (pen->PredFlags & (MetaPredFlag | UndefPredFlag | SpiedPredFlag)) {
       return CallMetaCall(t0, mod0 PASS_REGS);
     }
     pt = RepAppl(t) + 1;

H/YapFlags.h

@@ -354,6 +354,7 @@ static inline bool verboseMode(void) {
   return GLOBAL_Flags[VERBOSE_FLAG].at != TermSilent;
 }
 
+
 static inline void setVerbosity(Term val) {
   GLOBAL_Flags[VERBOSE_FLAG].at = val;
 }

pl/debug.yap

@@ -298,11 +298,11 @@ be lost.
   * @param _Mod_:_Goal_ is the goal to be examined.
   * @return `call(Goal)`
 */
-'$trace'([Mod|G]) :-
-    '$stop_creeping'(_),
-	current_prolog_flag(debug, false),
-	!,
-	'$execute_nonstop'(G,Mod).
+%% '$trace'([Mod|G]) :-
+%%     '$stop_creeping'(_),
+%     set_prolog_flag(debug, true),
+%%     !,
+%%     '$execute_nonstop'(G,Mod).
 '$trace'([Mod|G]) :-
     CP is '$last_choice_pt',
     '$trace_query'(G, Mod, CP, G, EG),
@@ -314,8 +314,6 @@ be lost.
     ).
 
 
-'$continue_debugging'(_) :- !,
-	current_prolog_flag(debug, false).
 '$continue_debugging'(exit) :- !, '$creep'.
 '$continue_debugging'(answer) :- !, '$creep'.
 '$continue_debugging'(fail) :- !, '$creep'.
@@ -694,9 +692,6 @@ be lost.
 	CP is '$last_choice_point',
 	Goal.
 
-'$port'(_P,_G,_Module,_L,_Determinic, _Info ) :-  %%> debugging done
-	current_prolog_flag(debug, false),
-	!.
 '$port'(_P, _G, _M,GoalNumber,_Determinic, _Info ) :-   %%> leap
         '__NB_getval__'('$debug_status',state(leap,Border,_), fail),
 	GoalNumber > Border,

pl/errors.yap

@@ -94,6 +94,7 @@ error_handler(Error, Level) :-
     '$LoopError'(Error, Level).
 
 '$LoopError'(_, _) :-
+    stop_low_level_trace,
     flush_output(user_output),
 	flush_output(user_error),
 	fail.

pl/qly.yap

@@ -558,11 +558,11 @@ Restores a previously saved state of YAP contaianing a qly file  _F_.
 
 */
 qload_file( F0 ) :-
-    ( current_prolog_flag(verbose_load, false)
+    ( current_prolog_flag(verbose_load, true)
       ->
-	Verbosity = silent
-	;
 	Verbosity = informational
+	;
+	Verbosity = silent
     ),
     StartMsg = loading_module,
     EndMsg = module_loaded,