aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 10 Pull Requests 1 Packages Projects Releases 1 Wiki Activity

feat: Capture environment in drafting

This commit is contained in:
Leni Aniva 2024-10-12 16:46:44 -07:00
parent e0ba65a7cd
commit 5a2ae880f4
Signed by: aniva
GPG Key ID: 4D9B1C8D10EA4C50
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Repl.lean
View File

@ -233,9 +233,9 @@ def execute (command: Protocol.Command): MainM Lean.Json := do
else else
[] []
let messages ← step.messageStrings let messages ← step.messageStrings
return (boundary, invocations?, sorrys, messages) return (step.before, boundary, invocations?, sorrys, messages)
let li ← frontendM.run context |>.run' state let li ← frontendM.run context |>.run' state
let units ← li.mapM λ (boundary, invocations?, sorrys, messages) => do let units ← li.mapM λ (env, boundary, invocations?, sorrys, messages) => Lean.withEnv env do
let (goalStateId?, goals) ← if sorrys.isEmpty then do let (goalStateId?, goals) ← if sorrys.isEmpty then do
pure (.none, #[]) pure (.none, #[])
else do else do