(define-syntax foo
  (let-syntax ((bar (syntax-rules ()
                      ((_ x) '(x x)))))
    (syntax-rules ()
      ((_ x) (bar x)))))

(foo 1)

;; Error: unbound variable: bar