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