fix bracketed linearization in case of nonExist

This commit is contained in:
Krasimir Angelov
2022-12-10 20:18:23 +01:00
parent a3111f3be7
commit 04a263d7d4

View File

@@ -923,7 +923,7 @@ bracketedLinearize c e = unsafePerformIO $ do
symbol_ne ref _ = do
(ne,stack,bs) <- readIORef ref
writeIORef ref (True,[],[])
writeIORef ref (True,stack,bs)
flush _ _ = return ()