Add some bindings and a workaround for resetting

1 files changed, 9 insertions, 0 deletions

diff --git a/src/guile/guiledefs.c b/src/guile/guiledefs.c
index 9f52c43..a0e9bd2 100644
--- a/src/guile/guiledefs.c
+++ b/src/guile/guiledefs.c
@@ -1,3 +1,12 @@
 #include <libguile.h>
 
 struct scm_unused_struct * scm_undefined = SCM_UNDEFINED;
+struct scm_unused_struct * scm_unspecified = SCM_UNSPECIFIED;
+
+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));
+}