shiro #27(2007/06/30 20:31 GMT) [ Scheme ] Rating0/0=0.00
1 2 3 4
(use file.util) (define (remove-backup dir) (directory-fold "." (lambda (path seed) (and (#/~$/ path) (sys-unlink path))) #f)) (define (main args) (for-each remove-backup (cdr args)) 0)
Rating0/0=0.00-0+
1 reply [ reply ]
shiro
#27()
[
Scheme
]
Rating0/0=0.00
Rating0/0=0.00-0+
1 reply [ reply ]