2004-03-11 15:53:48 -05:00
|
|
|
;;; This file is part of the Scheme Untergrund Library. For copyright
|
|
|
|
;;; information, see the file COPYING which comes with the
|
|
|
|
;;; distribution.
|
|
|
|
|
|
|
|
(define s48-dirs
|
|
|
|
(run/strings (find s48
|
|
|
|
-maxdepth 1
|
|
|
|
-mindepth 1
|
|
|
|
-type d
|
|
|
|
! -name CVS
|
2004-03-14 17:59:57 -05:00
|
|
|
! -name rt-modules
|
|
|
|
! -name sequences)))
|
2004-03-11 15:53:48 -05:00
|
|
|
|
|
|
|
(define scsh-dirs
|
|
|
|
(run/strings (find scsh
|
|
|
|
-maxdepth 1
|
|
|
|
-mindepth 1
|
|
|
|
-type d
|
|
|
|
! -name CVS)))
|