[elpa] externals/bug-hunter a0ed5ea 40/95: Move around variables

[Stefan Monnier]

branch: externals/bug-hunter
commit a0ed5ea1d3b9abdeaf91b01c75889a5512ea67bd
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>

    Move around variables
---
 bug-hunter.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/bug-hunter.el b/bug-hunter.el
index 1e6ac02..bea82b4 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -61,6 +61,16 @@
 (require 'seq)
 (require 'cl-lib)
 
+(defvar bug-hunter--i 0
+  "Current step of the bisection. Used for user feedback.")
+(defvar bug-hunter--estimate 0
+  "Estimate on how many steps the bisection can take. Used for user feedback.
+This is the base 2 log of the number of expressions in the
+file.")
+
+(defvar bug-hunter--current-file nil
+  "File currently being debugged.")
+
 (defun bug-hunter--read-buffer ()
   "Return all sexps after point as a list."
   (let ((out)
@@ -155,9 +165,6 @@ See `bug-hunter' for a description on the ASSERTION."
 (defun bug-hunter--split (l)
   (seq-partition l (ceiling (/ (length l) 2.0))))
 
-(defvar bug-hunter--i 0)
-(defvar bug-hunter--estimate 0)
-
 (defun bug-hunter--bisect (assertion safe head &optional tail)
   "Implementation used by `bug-hunter--bisect-start'."
   (cond
@@ -191,8 +198,6 @@ signal an error and value is (bug-caught . ERROR-SIGNALED)."
         (bug-hunter--estimate (ceiling (log (length forms) 2))))
     (apply #'bug-hunter--bisect assertion nil (bug-hunter--split forms))))
 
-(defvar bug-hunter--current-file nil)
-
 (defun bug-hunter--report-error (line column error-description &rest info)
   (bug-hunter--report "%S, line %s pos %s:"
     bug-hunter--current-file line column)