(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 ((get-x (inject (symbol-append (strip-syntax 'foo) '- (strip-syntax 'x))))
           (get-y (inject (symbol-append (strip-syntax 'foo) '- (strip-syntax 'y))))
           (body (cdr exp)))
       `(lambda () ,@body)))))
       ;;`(list ,(get-x body) ,(get-y body))))))