open Printf
-let debug = true
+let debug = false
let debug_print s = if debug then prerr_endline (Lazy.force s) else ()
open Continuationals.Stack
let id_tac status = status ;;
let print_tac print_status message status =
- if print_status then pp_tac_status status;
+ if print_status then pp_status status;
prerr_endline message;
status
;;
(fun tac _ -> try Some (tac status) with NTacStatus.Error _ -> None) tacl
in
match res with
- | None -> raise (NTacStatus.Error (lazy("No tactic left")))
+ | None -> fail (lazy "No tactics left")
| Some x -> x
;;