Comparison of literal from pattern variable is incorrect

Create issue
Issue #155 resolved
Takashi Kato repo owner created an issue

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

Comments (1)

  1. Log in to comment