Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-14 08:27:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Recognize analyzed proc docs in .sld files.

Browse source
This commit is contained in:
Alex Shinn 2014-08-30 16:25:05 +09:00
parent 31ba067d62
commit fe07176a8a
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/doc.scm
View file

@ -821,8 +821,11 @@ div#footer {padding-bottom: 50px}
(id (form-defined-name form)) (id (form-defined-name form))
(line (port-line in)) (line (port-line in))
;; find all procedures defined by form ;; find all procedures defined by form
(procs (filter (lambda (x) (<= last-line (third x) line)) (procs2 (filter (lambda (x) (<= last-line (third x) line))
(filter third defs))) (filter third defs)))
(procs (if (= 2 (length procs2))
(cdr procs2)
procs2))
;; the the signature for the form ;; the the signature for the form
(sigs (sigs
(cond (cond
@ -846,7 +849,7 @@ div#footer {padding-bottom: 50px}
((and (eq? lang 'ffi) (pair? sigs)) ((and (eq? lang 'ffi) (pair? sigs))
(lp '() '() (append (insert-signature cur #f sigs) res) (lp '() '() (append (insert-signature cur #f sigs) res)
ids depth line)) ids depth line))
((and (eq? lang 'scheme) (= 1 (length procs))) ((and (memq lang '(scheme module)) (= 1 (length procs)))
(lp '() '() (lp '() '()
(append (insert-signature cur (caar procs) sigs) res) (append (insert-signature cur (caar procs) sigs) res)
ids depth line)) ids depth line))