Cons/Nil optimization for scheme backend

2026-03-18 17:07:48 -07:00
parent 4ce5d470ba
commit 5eb43f6252
10 changed files with 151 additions and 74 deletions
--- a/src/LSP.newt
+++ b/src/LSP.newt
@@ -67,9 +67,8 @@ lspFileSource = do

 updateFile : String → String → Unit
 updateFile fn src = unsafePerformIO $ do
-    st <- readIORef state
    modifyIORef state [ files $= updateMap fn src ]
-    let st = the LSPState $ [ files $= updateMap fn src ] st
+    st <- readIORef state
    let (base,modName) = decomposeName fn
    Right (ctx,_) <- (invalidateModule modName).runM st.topContext
        | _ => writeIORef state st