summaryrefslogtreecommitdiff
path: root/scripts/scan-api
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2002-05-09 16:27:40 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2002-05-09 16:27:40 +0000
commit94173d5f20b0d9e521b1ef8a2842ff4c981192e7 (patch)
tree888dea143e934b5bbb7482d8c1f239dfdf2d5c6c /scripts/scan-api
parent3161de0f0cb26e4e740649a990bd7c5527313799 (diff)
downloadguile-94173d5f20b0d9e521b1ef8a2842ff4c981192e7.tar.gz
(scan-C!): Use more robust regexp.
Diffstat (limited to 'scripts/scan-api')
-rwxr-xr-xscripts/scan-api2
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/scan-api b/scripts/scan-api
index 5fa7626b9..3a6e9b3d4 100755
--- a/scripts/scan-api
+++ b/scripts/scan-api
@@ -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))))