Pantograph/Condensed.lean

@@ -17,6 +17,13 @@ def nameToStr (s: String) : Name := s.toName
 @[export pantograph_name_is_inaccessible]
 def isInaccessible (n: Name) : Bool := n.isInaccessibleUserName
 
+@[export pantograph_mk_app_meta_m]
+def mkAppM (constName : Name) (xs : Array Expr) : MetaM Expr := Meta.mkAppM constName xs
+
+@[export pantograph_pp_expr]
+def ppExpr (e: Expr) := Meta.ppExpr e
+
+
 -- Mirrors Lean's LocalDecl
 structure LocalDecl where
   -- Default value is for testing

Pantograph/Library.lean

@@ -78,9 +78,10 @@ def createCoreState (imports: Array String): IO Core.State := do
     (trustLevel := 1)
   return { env := env }
 
-@[export pantograph_create_meta_context]
-def createMetaContext: IO Lean.Meta.Context := do
-  return {}
+@[export pantograph_meta_context]
+def metaContext: Lean.Meta.Context := {}
+@[export pantograph_meta_state]
+def metaState: Lean.Meta.State := {}
 
 @[export pantograph_env_catalog_m]
 def envCatalog: CoreM Protocol.EnvCatalogResult :=