diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-27 01:58:08 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-27 03:29:47 +0200 |
| commit | 729bae0c984021b6b0b18aecc76408bd52f9e6ad (patch) | |
| tree | 6dd6faaab8ea1bc25627d4bb4412632d79d9b7e5 /src/mcron/scripts | |
| parent | 8ab0465d92159cee9649210c9088641dd3ab4d6f (diff) | |
| download | mcron-729bae0c984021b6b0b18aecc76408bd52f9e6ad.tar.gz mcron-729bae0c984021b6b0b18aecc76408bd52f9e6ad.tar.bz2 mcron-729bae0c984021b6b0b18aecc76408bd52f9e6ad.zip | |
utils: Remove 'parse-args'
It seems that it is not useful to catch 'misc-error exception when
calling 'getopt-long'. Since 'parse-args' purpose was only to catch
this particular error, it can be deleted.
* src/mcron/utils.scm (parse-args): Remove.
Diffstat (limited to 'src/mcron/scripts')
| -rw-r--r-- | src/mcron/scripts/cron.scm | 3 | ||||
| -rw-r--r-- | src/mcron/scripts/crontab.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/mcron/scripts/cron.scm b/src/mcron/scripts/cron.scm index 323499e..1a97fdf 100644 --- a/src/mcron/scripts/cron.scm +++ b/src/mcron/scripts/cron.scm @@ -18,6 +18,7 @@ ;;; along with GNU Mcron. If not, see <http://www.gnu.org/licenses/>. (define-module (mcron scripts cron) + #:use-module (ice-9 getopt-long) #:use-module (ice-9 ftw) #:use-module (mcron base) #:use-module (mcron config) @@ -134,7 +135,7 @@ option.\n") ;;; (define* (main #:optional (args (command-line))) - (let ((opts (parse-args args %options))) + (let ((opts (getopt-long args %options))) (when config-debug (debug-enable 'backtrace)) (cond diff --git a/src/mcron/scripts/crontab.scm b/src/mcron/scripts/crontab.scm index abc3d7b..902d3fc 100644 --- a/src/mcron/scripts/crontab.scm +++ b/src/mcron/scripts/crontab.scm @@ -18,6 +18,7 @@ ;;; along with GNU Mcron. If not, see <http://www.gnu.org/licenses/>. (define-module (mcron scripts crontab) + #:use-module (ice-9 getopt-long) #:use-module (ice-9 rdelim) #:use-module (mcron config) #:use-module (mcron utils) @@ -78,7 +79,7 @@ USER-NAME has modified his crontab. USER-NAME is written to the ;;; (define* (main #:optional (args (command-line))) - (let ((opts (parse-args args %options))) + (let ((opts (getopt-long args %options))) (when config-debug (debug-enable 'backtrace)) (cond ((option-ref opts 'help #f) |