Add spawn-edwin procedure.

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index 8fde684923c6d1f682a6150ff5a108fe31c957f3..21e410f2026164a7a1118977c555ffcb8b24a268 100644 (file)
--- 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 fcebd810daf04e591e2ca99d8628dd2feba0d059..1399debfaee1fcc615cb4c5fc8ebc9524a8bc4cc 100644 (file)
--- 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")