diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-10 00:49:01 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-10 00:49:01 +0200 |
| commit | 719635aba8abb5cb6bd8b93f23332141a0c0b0ac (patch) | |
| tree | fbbd7040f4904636a3da2476e8ec7bf2b44c01d0 | |
| parent | Fix BYDAY parse constraint. (diff) | |
| download | calp-719635aba8abb5cb6bd8b93f23332141a0c0b0ac.tar.gz calp-719635aba8abb5cb6bd8b93f23332141a0c0b0ac.tar.xz | |
Add some stuff to guile_type_helpers.
| -rw-r--r-- | src/guile_type_helpers.c | 4 | ||||
| -rw-r--r-- | src/guile_type_helpers.h | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/guile_type_helpers.c b/src/guile_type_helpers.c index e231f2b1..0353a88a 100644 --- a/src/guile_type_helpers.c +++ b/src/guile_type_helpers.c @@ -11,3 +11,7 @@ SCM scm_from_strbuf(strbuf* s) { return s->scm; } + +SCM scm_from_strbuf_symbol(strbuf* s) { + return scm_string_to_symbol(scm_from_strbuf(s)); +} diff --git a/src/guile_type_helpers.h b/src/guile_type_helpers.h index 2ff177e1..537c23c5 100644 --- a/src/guile_type_helpers.h +++ b/src/guile_type_helpers.h @@ -7,7 +7,9 @@ #include "strbuf.h" #define SCM_IS_LIST(x) scm_is_true(scm_list_p(x)) +#define SCM_MAKE_HASH_TABLE() scm_c_eval_string("(make-hash-table)") SCM scm_from_strbuf(strbuf* s); +SCM scm_from_strbuf_symbol(strbuf* s); #endif /* GUILE_TYPE_HELPERS_H */ |