src/guile/guiledefs.c


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

#include <libguile.h>

struct scm_unused_struct * scm_undefined = SCM_UNDEFINED;
struct scm_unused_struct * scm_unspecified = SCM_UNSPECIFIED;
void * scm_bool_t = SCM_BOOL_T;

int defs_scm_is_eq(SCM x, SCM y) {
    return scm_is_eq(x, y);
}

void defs_scm_define_string(const char* name, const char* value) {
    scm_c_define(name, scm_from_utf8_string(value));
}