Fix v4.22.0-rc2

Author: augustepoiroux

REPL/Frontend.lean

@@ -27,15 +27,15 @@ where
       |>.foldl (· ++ ·) {}
     -- In contrast to messages, we should collect info trees only from the top-level command
     -- snapshots as they subsume any info trees reported incrementally by their children.
-    let trees := commands.map (·.infoTreeSnap.get.infoTree?) |>.filterMap id |>.toPArray'
+    let trees := commands.map (·.elabSnap.infoTreeSnap.get.infoTree?) |>.filterMap id |>.toPArray'
     let result : (IncrementalState × Option InfoTree) :=
-      ({ commandState := { snap.resultSnap.get.cmdState with messages, infoState.trees := trees }
+      ({ commandState := { snap.elabSnap.resultSnap.get.cmdState with messages, infoState.trees := trees }
          , parserState := snap.parserState
          , cmdPos := snap.parserState.pos
          , commands := commands.map (·.stx)
          , inputCtx := inputCtx
          , initialSnap := initialSnap
-       }, snap.infoTreeSnap.get.infoTree?)
+       }, snap.elabSnap.infoTreeSnap.get.infoTree?)
     if let some next := snap.nextCmdSnap? then
       result :: go initialSnap next.task commands
     else