Re: [cuirass] Typo?

[Ludovic Courtès]

Ricardo Wurmus <rekado@elephly.net> skribis:

> In (cuirass base) there is this definition:
>
> (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)))))
>
> The parentheses for the binding of “frame” look wrong to me:

Indeed, fixed!

Ludo’.