From a859637761d7aba58f55383d90c2ba67c2a9d9cb Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 5 Aug 2019 18:06:45 +0100
Subject: [PATCH] doc/sod.sty: Get `@--...' to typeset a sequence of dashes
 properly.

Now we can replace the explicit `--\,--' bodge.
---
 doc/concepts.tex | 2 +-
 doc/sod.sty      | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/doc/concepts.tex b/doc/concepts.tex
index 7e3c1c5..970b710 100644
--- 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
--- 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%
-- 
2.11.0