From c0e2a592ea819389bd5a39d289aabdd3d7a26a75 Mon Sep 17 00:00:00 2001 From: Leni Aniva Date: Fri, 2 Aug 2024 21:44:46 -0700 Subject: [PATCH] feat: Expose `mkAppM'` --- Pantograph/Condensed.lean | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Pantograph/Condensed.lean b/Pantograph/Condensed.lean index 1db3c62..fcd70a0 100644 --- a/Pantograph/Condensed.lean +++ b/Pantograph/Condensed.lean @@ -23,6 +23,8 @@ def isInaccessible (n: Name) : Bool := n.isInaccessibleUserName || n.hasMacroSco @[export pantograph_mk_app_m] def mkAppM (constName : Name) (xs : Array Expr) : MetaM Expr := Meta.mkAppM constName xs +@[export pantograph_mk_app_m_expr] +def mkAppM' (f: Expr) (xs : Array Expr) : MetaM Expr := Meta.mkAppM' f xs @[export pantograph_pp_expr_m] def ppExpr (e: Expr): MetaM String := toString <$> Meta.ppExpr e