[no subject]

[Ludovic Courtès]

branch: master
commit 85bcc32bcf723224ca9a14baa8323ac95c128d00
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Nov 16 16:15:16 2023 +0100

    base: Fix typo in ‘exception-reporter’.
    
    * src/cuirass/base.scm (exception-reporter): Fix (> depth 0) case.
    
    Reported-by: Ricardo Wurmus <rekado@elephly.net>
---
 src/cuirass/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 2950cdd..2d812eb 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -220,7 +220,7 @@ and returns the values RESULTS."
      (let* ((stack (make-stack #t))
             (depth (stack-length stack))
             (frame (or (and (> depth 1) (stack-ref stack 1))
-                       (and (> depth 0)) (stack-ref stack 0))))
+                       (and (> depth 0) (stack-ref stack 0)))))
        (print-exception (current-error-port) frame key args)
        (apply values results)))))