Don't hold on to continuation of caller to CREATE-THREAD.

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index 1c370ceca444d57d1ecf31ece489d65b70417d61..7918692e21318b74a167cc4b7b02aab985ead394 100644 (file)
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.8 1993/01/29 16:31:20 cph Exp $
+$Id: thread.scm,v 1.9 1993/03/09 23:53:13 cph Exp $
 
 Copyright (c) 1991-1993 Massachusetts Institute of Technology
 
@@ -128,7 +128,9 @@ MIT in each case. |#
              (let ((thread (make-thread)))
                (set-thread/continuation! thread continuation)
                (thread-running thread)
-               (%within-continuation return true (lambda () thread)))))
+               (%within-continuation (let ((k return)) (set! return #f) k)
+                                     true
+                                     (lambda () thread)))))
           (set-interrupt-enables! interrupt-mask/all)
           (exit-current-thread (thunk))))))))
 
@@ -177,7 +179,7 @@ MIT in each case. |#
          (set-interrupt-enables! interrupt-mask/all)
          (do () (false)))
        (run-thread thread*))))
-
+\f
 (define (run-thread thread)
   (let ((continuation (thread/continuation thread)))
     (set-thread/continuation! thread false)
@@ -191,7 +193,7 @@ MIT in each case. |#
              (%maybe-toggle-thread-timer)
              (handle-thread-event thread event)
              (set-thread/block-events?! thread false)))))))
-\f
+
 (define (suspend-current-thread)
   (without-interrupts
    (lambda ()