13 lines
232 B
Racket
13 lines
232 B
Racket
#lang racket/base
|
|
|
|
(require racket/file
|
|
racket/list
|
|
"util.rkt")
|
|
|
|
(provide find-flac-files)
|
|
|
|
(define (find-flac-files base-dir)
|
|
(sort (find-files flac-path? base-dir)
|
|
string<?
|
|
#:key path->string))
|