Ypsilon 0.9.6-trunk/r503 でエラーになるでよ

library-a.sls

#!r6rs
(library (library-a)
  (export with-library-a)
  (import (rnrs) (library-accessor))

  (define x 'library-a)

  (define-accessor-for-outer-of-library with-library-a)
  )

library-accessor.sls

#!r6rs
(library (library-accessor)
  (export define-accessor-for-outer-of-library)
  (import (rnrs))

  (define x 'library-accessor)

  (define-syntax define-accessor-for-outer-of-library
    (lambda(stx)
      (syntax-case stx ()
        ((k name)
         #'(define-syntax name
             (lambda(stx)
               (syntax-case stx ()
                 ((_ p)
                  (datum->syntax #'k (syntax->datum #'p))))))))))
  )

test.scm

#!r6rs
(import (rnrs) (library-a))

(define x 'test)

(display (with-library-a x))