dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

utils: for-each-file: Use named let.

Browse source 
* src/mcron/utils.scm (for-each-file): Use named 'let' instead of 'do'.
This commit is contained in:
Mathieu Lirzin 2016-07-24 00:26:20 +02:00
commit 2d6c072b47
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mcron/utils.scm
View file

@ -92,9 +92,12 @@ General help using GNU software: <http://www.gnu.org/gethelp/>\n"
PROC must be a procedure that take one file name argument. The return value PROC must be a procedure that take one file name argument. The return value
is not specified" is not specified"
(let ((dir (opendir directory))) (let ((dir (opendir directory)))
(do ((file-name (readdir dir) (readdir dir))) (let loop ((file-name (readdir dir)))
((eof-object? file-name) (closedir dir)) (if (eof-object? file-name)
(proc file-name)))) (closedir dir)
(begin
(proc file-name)
(loop (readdir dir)))))))
(define (process-update-request fdes-list) (define (process-update-request fdes-list)
"Read a user name from the socket, dealing with the /etc/crontab special "Read a user name from the socket, dealing with the /etc/crontab special