1 files changed, 18 insertions, 0 deletions
diff --git a/src/scheme.c b/src/scheme.c
index d37578f..b81b1a3 100644
--- a/src/scheme.c
+++ b/src/scheme.c
@@ -84,9 +84,27 @@ void *register_scheme_funcs(void *data)
 }
 
 
+static void run_init()
+{
+	GBytes *bytes;
+	GError *error = NULL;
+	gsize size;
+	gconstpointer initscm;
+
+	bytes = g_resources_lookup_data("/uk/me/bitwiz/NanoLight/src/init.scm",
+	                                 G_RESOURCE_LOOKUP_FLAGS_NONE,
+	                                 &error);
+	initscm = g_bytes_get_data(bytes, &size);
+	printf("got %p\n", initscm);
+	scm_c_eval_string(initscm);
+	g_bytes_unref(bytes);
+}
+
+
 void *run_repl(void *pargsv)
 {
 	scm_with_guile(&register_scheme_funcs, pargsv);
+	run_init();
 	scm_shell(0, NULL);
 	return NULL;
 }