fix bracketed linearization in case of nonExist

2022-12-10 20:18:23 +01:00
parent a3111f3be7
commit 04a263d7d4
1 changed files with 1 additions and 1 deletions
--- 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 ()