From 83130ff9f6768e6b139eabdbd184571cc3c3d32c Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 30 Oct 2022 13:49:03 +0100
Subject: Fixture display: Bail out if we get a Scheme error

---
 src/repl-connection.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/repl-connection.c')

diff --git a/src/repl-connection.c b/src/repl-connection.c
index 2e3201f..72446e7 100644
--- a/src/repl-connection.c
+++ b/src/repl-connection.c
@@ -153,6 +153,12 @@ static void input_ready(GObject *source, GAsyncResult *res, gpointer vp)
 		printf("Prompt!\n");
 		repl->input[0] = '\0';
 	}
+	if ( strncmp(remaining, "Entering a new prompt", 21) == 0 ) {
+		fprintf(stderr, "Scheme error!\n");
+		g_object_unref(repl->conn);
+		repl->conn = NULL;
+		return;
+	}
 	free(remaining);
 
 	g_input_stream_read_async(g_io_stream_get_input_stream(G_IO_STREAM(repl->conn)),
-- 
cgit v1.2.3