From 861779e4c6b82f9f4bf09fd7e714ac5106b4455d Mon Sep 17 00:00:00 2001
From: Qrius <qrius@quirio.net>
Date: Wed, 18 Dec 2024 20:21:44 +0100
Subject: Add some bindings and a workaround for resetting

---
 src/guile/guiledefs.c | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/guile/guiledefs.c')

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));
+}
-- 
cgit v1.2.3