From ab964d17145114eda93cda35f69a4b1e1779e242 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Oct 2019 13:41:00 +0200 Subject: Cleanup in C code. --- src/guile_type_helpers.h | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/guile_type_helpers.h') diff --git a/src/guile_type_helpers.h b/src/guile_type_helpers.h index c936f45d..fe0e875a 100644 --- a/src/guile_type_helpers.h +++ b/src/guile_type_helpers.h @@ -3,10 +3,12 @@ #include -#include "calendar.h" #include "strbuf.h" #define SCM_IS_LIST(x) scm_is_true(scm_list_p(x)) +#define string_eq(a, b) \ + scm_is_true(scm_string_eq(a, b, \ + SCM_UNDEFINED,SCM_UNDEFINED,SCM_UNDEFINED,SCM_UNDEFINED)) SCM scm_from_strbuf(strbuf* s); SCM scm_from_strbuf_symbol(strbuf* s); -- cgit v1.2.3