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.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/utils.c')

diff --git a/src/utils.c b/src/utils.c
index b011e77..3ea05f3 100644
--- a/src/utils.c
+++ b/src/utils.c
@@ -18,9 +18,6 @@
 
 #include "utils.h"
 #include <stdbool.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
 
 void
 wrap_env_path (const char *envar, const char *dir)
@@ -42,3 +39,9 @@ wrap_env_path (const char *envar, const char *dir)
       free (new_path);
     }
 }
+
+void
+assq_symbol_set_x (SCM *alst, const char *symbol, SCM val)
+{
+  *alst = scm_assq_set_x (*alst, scm_from_utf8_symbol (symbol), val);
+}
-- 
cgit v1.2.3