diff options
author | Hans Hagen <pragma@wxs.nl> | 2022-04-15 20:34:40 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2022-04-15 20:34:40 +0200 |
commit | b155eafa1e2d73692eed08ecabeb5ad589ac11dc (patch) | |
tree | ec352f240efa570d5e06db368ce3dd99e792545a /tex/context/base/mkxl/mlib-lmp.lmt | |
parent | 1e69816bbbeebedafd52684fc4182ce977d92a8a (diff) | |
download | context-b155eafa1e2d73692eed08ecabeb5ad589ac11dc.tar.gz |
2022-04-15 20:15:00
Diffstat (limited to 'tex/context/base/mkxl/mlib-lmp.lmt')
-rw-r--r-- | tex/context/base/mkxl/mlib-lmp.lmt | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/tex/context/base/mkxl/mlib-lmp.lmt b/tex/context/base/mkxl/mlib-lmp.lmt index b895d9ffd..61346bc73 100644 --- a/tex/context/base/mkxl/mlib-lmp.lmt +++ b/tex/context/base/mkxl/mlib-lmp.lmt @@ -10,7 +10,7 @@ if not modules then modules = { } end modules ['mlib-lmp'] = { local type, tonumber, tostring = type, tonumber, tostring local find, match = string.find, string.match -local insert, remove = table.insert, table.remove +local insert, remove, sort = table.insert, table.remove, table.sort local aux = mp.aux local mpnumeric = aux.numeric @@ -61,11 +61,10 @@ do local function s(a,b) local aa = a[1] local bb = b[1] - if aa ~= bb then - return aa < bb + if aa == bb then + aa = a[2] + bb = b[2] end - aa = a[2] - bb = b[2] return aa < bb end @@ -75,7 +74,7 @@ do local pi = p[i] p[i] = { pi[1], pi[2] } end - table.sort(p,s) + sort(p,s) injectpath(p) end) @@ -85,7 +84,7 @@ do local n = 0 local xx = nil local yy = nil - table.sort(p,s) + sort(p,s) for i=1,#p do local pi = p[i] local x = pi[1] |