2018-01-08 23:11:00

1 files changed, 16 insertions, 2 deletions

diff --git a/tex/context/base/mkiv/mlib-lua.lua b/tex/context/base/mkiv/mlib-lua.lua
index b2d97226a..7efed1e5d 100644
--- a/tex/context/base/mkiv/mlib-lua.lua
+++ b/tex/context/base/mkiv/mlib-lua.lua
@@ -673,7 +673,10 @@ do
 end
 
 do
-local stores = { }
+
+    local mpvprint = mp.vprint
+
+    local stores = { }
 
     function mp.newstore(name)
         stores[name] = { }
@@ -688,7 +691,7 @@ local stores = { }
     end
 
     function mp.fromstore(name,key)
-        mp.vprint(stores[name][key]) -- type specific
+        mpvprint(stores[name][key]) -- type specific
     end
 
     interfaces.implement {
@@ -700,3 +703,14 @@ local stores = { }
     }
 
 end
+
+do
+
+    local mpprint  = mp.print
+    local texmodes = tex.modes
+
+    function mp.processingmode(s)
+        mpprint(tostring(texmodes[s]))
+    end
+
+end