diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-05-09 16:27:40 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-05-09 16:27:40 +0000 |
commit | 94173d5f20b0d9e521b1ef8a2842ff4c981192e7 (patch) | |
tree | 888dea143e934b5bbb7482d8c1f239dfdf2d5c6c /scripts/scan-api | |
parent | 3161de0f0cb26e4e740649a990bd7c5527313799 (diff) | |
download | guile-94173d5f20b0d9e521b1ef8a2842ff4c981192e7.tar.gz |
(scan-C!): Use more robust regexp.
Diffstat (limited to 'scripts/scan-api')
-rwxr-xr-x | scripts/scan-api | 2 |
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)))) |