6cdede33fb
The app unexpanders for `Name.mkStr1` through `Name.mkStr8` weren't respecting the escaping rules for names. For example, ``#check `«a.b»`` would show `` `a.b``. This PR folds the unexpanders into the name literal delaborator, where escaping is already handled.
22 lines
628 B
Text
22 lines
628 B
Text
fun x => do
|
|
let info ← MonadRef.mkInfoFromRefPos
|
|
let scp ← getCurrMacroScope
|
|
let mainModule ← getMainModule
|
|
pure
|
|
{
|
|
raw :=
|
|
Syntax.node2 info `«term👉__» (Syntax.atom info "👉")
|
|
x.raw } : (x : TSyntax [`ident, `token._]) → ?m x (TSyntax `term)
|
|
true
|
|
true
|
|
fun x => do
|
|
let info ← MonadRef.mkInfoFromRefPos
|
|
let scp ← getCurrMacroScope
|
|
let mainModule ← getMainModule
|
|
pure
|
|
{
|
|
raw :=
|
|
Syntax.node2 info `termBarBazBoing (Syntax.atom info "bar")
|
|
x.raw } : (x : TSyntax [`token.baz, `token.boing]) → ?m x (TSyntax `term)
|
|
true
|
|
true
|