diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:41:00 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:41:00 +0200 |
| commit | ab964d17145114eda93cda35f69a4b1e1779e242 (patch) | |
| tree | 2288777a11a1d44539f3790a3aa1e60051452667 /src/guile_type_helpers.h | |
| parent | Minor cleanup in scheme code. (diff) | |
| download | calp-ab964d17145114eda93cda35f69a4b1e1779e242.tar.gz calp-ab964d17145114eda93cda35f69a4b1e1779e242.tar.xz | |
Cleanup in C code.
Diffstat (limited to 'src/guile_type_helpers.h')
| -rw-r--r-- | src/guile_type_helpers.h | 4 |
1 files changed, 3 insertions, 1 deletions
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 <libguile.h> -#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); |