mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* summarize-guile-TODO (as-leaf): make #\: a char-set.

Browse source
This commit is contained in:
Rob Browning 2002-10-05 04:11:51 +00:00
parent 0ad7cc4f97
commit 201e7da791
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
scripts/summarize-guile-TODO
View file

@ -74,6 +74,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
:use-module (scripts read-text-outline) :use-module (scripts read-text-outline)
:use-module (ice-9 getopt-long) :use-module (ice-9 getopt-long)
:autoload (srfi srfi-13) (string-tokenize) ; string library :autoload (srfi srfi-13) (string-tokenize) ; string library
:autoload (srfi srfi-14) (char-set) ; string library
:autoload (ice-9 common-list) (remove-if-not) :autoload (ice-9 common-list) (remove-if-not)
:export (summarize-guile-TODO)) :export (summarize-guile-TODO))
@ -85,7 +86,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
=> (lambda (who) => (lambda (who)
(put x 'who (put x 'who
(map string->symbol (map string->symbol
(string-tokenize who #\:)))))) (string-tokenize who (char-set #\:)))))))
(cond ((get x 'pct-done) (cond ((get x 'pct-done)
=> (lambda (pct-done) => (lambda (pct-done)
(put x 'pct-done (string->number pct-done))))) (put x 'pct-done (string->number pct-done)))))