Added \sget

diff --git a/ucwmac2.tex b/ucwmac2.tex
index bd4ffda22517a98fdfcabd2034df9591ab0ace0a..624a5ad2a7a60c9d20f3299bb5fc4975191d5dd5 100644 (file)
--- a/ucwmac2.tex
+++ b/ucwmac2.tex
@@ -44,6 +44,15 @@
 \def\sdef#1{\expandafter\def\csname#1\endcsname}
 \def\slet#1#2{\expandafter\let\csname#1\expandafter\endcsname\csname#2\endcsname}
 
+% Assign a control sequence given as a string, complain if it is not defined.
+\def\sget#1#2{\ifcsname#2\endcsname
+               \expandafter\let\expandafter#1\csname#2\endcsname
+       \else
+               \errmessage{Undefined control sequence #2}%
+               \let#1\relax
+       \fi
+}
+
 % Add \protected to an existing macro
 \def\addprotected#1{\protected\edef#1{\expandafter\unexpanded\expandafter{#1}}}