[Guile-commits] 07/10: Improve ‘(ice-9 documentation) file-commentary’ default scrub proc

[Thien-Thi Nguyen]

ttn pushed a commit to branch branch_release-1-8
in repository guile.

commit ec27e23318f09b17c0e65e9ea0c3c028389ae0fb
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Mar 3 06:49:12 2017 +0100

    Improve ‘(ice-9 documentation) file-commentary’ default scrub proc
    
    Long-standing oversight.  The Commentary lines almost always
    include at least one space following the bol semicolons.
    
    * ice-9/documentation.scm (file-commentary): In the default
      scrub proc, append "zero or one space char" to the ‘dirt’ regexp.
---
 ice-9/documentation.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ice-9/documentation.scm b/ice-9/documentation.scm
index 6e74799..dacd0c7 100644
--- a/ice-9/documentation.scm
+++ b/ice-9/documentation.scm
@@ -100,7 +100,7 @@
   ;;
   (define default-in-line-re (make-regexp "^;;; Commentary:"))
   (define default-after-line-re (make-regexp "^;;; Code:"))
-  (define default-scrub (let ((dirt (make-regexp "^;+")))
+  (define default-scrub (let ((dirt (make-regexp "^;+ ?")))
                          (lambda (line)
                            (let ((m (regexp-exec dirt line)))
                              (if m (match:suffix m) line)))))