From fe07176a8aec9dc434afb8f97470873954eff798 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 30 Aug 2014 16:25:05 +0900 Subject: [PATCH] Recognize analyzed proc docs in .sld files. --- lib/chibi/doc.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lib/chibi/doc.scm b/lib/chibi/doc.scm index 48cab3a5..117654d9 100644 --- a/lib/chibi/doc.scm +++ b/lib/chibi/doc.scm @@ -821,8 +821,11 @@ div#footer {padding-bottom: 50px} (id (form-defined-name form)) (line (port-line in)) ;; find all procedures defined by form - (procs (filter (lambda (x) (<= last-line (third x) line)) - (filter third defs))) + (procs2 (filter (lambda (x) (<= last-line (third x) line)) + (filter third defs))) + (procs (if (= 2 (length procs2)) + (cdr procs2) + procs2)) ;; the the signature for the form (sigs (cond @@ -846,7 +849,7 @@ div#footer {padding-bottom: 50px} ((and (eq? lang 'ffi) (pair? sigs)) (lp '() '() (append (insert-signature cur #f sigs) res) ids depth line)) - ((and (eq? lang 'scheme) (= 1 (length procs))) + ((and (memq lang '(scheme module)) (= 1 (length procs))) (lp '() '() (append (insert-signature cur (caar procs) sigs) res) ids depth line))