[Bug-mcron] [PATCH 28/33] main: Remove unused 'regular-file?' procedure.

[Mathieu Lirzin]

* scm/mcron/main.scm (regular-file?): Delete variable.
---
 scm/mcron/main.scm | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/scm/mcron/main.scm b/scm/mcron/main.scm
index 58a3509..92107fd 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)?$")))