diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2017-04-26 21:54:13 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2017-09-28 18:13:08 +0200 |
| commit | dd30cb9e547f90d0bffc8eb758c58bba0e2c08ad (patch) | |
| tree | aefb3e175184bd698e54c67ec16d0d44cde4c296 /src/mcron.c | |
| parent | d01195784352b29fe13d0676a2f50d60371d007f (diff) | |
| download | mcron-dd30cb9e547f90d0bffc8eb758c58bba0e2c08ad.tar.gz mcron-dd30cb9e547f90d0bffc8eb758c58bba0e2c08ad.tar.bz2 mcron-dd30cb9e547f90d0bffc8eb758c58bba0e2c08ad.zip | |
utils: Add 'assq_symbol_set_x' function
* src/utils.c (assq_symbol_set_x): New function.
* src/mcron.c (parse_opt): Use it.
Diffstat (limited to 'src/mcron.c')
| -rw-r--r-- | src/mcron.c | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/src/mcron.c b/src/mcron.c index 5c63c4b..22cc680 100644 --- a/src/mcron.c +++ b/src/mcron.c @@ -19,7 +19,6 @@ #include "utils.h" #include <argp.h> -#include <libguile.h> /* Forward declarations. */ static void inner_main (void *closure, int argc, char *argv[]); @@ -92,21 +91,18 @@ parse_opt (int key, char *arg, struct argp_state *state) switch (key) { case 's': - *config = scm_assq_set_x (*config, scm_from_utf8_symbol ("schedule"), - scm_from_int (atoi (arg))); + assq_symbol_set_x (config, "schedule", + scm_from_int (atoi (arg))); break; case 'd': - *config = scm_assq_set_x (*config, scm_from_utf8_symbol ("daemon"), - SCM_BOOL_T); + assq_symbol_set_x (config, "daemon", SCM_BOOL_T); break; case 'i': if (strncmp (arg, "vixie", 6) == 0) - *config = scm_assq_set_x (*config, scm_from_utf8_symbol ("vixie"), - SCM_BOOL_T); + assq_symbol_set_x (config, "vixie", SCM_BOOL_T); break; case ARGP_KEY_NO_ARGS: - *config = scm_assq_set_x (*config, scm_from_utf8_symbol ("files"), - SCM_EOL); + assq_symbol_set_x (config, "files", SCM_EOL); break; case ARGP_KEY_ARGS: { @@ -117,8 +113,7 @@ parse_opt (int key, char *arg, struct argp_state *state) for (int i = filec - 1; i >= 0; i--) lst = scm_cons (scm_from_locale_string (filev[i]), lst); - *config = scm_assq_set_x (*config, scm_from_utf8_symbol ("files"), - lst); + assq_symbol_set_x (config, "files", lst); break; } case ARGP_KEY_ARG: |