From 6d5b01a5a0a65511c7013a1ee5297d30fa011c14 Mon Sep 17 00:00:00 2001
From: Jim Ursetto <zb@3e8.org>
Date: Wed, 25 Aug 2010 17:10:59 -0500
Subject: [PATCH] use parsed id if available in chicken-doc-html

---
 chicken-doc-html.scm | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/chicken-doc-html.scm b/chicken-doc-html.scm
index 65e47c6..1baf0a2 100644
--- a/chicken-doc-html.scm
+++ b/chicken-doc-html.scm
@@ -211,23 +211,26 @@
                                (lambda (s)
                                  (match s
                                         ((type sig . alist)
-                                         (let ((defid (->string ;; wasteful
-                                                       (or (signature->identifier
-                                                            sig type)
-                                                           sig))))
+                                         (let* ((defid (cond ((assq 'id alist) => cadr)
+                                                             (else (signature->identifier sig type))))
+                                                (defid (and defid (->string defid))))
                                            `("<dt class=\"defsig\""
-                                             ,(list " id=\""
-                                                    (quote-identifier
-                                                     (definition->identifier defid))
+                                             ,(if defid
+                                                  `(" id=\""
+                                                    ,(quote-identifier
+                                                      (definition->identifier defid))
                                                     #\")
-                                             ">"
+                                                  '())
+                                             #\>
                                              ;; Link to underlying node.
-                                             ,(list "<a href=" #\"
-                                                    (def->href defid)
+                                             ,(if defid
+                                                  `("<a href=" #\"
+                                                    ,(def->href defid)
                                                     #\" #\>)
+                                                  '())
                                              "<span class=\"sig\"><tt>"
                                              ,(quote-html sig) "</tt></span>"
-                                             "</a>"
+                                             ,(if defid "</a>" '())
                                              " "
                                              "<span class=\"type\">"
                                              ,(quote-html (->string type))