From 04a263d7d41467a49223633dee6e24ad5363e107 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sat, 10 Dec 2022 20:18:23 +0100 Subject: [PATCH] fix bracketed linearization in case of nonExist --- src/runtime/haskell/PGF2.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/haskell/PGF2.hsc b/src/runtime/haskell/PGF2.hsc index 34d75990e..5e5f21d48 100644 --- a/src/runtime/haskell/PGF2.hsc +++ b/src/runtime/haskell/PGF2.hsc @@ -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 ()