Sagittarius 0.5.0 のバグ？

sagittarius-0.5.0-bug.scm

#!r6rs
;; Sagittarius 0.5.0 のバグ？
(import (rnrs))

(define-syntax let/scope
  (lambda(x)
    (syntax-case x ()
      ((k scope-name body ...)
       #'(let-syntax
             ((scope-name
               (lambda(x)
                 (syntax-case x ()
                   ((_ b (... ...))
                    #`(begin
                        #,@(datum->syntax #'k
                             (syntax->datum #'(b (... ...))))))))))
           body ...)))))

(write
 (let ((x 1))
   (let/scope d1
     (let ((x 2))
       (let/scope d2
         (let ((x 3))
           (let/scope d1
             (list (d2 (d1 x)) (d2 x) x))))))))