blob: e231f2b1f4470c25c8e37a9eacfb6011a96cea60 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#include "guile_type_helpers.h"
#include "guile_interface.h"
#include "macro.h"
SCM scm_from_strbuf(strbuf* s) {
if (s->scm == NULL) {
s->scm = scm_from_utf8_stringn (s->mem, s->len);
scm_gc_protect_object(s->scm);
}
return s->scm;
}
|