"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
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))
--
;;; Stephen Compall ** http://scompall.nocandysw.com/blog **
"Pet
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
