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

(scan-C!): Use more robust regexp.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2002-05-09 16:27:40 +00:00
parent 3161de0f0c
commit 94173d5f20
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/scan-api
View file

@ -95,7 +95,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(hashq-set! ht x #t)))))
(define (scan-C! ht sofile)
(scan "^........ ([B-TV-Z]) (.+)$"
(scan "^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$"
(format #f "nm ~A" sofile)
(lambda (m)
(let ((x (string->symbol (match:substring m 2))))