(library (foo)
  (export foo)
  (import (rnrs base (6)))
  (define-syntax foo
    (lambda (stx)
      (syntax-case stx ()
        ((foo x ...) #'(list x ...))))))