Made the backtrace type opaque

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16298 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 6 insertions, 3 deletions

diff --git a/lib/backtrace.mli b/lib/backtrace.mli
index d5a96e6f75..b5a956573d 100644
--- a/lib/backtrace.mli
+++ b/lib/backtrace.mli
@@ -32,9 +32,8 @@ type frame = { frame_location : location option; frame_raised : bool; }
 (** A frame contains two informations: its optional physical location, and
     whether it raised the exception or let it pass through. *)
 
-type t = frame list
-(** Type of backtraces. They're just stack of frames. [None] indicates that we
-    don't care about recording the backtraces. *)
+type t
+(** Type of backtraces. They're essentially stack of frames. *)
 
 val empty : t
 (** Empty frame stack. *)
@@ -42,6 +41,10 @@ val empty : t
 val push : t -> t
 (** Add the current backtrace information to a given backtrace. *)
 
+val repr : t -> frame list
+(** Represent a backtrace as a list of frames. Leftmost element is the outermost
+    call. *)
+
 (** {5 Utilities} *)
 
 val print_frame : frame -> string