2020-10-30 22:27:00

1 files changed, 2 insertions, 23 deletions

diff --git a/tex/context/base/mkiv/node-tra.lua b/tex/context/base/mkiv/node-tra.lua
index 2ebfaff12..a86dfb620 100644
--- a/tex/context/base/mkiv/node-tra.lua
+++ b/tex/context/base/mkiv/node-tra.lua
@@ -77,7 +77,7 @@ local glue_code       = nodecodes.glue
 local kern_code       = nodecodes.kern
 local rule_code       = nodecodes.rule
 local dir_code        = nodecodes.dir
-local localpar_code   = nodecodes.localpar
+local par_code        = nodecodes.par
 local whatsit_code    = nodecodes.whatsit
 
 local dimenfactors    = number.dimenfactors
@@ -115,19 +115,6 @@ function nodes.handlers.checkglyphs(head,message)
     return false
 end
 
-function nodes.handlers.checkforleaks(sparse)
-    local l = { }
-    local q = used_nodes()
-    for p, id in nextnode, q do
-        local s = table.serialize(nodes.astable(p,sparse),nodecodes[id])
-        l[s] = (l[s] or 0) + 1
-    end
-    flush_list(q)
-    for k, v in next, l do
-        report_nodes("%s * %s",v,k)
-    end
-end
-
 local fontcharacters -- = fonts.hashes.descriptions
 
 local function tosequence(start,stop,compact)
@@ -167,7 +154,7 @@ local function tosequence(start,stop,compact)
             elseif id == dir_code then
                 local d, p = getdirection(start)
                 n = n + 1 ; t[n] = "[<" .. (p and "-" or "+") .. d .. ">]" -- todo l2r etc
-            elseif id == localpar_code and start_of_par(current) then
+            elseif id == par_code and start_of_par(current) then
                 n = n + 1 ; t[n] = "[<" .. getdirection(start) .. ">]" -- todo l2r etc
             elseif compact then
                 n = n + 1 ; t[n] = "[]"
@@ -325,14 +312,6 @@ local function showsimplelist(h,depth,n)
     end
 end
 
--- \startluacode
--- callbacks.register('buildpage_filter',function() nodes.show_simple_list(tex.lists.contrib_head) end)
--- \stopluacode
--- \vbox{b\footnote{n}a}
--- \startluacode
--- callbacks.register('buildpage_filter',nil)
--- \stopluacode
-
 nodes.showsimplelist = function(h,depth) showsimplelist(h,depth,0) end
 
 local function listtoutf(h,joiner,textonly,last,nodisc)