From eed67d5872a14518638b1a09b5a1a2a2e9527552 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 4 Jun 2013 06:08:02 +0900 Subject: [PATCH] Render parameter in print-module-[binding-]docs can be made #f for the default. --- lib/chibi/doc.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/chibi/doc.scm b/lib/chibi/doc.scm index aca46994..637fe6cb 100644 --- a/lib/chibi/doc.scm +++ b/lib/chibi/doc.scm @@ -597,8 +597,7 @@ div#footer {padding-bottom: 50px} (define (print-module-docs mod-name . o) (let ((out (if (pair? o) (car o) (current-output-port))) - (render (if (and (pair? o) (pair? (cdr o))) - (cadr o) + (render (or (and (pair? o) (pair? (cdr o)) (cadr o)) sxml-display-as-text))) (render (generate-docs @@ -609,8 +608,7 @@ div#footer {padding-bottom: 50px} (define (print-module-binding-docs mod-name var . o) (let ((out (if (pair? o) (car o) (current-output-port))) - (render (if (and (pair? o) (pair? (cdr o))) - (cadr o) + (render (or (and (pair? o) (pair? (cdr o)) (cadr o)) sxml-display-as-text))) (render (generate-docs