mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Move author tag outside commentary; nfc.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2001-05-14 19:25:32 +00:00
parent dfdf58267a
commit e8cd769d38
7 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

11
scripts/read-scheme-source
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;; Boston, MA 02111-1307 USA
;;; Author: Thien-Thi Nguyen
;;; Commentary:
;; Usage: read-scheme-source FILE1 FILE2 ...
@ -35,7 +37,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;;
;; (quote (filename FILENAME))
;;
;; (quote (comment :leading-parens N
;; (quote (comment :leading-semicolons N
;; :text LINE))
;;
;; (quote (whitespace :text LINE))
@ -77,8 +79,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;;
;; TODO: Add option "--clump-comments", maybe w/ different clumping styles.
;; Make `annotate!' extensible.
;;
;; Author: Thien-Thi Nguyen
;;; Code:
@ -154,8 +154,9 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
((regexp-exec all-comment-rx line)
=> (lambda (m)
(nb! `'(comment
:leading-parens ,(let ((m1 (vector-ref m 1)))
(- (cdr m1) (car m1)))
:leading-semicolons
,(let ((m1 (vector-ref m 1)))
(- (cdr m1) (car m1)))
:text ,line))))
(else
(unread-string line p)