2007/3/26, Arto Bendiken <[EMAIL PROTECTED]>:
On 3/26/07, minh thu <[EMAIL PROTECTED]> wrote:
>
> (define-macro (csg:make-mode-handler mode)
> ...
>     `(define ,press '())
>     `(define ,release '())
>     `(define (,name+) (print "hello+"))
>     `(define (,name-) (print "hello-"))))
>
> Only the later `(define ...) is produced. How can I have the three
> other ones produced too ?

Wrap the `define' forms in a `begin', like so:

  `(begin
     (define ,press '())
     (define ,release '())
     ...)

Thank you very much!
thu


_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to