Ypsilon 0.9.6-trunk/r503 で期待と異なる結果が返ってくる

reinterpret.sls

#!r6rs
(library (reinterpret)
  (export reinterpret)
  (import (rnrs))

  (define-syntax reinterpret
    (lambda(stx)
      (syntax-case stx ()
        ((_ x)
         (free-identifier=? (datum->syntax #'k (syntax->datum #'x)) #'x)))))
  )

test.scm

#!r6rs
(import (rename (reinterpret) (reinterpret reinterpret:reinterpret))
        (rnrs))

(display (reinterpret:reinterpret reinterpret:reinterpret))
;; expect #f