From 9d479ca655aee6108e92c9d0e46dc4f8d898c89f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 25 Feb 2019 23:46:15 +0100 Subject: Store static reference to SCM version of vcomponent. --- guile_type_helpers.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'guile_type_helpers.h') diff --git a/guile_type_helpers.h b/guile_type_helpers.h index bb69312d..427c55c6 100644 --- a/guile_type_helpers.h +++ b/guile_type_helpers.h @@ -6,6 +6,8 @@ #include "calendar.h" #include "strbuf.h" +#define SCM_IS_LIST(x) scm_is_true(scm_list_p(x)) + SCM scm_from_strbuf(strbuf* s); SCM scm_from_vector(VECT(vcomponent)* vect, SCM element_type); -- cgit v1.2.3