#;12> (define-syntax double-inject (ir-macro-transformer (lambda (form inject compare) (print (inject (cadr form))) `(void))))
#;13> (double-inject foo)
foo