summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorRob Browning <rlb@defaultvalue.org>2002-10-05 04:11:51 +0000
committerRob Browning <rlb@defaultvalue.org>2002-10-05 04:11:51 +0000
commit201e7da7916d771fbce1d99ca1d4d0f56863e36e (patch)
treebae653bc3097e7dca74b70485d1cabc8de572e09 /scripts
parent0ad7cc4f972609128a84c3845f3d29ac14e7e32f (diff)
downloadguile-201e7da7916d771fbce1d99ca1d4d0f56863e36e.tar.gz
* summarize-guile-TODO (as-leaf): make #\: a char-set.
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/summarize-guile-TODO3
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/summarize-guile-TODO b/scripts/summarize-guile-TODO
index fb659c836..9abdd6c9a 100755
--- a/scripts/summarize-guile-TODO
+++ b/scripts/summarize-guile-TODO
@@ -74,6 +74,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
:use-module (scripts read-text-outline)
:use-module (ice-9 getopt-long)
:autoload (srfi srfi-13) (string-tokenize) ; string library
+ :autoload (srfi srfi-14) (char-set) ; string library
:autoload (ice-9 common-list) (remove-if-not)
:export (summarize-guile-TODO))
@@ -85,7 +86,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
=> (lambda (who)
(put x 'who
(map string->symbol
- (string-tokenize who #\:))))))
+ (string-tokenize who (char-set #\:)))))))
(cond ((get x 'pct-done)
=> (lambda (pct-done)
(put x 'pct-done (string->number pct-done)))))