From 960f6e18170b77bd8b4ae999257105cac11264b6 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sun, 6 Sep 2015 18:10:42 +0200 Subject: main: Remove unused 'regular-file?' procedure. * scm/mcron/main.scm (regular-file?): Delete procedure. --- scm/mcron/main.scm | 9 --------- 1 file changed, 9 deletions(-) (limited to 'scm/mcron') diff --git a/scm/mcron/main.scm b/scm/mcron/main.scm index 727f013..0e46945 100644 --- a/scm/mcron/main.scm +++ b/scm/mcron/main.scm @@ -179,15 +179,6 @@ received." ((eof-object? in)) (display in))))) -(define (regular-file? file) - "Return true if FILE is a regular file." - (catch 'system-error - (lambda () - (eq? (stat:type (stat file)) 'regular)) - (lambda (key call fmt args . rest) - (mcron-error 0 (apply format (append (list #f fmt) args))) - #f))) - (define process-user-file (let ((guile-regexp (make-regexp "\\.gui(le)?$")) (vixie-regexp (make-regexp "\\.vix(ie)?$"))) -- cgit v1.2.3