From 944c905ee4187477a769624514545338b81fa4d0 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 18 Feb 2020 22:42:06 +0100
Subject: Add basic Guile stuff

---
 src/nanolight.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/nanolight.c')

diff --git a/src/nanolight.c b/src/nanolight.c
index 1bcb2ea..17411f1 100644
--- a/src/nanolight.c
+++ b/src/nanolight.c
@@ -1,7 +1,7 @@
 /*
  * nanolight.c
  *
- * Copyright © 2019 Thomas White <taw@bitwiz.me.uk>
+ * Copyright © 2019-2020 Thomas White <taw@bitwiz.me.uk>
  *
  * This file is part of NanoLight.
  *
@@ -28,6 +28,7 @@
 #include <sys/stat.h>
 #include <glib.h>
 #include <glib/gstdio.h>
+#include <libguile.h>
 
 #include <libintl.h>
 #define _(x) gettext(x)
@@ -35,6 +36,7 @@
 #include "lightctx.h"
 #include "scanout.h"
 #include "display.h"
+#include "scheme.h"
 
 static void show_help(const char *s)
 {
@@ -56,6 +58,7 @@ int main(int argc, char *argv[])
 	struct lightctx nl;
 	struct fixture_class cls;
 	int c;
+	pthread_t repl_thread;
 
 	gtk_init(&argc, &argv);
 
@@ -194,7 +197,9 @@ int main(int argc, char *argv[])
 	create_fixture(&nl, &cls, "mh4", 0, 154, REVERSE_PAN);
 
 	/* Set up output */
-	g_timeout_add(100, scanout_cb, &nl);
+	g_timeout_add(50, scanout_cb, &nl);
+
+	pthread_create(&repl_thread, NULL, run_repl, &nl);
 
 	create_main_window(&nl);
 	gtk_main();
-- 
cgit v1.2.3