diff options
author | Rob Browning <rlb@defaultvalue.org> | 2002-10-05 04:11:51 +0000 |
---|---|---|
committer | Rob Browning <rlb@defaultvalue.org> | 2002-10-05 04:11:51 +0000 |
commit | 201e7da7916d771fbce1d99ca1d4d0f56863e36e (patch) | |
tree | bae653bc3097e7dca74b70485d1cabc8de572e09 /scripts | |
parent | 0ad7cc4f972609128a84c3845f3d29ac14e7e32f (diff) | |
download | guile-201e7da7916d771fbce1d99ca1d4d0f56863e36e.tar.gz |
* summarize-guile-TODO (as-leaf): make #\: a char-set.
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/summarize-guile-TODO | 3 |
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))))) |