From 719635aba8abb5cb6bd8b93f23332141a0c0b0ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 10 Apr 2019 00:49:01 +0200
Subject: Add some stuff to guile_type_helpers.

---
 src/guile_type_helpers.c | 4 ++++
 src/guile_type_helpers.h | 2 ++
 2 files changed, 6 insertions(+)

(limited to 'src')

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 */
-- 
cgit v1.2.3