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)))) `("