This is the mail archive of the
kawa@sources.redhat.com
mailing list for the Kawa project.
Re: Calling define within define-syntax
- From: Chris Dean <ctdean at sokitomi dot com>
- To: Per Bothner <per at bothner dot com>
- Cc: Kawa List <kawa at sources dot redhat dot com>
- Date: Thu, 16 Sep 2004 01:56:18 -0700
- Subject: Re: Calling define within define-syntax
- References: <878ybaipz4.fsf@mercedsystems.com> <41495453.4060903@bothner.com>
Per Bothner <per@bothner.com> writes:
> (I assume you know about the trace/untrace forms?)
Sure. This was just a simple example to illustrate the question.
If you're interested, my real code is:
(define-syntax define-assertion
(syntax-rules ()
((define-assertion (name arg ...) body ...)
(define (name arg ... #!optional (message #f))
(let ((res (begin body ...)))
(or res
(begin
(junit.framework.Assert:fail (or message "Assertion"))
#f)))))))
Regards,
Chris Dean