source: project/maintenance/alleggs.scm @ 8777

Last change on this file since 8777 was 8777, checked in by felix winkelmann, 12 years ago

added simple helper

File size: 255 bytes
Line 
1(use posix srfi-1)
2
3(define *special* '("chicken"))
4
5(for-each
6 (lambda (ln)
7   (when (or (file-exists? (conc ln "/trunk"))
8             (file-exists? (conc ln "/" ln ".meta")))
9         (print ln) ) )
10 (sort (lset-difference string=? (directory) *special*) string<?))
Note: See TracBrowser for help on using the repository browser.