1 files changed, 40 insertions, 1 deletions
diff --git a/tex/context/base/mkxl/math-dld.mklx b/tex/context/base/mkxl/math-dld.mklx
index 66100e0ac..dcbb17c5e 100644
--- a/tex/context/base/mkxl/math-dld.mklx
+++ b/tex/context/base/mkxl/math-dld.mklx
@@ -105,7 +105,7 @@
 \integerdef\delimitedrightastuc      \privatecharactercode{delimited right ast}
 \integerdef\delimitedrightstaruc     \privatecharactercode{delimited right star}
 
-% \integerdef\delimitedrighthatuc   \p  rivatecharactercode{delimited right hat}
+% \integerdef\delimitedrighthatuc   \privatecharactercode{delimited right hat}
 % \integerdef\delimitedrighttildeuc \privatecharactercode{delimited right tilde}
 % \integerdef\delimitedrightcheckuc \privatecharactercode{delimited right check}
 
@@ -223,4 +223,43 @@
 \definemathdelimited [doublereverseprimed] [primed] [\c!right="2036]
 \definemathdelimited [triplereverseprimed] [primed] [\c!right="2037]
 
+%
+
+\integerdef\delimitedleftuppercorner \privatecharactercode{delimited left upper corner}
+\integerdef\delimitedrightuppercorner\privatecharactercode{delimited right upper corner}
+\integerdef\delimitedleftlowercorner \privatecharactercode{delimited left lower corner}
+\integerdef\delimitedrightlowercorner\privatecharactercode{delimited right lower corner}
+
+\definemathdelimited
+  [leftuppermarked]
+  [marked]
+  [\c!left=\delimitedleftuppercorner]
+
+\definemathdelimited
+  [rightuppermarked]
+  [marked]
+  [\c!right=\delimitedrightuppercorner]
+
+\definemathdelimited
+  [uppermarked]
+  [marked]
+  [\c!left=\delimitedleftuppercorner,
+   \c!right=\delimitedrightuppercorner]
+
+\definemathdelimited
+  [leftlowermarked]
+  [marked]
+  [\c!left=\delimitedleftlowercorner]
+
+\definemathdelimited
+  [rightlowermarked]
+  [marked]
+  [\c!right=\delimitedrightlowercorner]
+
+\definemathdelimited
+  [lowermarked]
+  [marked]
+  [\c!left=\delimitedleftlowercorner,
+   \c!right=\delimitedrightlowercorner]
+
 \protect \endinput