Repl.lean

@@ -97,16 +97,7 @@ def liftTermElabM { α } (termElabM : Elab.TermElabM α) (levelNames : List Name
   }
   runCoreM $ termElabM.run' context state |>.run'
 
-section Frontend
+section Goal
-
-structure CompilationUnit where
-  -- Environment immediately before the unit
-  env : Environment
-  boundary : Nat × Nat
-  invocations : List Protocol.InvokedTactic
-  sorrys : List Frontend.InfoWithContext
-  messages : Array String
-  newConstants : List Name
 
 def goal_tactic (args: Protocol.GoalTactic): EMainM Protocol.GoalTacticResult := do
   let state ← getMainState
@@ -175,6 +166,19 @@ def goal_tactic (args: Protocol.GoalTactic): EMainM Protocol.GoalTacticResult :=
   | .ok (.failure messages) =>
     return { messages? := .some messages }
 
+end Goal
+
+section Frontend
+
+structure CompilationUnit where
+  -- Environment immediately before the unit
+  env : Environment
+  boundary : Nat × Nat
+  invocations : List Protocol.InvokedTactic
+  sorrys : List Frontend.InfoWithContext
+  messages : Array String
+  newConstants : List Name
+
 def frontend_process (args: Protocol.FrontendProcess): EMainM Protocol.FrontendProcessResult := do
   let options := (← getMainState).options
   let (fileName, file) ← match args.fileName?, args.file? with