(define-record-type foo (make-foo x y) foo? (x foo-x) (y foo-y)) (define-syntax test (ir-macro-transformer (lambda (exp inject compare) (let* ((type (cadr exp)) (body (cddr exp)) (get-x (inject (symbol-append (strip-syntax type) '- (strip-syntax 'x)))) (get-y (inject (symbol-append (strip-syntax type) '- (strip-syntax 'y))))) `(let ((thing ,@body)) (list (,get-x thing) (,get-y thing))))))) #;446> (test 'foo (make-foo 1 2)) Error: (symbol-append) during expansion of (test ...) - bad argument type - not a symbol: (quote foo) Call history: (test (quote foo) (make-foo 1 2)) (cadr exp) (cddr exp) (inject (symbol-append (strip-syntax type) (quote -) (strip-syntax (quote x)))) (symbol-append (strip-syntax type) (quote -) (strip-syntax (quote x))) (strip-syntax type) (strip-syntax (quote x)) <--