[cuirass] Typo?

[Ricardo Wurmus]

Hi,

In (cuirass base) there is this definition:

--8<---------------cut here---------------start------------->8---
(define (exception-reporter . results)
  "Return an exception handler that reports the exception on the error port
and returns the values RESULTS."
  (lambda (key . args)
    (false-if-exception
     (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))))
       (print-exception (current-error-port) frame key args)
       (apply values results)))))
--8<---------------cut here---------------end--------------->8---

The parentheses for the binding of “frame” look wrong to me:

(frame (or (and (> depth 1) (stack-ref stack 1))
           (and (> depth 0))
           (stack-ref stack 0)))

-- 
Ricardo