`expr_depase()` incorrectly deparses a non-syntactic name

[hadley]

x <- quote(c("`a`" = 1))
rlang::expr_deparse(x)
#> [1] "c(``a`` = 1)"
deparse1(x)
#> [1] "c(`\\`a\\`` = 1)"

^{Created on 2023-07-26 with reprex v2.0.2}