"Marco Maggi" <[EMAIL PROTECTED]> writes:
> |(define-syntax that
> | (syntax-rules (body handler)
> | ((_ (body ?body ...)
> | (handler ?handler-args ?handler ...))
> | (catch #t
> | (lambda ()
> | ?body ...)
> | (lambda ?handler-args
> | ?handler ...)))))
> |
> |(that (body
> | (display 'ciao)
> | (newline))
> | (handler (key . args)
> | #f))
FWIW: I just tried that (with CVS HEAD, and with a preceding
`(use-syntax (ice-9 syncase))'), and it worked for me.
Regards,
Neil
_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-user
