diff options
author | Hans Hagen <pragma@wxs.nl> | 2016-12-21 20:09:16 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-12-21 20:09:16 +0100 |
commit | 72e032447232f3f89056f352d3f6b8e2abc499cb (patch) | |
tree | dcce6719b22076c68a286ac202ea4245999c0843 /tex/context/base/mkiv/publ-dat.lua | |
parent | ae375264381ae74f70415b2351bdbf209248e1af (diff) | |
download | context-72e032447232f3f89056f352d3f6b8e2abc499cb.tar.gz |
2016-12-21 18:57:00
Diffstat (limited to 'tex/context/base/mkiv/publ-dat.lua')
-rw-r--r-- | tex/context/base/mkiv/publ-dat.lua | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tex/context/base/mkiv/publ-dat.lua b/tex/context/base/mkiv/publ-dat.lua index 5fc1031cd..f6650dd4d 100644 --- a/tex/context/base/mkiv/publ-dat.lua +++ b/tex/context/base/mkiv/publ-dat.lua @@ -609,7 +609,13 @@ do local d_value = (double/"") * (unbalanced + d_quoted) * (double/"") local r_value = reference * Carg(1) / resolve - local somevalue = d_value + b_value + s_value + r_value +-- local e_value = (1-S(",}"))^0 / function(s) + local e_value = Cs((left * balanced * right + (1 - S(",}")))^0) / function(s) + report("error in database, invalid value %a",s) + return "[invalid: " .. s .. "]" + end + + local somevalue = d_value + b_value + s_value + r_value + e_value local value = Cs((somevalue * ((spacing * hash * spacing)/"" * somevalue)^0)) local stripper = lpegpatterns.stripper |