blob: 072ddff9e547d628b091db1bbd0a6143f9e6bde7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#include "guile_type_helpers.h"
#include "macro.h"
SCM scm_from_strbuf(strbuf* s) {
// if (s->scm == NULL) {
SCM ret = scm_from_utf8_stringn (s->mem, s->len);
scm_gc_protect_object(ret);
// }
// return s->scm;
return ret;
}
SCM scm_from_strbuf_symbol(strbuf* s) {
return scm_string_to_symbol(scm_from_strbuf(s));
}
|