(define-library (foo)
  (import (scheme base) (scheme write))
  (export display)
  (begin
    (define-syntax test
      (syntax-rules ()
        ((_)
         (+ 1 2))))
    (test)))