Hi Krister,

On Sat 28 Jul 2012 16:39, Krister Svanlund <krister.svanl...@gmail.com> writes:

> +  (define (system-error-printer port key args default-printer)
> +    (apply (case-lambda
> +             ((func fmt reasons _) 
> +              (format port "System error:\n")
> +              (apply format port fmt reasons))
> +             (_ (default-printer)))
> +           args))
> +

Is this actually an improvement?  We miss out on the "func" argument.
Can you show examples before and after this change?

Andy
-- 
http://wingolog.org/

Reply via email to