* genman.txr: Bugfix: reproduce the correct opening bracket

before a function link.

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 8e03f100..afa4ec74 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-07-01  Kaz Kylheku  <kaz@kylheku.com>
+
+	* genman.txr: Bugfix: reproduce the correct opening bracket
+	before a function link.
+
 2015-06-27  Kaz Kylheku  <kaz@kylheku.com>
 
 	Fix issues in configure found by ShellCheck.
diff --git a/genman.txr b/genman.txr
index b90c8387..ce70cbb7 100644
--- a/genman.txr
+++ b/genman.txr
@@ -112,9 +112,10 @@ This document was created by
                                                    @1)) @1)))
                              (regsub #/[\(\[][^ )&]+/
                                      (do let* ((tok [@1 1..:])
+                                               (bkt [@1 0])
                                                (tag [txlhash tok]))
                                        (if tag
-                                         `(<A HREF="#@tag">@tok</A>`
+                                         `@bkt<A HREF="#@tag">@tok</A>`
                                          @1)) out0)))
                         (t @1))
                       BODY