diff options
| author | Hans Hagen <pragma@wxs.nl> | 2023-03-20 17:14:54 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2023-03-20 17:14:54 +0100 |
| commit | 97f560d2993c367fb84ef62eefbe90ca03c19ebc (patch) | |
| tree | 2008bdbfc92d045d7451e655cc43945b84234868 /tex/context/base/mkiv/util-prs.lua | |
| parent | 250c5684b9ee44ac972db51f87289ef935182c53 (diff) | |
| download | context-97f560d2993c367fb84ef62eefbe90ca03c19ebc.tar.gz | |
2023-03-20 15:44:00
Diffstat (limited to 'tex/context/base/mkiv/util-prs.lua')
| -rw-r--r-- | tex/context/base/mkiv/util-prs.lua | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tex/context/base/mkiv/util-prs.lua b/tex/context/base/mkiv/util-prs.lua index 635b610e0..d7b7087a5 100644 --- a/tex/context/base/mkiv/util-prs.lua +++ b/tex/context/base/mkiv/util-prs.lua @@ -264,8 +264,13 @@ function parsers.groupedsplitat(symbol,withaction) if not pattern then local symbols = S(symbol) local separator = space^0 * symbols * space^0 - local value = lbrace * C((nobrace + nestedbraces)^0) * rbrace - + C((nestedbraces + (1-(space^0*(symbols+P(-1)))))^0) + local value = + lbrace + * C((nobrace + nestedbraces)^0) + -- * rbrace + * (rbrace * (#symbols + P(-1))) -- new per 2023-03-11 + + + C((nestedbraces + (1-(space^0*(symbols+P(-1)))))^0) if withaction then local withvalue = Carg(1) * value / function(f,s) return f(s) end pattern = spaces * withvalue * (separator*withvalue)^0 |