From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 26 Jul 2016 23:13:07 +0000 (-0700)
Subject: Add spawn-edwin procedure.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2e6229d805a1e097a99f6008b9b907aa1d3a2c4;p=mit-scheme.git

Add spawn-edwin procedure.
---

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")