[nongnu] elpa/buttercup 9dc02684bf 3/5: Update buttercup--debugger to ignore :backtrace-base

[ELPA Syncer]

branch: elpa/buttercup
commit 9dc02684bf29f1535c9d3c517f371b81811c88fb
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>

    Update buttercup--debugger to ignore :backtrace-base
    
    The arguments to debugger sometime have :backtrace-base entry-point:
    
     IF the desired entry point of the debugger is higher in the call
     stack, it can be specified with the keyword argument
     ‘:backtrace-base’, whose format should be the same as the BASE
     argument of ‘backtrace-frame’.
    
    buttercup does not care about that argument at the moment, ignore it.
---
 buttercup.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 5e8cce65cd..541f33b513 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -2078,14 +2078,15 @@ failed -- The second value is the description of the 
expectation
 
 (defun buttercup--debugger (&rest args)
   "Debugger function that return error context with an exception.
-
 ARGS according to `debugger'."
   ;; If we do not do this, Emacs will not run this handler on
   ;; subsequent calls. Thanks to ert for this.
   (setq num-nonmacro-input-events (1+ num-nonmacro-input-events))
   (throw 'buttercup-debugger-continue
          (list 'failed args
-               (cl-destructuring-bind (_ (signal-type . data)) args
+               ;; args is (error (signal . data) ....) where the tail
+               ;; may be empty
+               (cl-destructuring-bind (signal-type . data) (cl-second args)
                  (unless (eq signal-type 'buttercup-pending)
                    (buttercup--backtrace))))))