From 6355700d4101a6e515311c96bf8e25bb1bb51d92 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 25 Feb 2019 22:59:53 +0100 Subject: Add scm field to strbuf. --- guile_type_helpers.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'guile_type_helpers.c') diff --git a/guile_type_helpers.c b/guile_type_helpers.c index 3f76c2d4..485827a0 100644 --- a/guile_type_helpers.c +++ b/guile_type_helpers.c @@ -2,8 +2,13 @@ #include "macro.h" -SCM scm_from_strbuf(strbuf* s) - { return scm_from_utf8_stringn (s->mem, s->len - 1); } +SCM scm_from_strbuf(strbuf* s) { + if (s->scm == NULL) { + s->scm = scm_from_utf8_stringn (s->mem, s->len - 1); + } + + return s->scm; +} SCM scm_from_vector(VECT(vcomponent)* vect, SCM element_type) { SCM l = SCM_EOL; -- cgit v1.2.3