1 files changed, 5 insertions(+), 5 deletions(-)

M chalk-bin.scm

@@ 15,6 15,7 @@
               filter
               first second third fourth fifth sixth)
         (only srfi-13
+              string-null?
               string-prefix?
               string-trim
               string-trim-both))


@@ 105,7 106,7 @@
         (if @to
             (printf "<~a>~s → ~a</~a>\n" type sig (cadr @to) type)
             (printf "<~a>~s</~a>\n" type sig type))
-        (when docstr
+        (when (and docstr (not (string-null? docstr)))
           (printf "~a\n\n" docstr))
         (when (not (null? params))
           (document-deflist params))


@@ 119,7 120,7 @@
          (docstr (find-docstr doc)))
     (unless internal
       (printf "<constant>~s</constant>\n" name)
-      (when docstr
+      (when (and docstr (not (string-null? docstr)))
         (printf "~a\n\n" docstr)))))
 
 (define (document-record exp)


@@ 150,9 151,8 @@
                  (when (not (or (null? (cddr e))
                                 (pair? (caddr e))))
                    (printf "<procedure>~a</procedure>\n" (caddr e))))
-               (cddr (cddddr exp)))
-              )))
-      (when docstr
+               (cddr (cddddr exp))))))
+      (when (and docstr (not (string-null? docstr)))
         (printf "~a\n\n" docstr)))))
 
 (define procedure-tags