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 e88f2d5..45d623e 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}*/}
-\def\@semis{\@ifnextchar;{;\@semis}\@semicomment}
+\def\@semis;{\@ifnextchar@preserve;{;\@semis}\@semicomment}
 \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