From dd30cb9e547f90d0bffc8eb758c58bba0e2c08ad Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Wed, 26 Apr 2017 21:54:13 +0200
Subject: utils: Add 'assq_symbol_set_x' function

* src/utils.c (assq_symbol_set_x): New function.
* src/mcron.c (parse_opt): Use it.
---
 src/utils.h | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/utils.h')

diff --git a/src/utils.h b/src/utils.h
index 5a71afd..910483f 100644
--- a/src/utils.h
+++ b/src/utils.h
@@ -19,9 +19,15 @@
 #ifndef MCRON_UTILS_H
 #define MCRON_UTILS_H
 
+#include <libguile.h>
+
 /**
    Append DIR in front of ENVAR environment variable value.  If ENVAR is not
    defined, then define it with DIR.  Bail out if something went wrong.  */
 extern void wrap_env_path (const char *envar, const char *dir);
 
+/**
+   In the association list pointed by ALST, set SYMBOL to VAL.  */
+extern void assq_symbol_set_x (SCM *alst, const char *symbol, SCM val);
+
 #endif /* MCRON_UTILS_H */
-- 
cgit v1.2.3