From 719635aba8abb5cb6bd8b93f23332141a0c0b0ac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 10 Apr 2019 00:49:01 +0200 Subject: Add some stuff to guile_type_helpers. --- src/guile_type_helpers.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/guile_type_helpers.c') 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)); +} -- cgit v1.2.3