(define-syntax b
  (let-syntax ((a (syntax-rules ()
                    ((_) 'a))))
    (syntax-rules ()
      ((_ x)
       (a)))))

(display (b (a)))