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 ...)
|
Stephen Compall wrote:
On Sat, 2007-10-13 at 08:37 +0200, Marco Maggi wrote:
(body ?args ?body)
First, invoke that instead of this. Second, does the above
pattern
match the below syntax?
(body ()
(display 'ciao)
(newline))
Thanks and sorry, I did multiple errors in
Ciao,
trying this:
(define-module (hurt-me)
#:use-module (ice-9 syncase))
(define-syntax this
(syntax-rules ()
((_ ?body ?handler)
(catch #t ?body ?handler
(this (lambda ()
(display 'ciao)
(newline))
(lambda (key . args)
#f))
(define-syntax that