doc/sod.sty: Debug `@;'.

OMG.

  * Don't eat the `\\' and then hope to find it.

  * Actually chew through the `;' characters rather than piling them up.

  * Don't eat spaces while looking for more `;'s.

diff --git a/doc/sod.sty b/doc/sod.sty
index e88f2d5e6668b151f748b2ad79ffc781c36ac1ea..45d623ed77120086b0e1809e415348e22fe64599 100644 (file)
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -154,9 +154,9 @@
 %% Comment setting.
 \def\comment#1{\mbox{\normalfont\itshape\/#1\/}}
 \atdef /*#1*/{/*\comment{#1}*/}
 %% Comment setting.
 \def\comment#1{\mbox{\normalfont\itshape\/#1\/}}
 \atdef /*#1*/{/*\comment{#1}*/}

-\def\@semis{\@ifnextchar;{;\@semis}\@semicomment}
+\def\@semis;{\@ifnextchar@preserve;{;\@semis}\@semicomment}

 \def\@semicomment#1\\{\comment{#1}\\}
 \def\@semicomment#1\\{\comment{#1}\\}

-\atdef ;#1\\{;\@semis}
+\atdef ;{;\@semis;}

 
 %% Environment for setting programs.  Newlines are explicit, because
 %% otherwise I need comments in weird places to make the vertical spacing
 
 %% Environment for setting programs.  Newlines are explicit, because
 %% otherwise I need comments in weird places to make the vertical spacing