summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt')
-rw-r--r--Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt16
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt b/Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt
index fc149330be6..ca25ef9058b 100644
--- a/Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt
+++ b/Master/texmf-dist/tex/context/base/mkxl/node-shp.lmt
@@ -16,8 +16,8 @@ local tasks = nodes.tasks
local handlers = nodes.handlers
local nodecodes = nodes.nodecodes
-local hlist_code = nodecodes.hlist
-local vlist_code = nodecodes.vlist
+local hlist_code <const> = nodecodes.hlist
+local vlist_code <const> = nodecodes.vlist
local nuts = nodes.nuts
local tonut = nuts.tonut
@@ -28,7 +28,7 @@ local getbox = nuts.getbox
local implement = interfaces.implement
-local v_yes = interfaces.variables.yes
+local v_yes <const> = interfaces.variables.yes
local actions = tasks.actions("shipouts")
@@ -49,11 +49,14 @@ do
local report = logs.reporter("shipout")
- local trace = false trackers.register("backend.cleanup", function(v) trace = v end)
-
+ local trace = false
local flatten = true -- also done as line option
local soften = true -- true by default
+ trackers .register("backend.cleanup", function(v) trace = v end)
+ directives.register("backend.cleanup.flatten", function(v) flatten = v end)
+ directives.register("backend.cleanup.soften", function(v) soften = v end)
+
nodes.handlers.cleanuppage = function(head)
-- local count = 0
local found = 0
@@ -161,7 +164,8 @@ end)
do -- for the moment:
local whatsitcodes = nodes.whatsitcodes
- local whatsit_code = nodecodes.whatsit
+
+ local whatsit_code <const> = nodecodes.whatsit
local removables = {
[whatsitcodes.open] = true,