From 700586a3b1dc75b6047f0b25859b10839d8ddd78 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 13 Mar 2013 14:20:59 +0000
Subject: Made the backtrace type opaque

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16298 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/backtrace.mli | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'lib/backtrace.mli')

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
-- 
cgit v1.2.3