Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-22 07:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Render parameter in print-module-[binding-]docs can be made #f for the default.

Browse source
This commit is contained in:
Alex Shinn 2013-06-04 06:08:02 +09:00
parent 95e92815ae
commit eed67d5872
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/doc.scm
View file

@ -597,8 +597,7 @@ div#footer {padding-bottom: 50px}
(define (print-module-docs mod-name . o) (define (print-module-docs mod-name . o)
(let ((out (if (pair? o) (car o) (current-output-port))) (let ((out (if (pair? o) (car o) (current-output-port)))
(render (if (and (pair? o) (pair? (cdr o))) (render (or (and (pair? o) (pair? (cdr o)) (cadr o))
(cadr o)
sxml-display-as-text))) sxml-display-as-text)))
(render (render
(generate-docs (generate-docs
@ -609,8 +608,7 @@ div#footer {padding-bottom: 50px}
(define (print-module-binding-docs mod-name var . o) (define (print-module-binding-docs mod-name var . o)
(let ((out (if (pair? o) (car o) (current-output-port))) (let ((out (if (pair? o) (car o) (current-output-port)))
(render (if (and (pair? o) (pair? (cdr o))) (render (or (and (pair? o) (pair? (cdr o)) (cadr o))
(cadr o)
sxml-display-as-text))) sxml-display-as-text)))
(render (render
(generate-docs (generate-docs