%<+color> [2003/08/24 1.10 Fix for people who can't spell]
% \end{meta-comment}
%
-% \CheckSum{3386}
+% \CheckSum{3404}
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
% we need to remove them by hand at the extremities of the environment.
%
% \begin{macrocode}
-\def\subsplit{%
+\def\subsplit{\@ifnextchar[\subsplit@i{\subsplit@i[c]}}
+\def\subsplit@i[#1]{%
+ \let\@tempa\vcenter%
+ \if#1t\let\@tempa\vtop\fi%
+ \if#1b\let\@tempa\vbox\fi%
\let\\\seq@cr%
- \vcenter\bgroup%
+ \@tempa\bgroup%
\seq@dosplit{\hfil\qquad$##$\qquad\hfil}{\hfilneg\hskip-2em}%
}
% \end{macrocode}