texlive[61036]

[commits+karl at tug.org]

Revision: 61036
          http://tug.org/svn/texlive?view=revision&revision=61036
Author:   karl
Date:     2021-11-13 00:00:42 +0100 (Sat, 13 Nov 2021)
Log Message:
-----------
luapstricks (13nov21)

Modified Paths:
--------------
    trunk/Master/texmf-dist/tex/lualatex/luapstricks/luapstricks.lua

Modified: trunk/Master/texmf-dist/tex/lualatex/luapstricks/luapstricks.lua
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/luapstricks/luapstricks.lua	2021-11-12 18:03:10 UTC (rev 61035)
+++ trunk/Master/texmf-dist/tex/lualatex/luapstricks/luapstricks.lua	2021-11-12 23:00:42 UTC (rev 61036)
@@ -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 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 @@
           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}
       }