From a4ccc84b5ea15905a51f24c56989a29267cfd949 Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Sat, 13 Nov 2021 03:01:22 +0000
Subject: CTAN sync 202111130301

---
 graphics/pstricks/contrib/luapstricks/luapstricks.lua | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'graphics')

diff --git a/graphics/pstricks/contrib/luapstricks/luapstricks.lua b/graphics/pstricks/contrib/luapstricks/luapstricks.lua
index 8ae9eed76d..7da1c9c133 100644
--- a/graphics/pstricks/contrib/luapstricks/luapstricks.lua
+++ b/graphics/pstricks/contrib/luapstricks/luapstricks.lua
@@ -18,8 +18,8 @@
 if luatexbase then
   luatexbase.provides_module {
     name = 'luapstricks',
-    version = 'v0.2',
-    date = '2021-09-30',
+    version = 'v0.3',
+    date = '2021-11-12',
     description = 'PSTricks backend for LuaLaTeX',
   }
 end
@@ -3892,7 +3892,10 @@ local fid = font.define{
           local tokens, direct = assert(ps_tokens), ps_direct
           ps_tokens = nil
           local x, y = pdf.getpos()
+          local TeXDict = userdict.value.TeXDict.value
+          local saved_ocount = TeXDict.ocount
           local height = #operand_stack
+          TeXDict.ocount = height
           operand_stack[height + 1], operand_stack[height + 2] = ps_pos_x/65781.76, ps_pos_y/65781.76
           ps_pos_x, ps_pos_y = nil
           if direct then
@@ -3914,11 +3917,13 @@ local fid = font.define{
           flush_delayed()
           if not direct then
             systemdict.value.grestore()
+            height = TeXDict.ocount or height
             local new_height = #operand_stack
             assert(new_height >= height)
             for k = height + 1, new_height do
               operand_stack[k] = nil
             end
+            TeXDict.ocount = saved_ocount
           end
         end}
       }
-- 
cgit v1.2.3