Ticket #993: find-files.diff

sigma.scm

@@ -817 +817 @@
           (slidepat (regexp-escape slideprefix)))
       (let ((pat   (s+ jpgpat "|" pngpat "|" gifpat))
             (expat (regexp (s+ ".*((" thumbpat ")|(" slidepat ")).*"))))
-        (let ((flst (find-files path (regexp pat)
-                                (lambda (x ax) (if (string-match expat x) ax 
-                                                   (cons (pathname-strip-directory x) ax)))
-                                (list) 0)))
+        (let ((flst (find-files path
+                                test: (regexp pat)
+                                action: (lambda (x ax) (if (string-match expat x) ax 
+                                                           (cons (pathname-strip-directory x) ax)))
+                                limit: 0)))
           (sort flst string<?))))))
 
 (define (read-subdirs path)