doc/sod.sty: Get `@--...' to typeset a sequence of dashes properly.

Now we can replace the explicit `--\,--' bodge.

diff --git a/doc/concepts.tex b/doc/concepts.tex
index 7e3c1c5..970b710 100644 (file)
--- a/doc/concepts.tex
+++ b/doc/concepts.tex
@@ -1127,7 +1127,7 @@ counting system, as follows.
     [role = around]                                             \\
     int obj.teardown()                                          \\
     \{                                                          \\ \ind
-      if (--\,--me@->ref.nref) return (1);                      \\
+      if (@--me@->ref.nref) return (1);                           \\
       else return (CALL_NEXT_METHOD);                         \-\\
     \}                                                        \-\\
   \}

diff --git a/doc/sod.sty b/doc/sod.sty
index 1cfc065..e88f2d5 100644 (file)
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -141,6 +141,9 @@
   \ifx\ch@>%
     --\raisebox{.4pt}{>}%
     \def\next@{\@firstoftwo{\egroup\penalty200\relax}}%
+  \else\ifx\ch@-%
+    --\,%
+    \def\next@{\@firstoftwo{\futurelet\ch@\@dash}}%
   \else%
     --%
     \let\next@\egroup%