Comparison of literal from pattern variable is incorrect

[Takashi Kato]

This should return 'ok

(define-syntax foo
  (syntax-rules ()
    ((_ a b)
     (let-syntax ((bar (syntax-rules (a)
                         ((_ b) 'ok)
                         ((_ d) 'ng))))
       (bar d)))
    ((_ x ...)
     (foo x ... tt*))))
(foo)
;; -> ng

[Takashi Kato]

Using bound-identifier=? to compare syntax literals. (Fixes #155) Don't rename literals if they are already identifiers.

→ <<cset 74ef3056e5b3>>