Cleanup of vibe code and replacement by self coded audio manager.
This commit is contained in:
@@ -8,7 +8,7 @@
|
||||
|
||||
(provide make-file-walker
|
||||
make-file-admin
|
||||
fw-add-filter
|
||||
fw-add-step
|
||||
os-path
|
||||
)
|
||||
|
||||
@@ -138,11 +138,11 @@
|
||||
f))
|
||||
)
|
||||
|
||||
(define (fw-add-filter fw filter-func)
|
||||
(define (fw-add-step fw step-func)
|
||||
(λ ()
|
||||
(let-values (((base-path path info) (fw)))
|
||||
(if (eq? info #f)
|
||||
(values #f #f #f)
|
||||
(filter-func base-path path info))))
|
||||
(step-func base-path path info))))
|
||||
)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user