diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2015-09-06 18:10:42 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-05-07 16:17:52 +0200 |
| commit | 960f6e18170b77bd8b4ae999257105cac11264b6 (patch) | |
| tree | a8d4029ae27f42b0c085f0e6c48a0769a31eb8ee /scm | |
| parent | 805c04fb9033f0d052e3be01eeeed007f940e810 (diff) | |
| download | mcron-960f6e18170b77bd8b4ae999257105cac11264b6.tar.gz mcron-960f6e18170b77bd8b4ae999257105cac11264b6.tar.bz2 mcron-960f6e18170b77bd8b4ae999257105cac11264b6.zip | |
main: Remove unused 'regular-file?' procedure.
* scm/mcron/main.scm (regular-file?): Delete procedure.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/mcron/main.scm | 9 |
1 files changed, 0 insertions, 9 deletions
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)?$"))) |