mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Improve ‘(ice-9 documentation) file-commentary’ default scrub proc

Browse source 
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.
This commit is contained in:
Thien-Thi Nguyen 2017-03-03 06:49:12 +01:00
parent 3ca22333b7
commit ec27e23318
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/documentation.scm
View file

@ -100,7 +100,7 @@
;; ;;
(define default-in-line-re (make-regexp "^;;; Commentary:")) (define default-in-line-re (make-regexp "^;;; Commentary:"))
(define default-after-line-re (make-regexp "^;;; Code:")) (define default-after-line-re (make-regexp "^;;; Code:"))
(define default-scrub (let ((dirt (make-regexp "^;+"))) (define default-scrub (let ((dirt (make-regexp "^;+ ?")))
(lambda (line) (lambda (line)
(let ((m (regexp-exec dirt line))) (let ((m (regexp-exec dirt line)))
(if m (match:suffix m) line))))) (if m (match:suffix m) line)))))