src/guile_api.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13

#include <guile_api.h>

void global_start_guile() {
    scm_init_guile();
}

string global_guile_version() {
    SCM version_scm = scm_version();
    char* c_str = scm_to_utf8_string(version_scm);
    string version_str(c_str);
    free(c_str);  // Must free the allocated memory
    return version_str;
}