aboutsummaryrefslogtreecommitdiff
path: root/src/guile_type_helpers.c
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-04-10 00:49:01 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2019-04-10 00:49:01 +0200
commit719635aba8abb5cb6bd8b93f23332141a0c0b0ac (patch)
treefbbd7040f4904636a3da2476e8ec7bf2b44c01d0 /src/guile_type_helpers.c
parentFix BYDAY parse constraint. (diff)
downloadcalp-719635aba8abb5cb6bd8b93f23332141a0c0b0ac.tar.gz
calp-719635aba8abb5cb6bd8b93f23332141a0c0b0ac.tar.xz
Add some stuff to guile_type_helpers.
Diffstat (limited to 'src/guile_type_helpers.c')
-rw-r--r--src/guile_type_helpers.c4
1 files changed, 4 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));
+}