Hi,
I began to write this macro:
(define-macro (csg:make-mode-handler mode)
(let ((name+ (string->symbol (string-append "bind+/"
(symbol->string mode))))
(name- (string->symbol (string-append "bind-/"
(symbol->string mode))))
(press (string->symbol (string-append "key-press-bindings/"
(symbol->string mode))))
(release (string->symbol (string-append
"key-release-bindings/" (symbol->string 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 ?
Is it the correct way to achieve this ?
Thanks a lot,
thu
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
