(module literal-identifier= mzscheme
  (provide (all-defined))
  (define (literal-identifier=? i j)
    (and (identifier? i) (identifier? j)
         (eq? (syntax-e i) (syntax-e j)))))