Ticket #993: find-files.diff
File find-files.diff, 817 bytes (added by , 12 years ago) |
---|
-
sigma.scm
817 817 (slidepat (regexp-escape slideprefix))) 818 818 (let ((pat (s+ jpgpat "|" pngpat "|" gifpat)) 819 819 (expat (regexp (s+ ".*((" thumbpat ")|(" slidepat ")).*")))) 820 (let ((flst (find-files path (regexp pat) 821 (lambda (x ax) (if (string-match expat x) ax 822 (cons (pathname-strip-directory x) ax))) 823 (list) 0))) 820 (let ((flst (find-files path 821 test: (regexp pat) 822 action: (lambda (x ax) (if (string-match expat x) ax 823 (cons (pathname-strip-directory x) ax))) 824 limit: 0))) 824 825 (sort flst string<?)))))) 825 826 826 827 (define (read-subdirs path)