Re: [Chicken-users] ssax parser error

[felix winkelmann]

On 7/11/06, Daishi Kato <address@hidden> wrote:


> Hm, I'm not yet used to the exceptions.
> How about this?
> If OK, do you want me to commit it?
> Or somebody (a first commiter?) should do it.
> Daishi
>
> --- ssax-core.scm       (revision 1205)
> +++ ssax-core.scm       (working copy)
> @@ -1599,7 +1599,10 @@
>  ; Normally the definition of parser-error is to be provided by the user.
>  (run-test
>   (define (parser-error port msg . specializing-msgs)
> -   (apply error (cons msg specializing-msgs)))
> +   (signal
> +    (make-composite-condition
> +     (make-property-condition 'ssax 'port port)
> +     (make-property-condition 'exn 'message (apply string-append msg 
> specializing-msgs)))))
>  )

This looks fine, please commit it.


cheers,
felix