Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(define (find name dir)
(local [(define (c1 n rdirs rimgs)
(or (string=? name n)
rdirs
rimgs))
(define (c2 rdir rdirs)
(or rdir rdirs))
(define (c3 img rimgs)
false)]
(fold-dir c1 c2 c3 false false dir)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment