Welcome to the CHICKEN Scheme pasting service
odd syntax problem added by Kooda on Tue Oct 31 20:05:52 2017
(define-for-syntax (translate str) (string-trim-right str (lambda (c) (or (eq? c #\!) (eq? c #\?))))) (define-syntax foo (ir-macro-transformer (lambda (exp inject compare) `,(translate (symbol->string (inject (cadr exp))))))) (print (foo bar!!))