From a2e6229d805a1e097a99f6008b9b907aa1d3a2c4 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 26 Jul 2016 16:13:07 -0700
Subject: [PATCH] Add spawn-edwin procedure.

---
 src/edwin/editor.scm | 5 +++++
 src/edwin/edwin.pkg  | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index 8fde68492..21e410f20 100644
--- a/src/edwin/editor.scm
+++ b/src/edwin/editor.scm
@@ -91,6 +91,11 @@ USA.
 (simple-command-line-parser "edit" edit
 			    "Causes Edwin to start immediately after Scheme.")
 
+(define (spawn-edwin . args)
+  (let ((thread (create-thread #f (lambda () (apply edwin args)))))
+    (detach-thread thread)
+    thread))
+
 (define edwin-editor #f)
 (define editor-abort)
 (define current-editor)
diff --git a/src/edwin/edwin.pkg b/src/edwin/edwin.pkg
index fcebd810d..1399debfa 100644
--- a/src/edwin/edwin.pkg
+++ b/src/edwin/edwin.pkg
@@ -129,7 +129,8 @@ USA.
 	  inhibit-editor-init-file?
 	  reset-editor
 	  reset-editor-windows
-	  (save-editor-files debug-save-files)))
+	  (save-editor-files debug-save-files)
+	  spawn-edwin))
 
 (define-package (edwin class-macros)
   (files "clsmac")
-- 
2.25.1