scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fix: 

I had forgotten to mark the thread-cell value environment as read-only
when it's passed on to a spawned thread.  Do that now.
This commit is contained in:
sperber 2001-05-28 13:31:01 +00:00
parent b0d2b0e318
commit 1e212d78a4
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/rts/thread.scm
View File

@ -549,6 +549,7 @@
; scheduler. ; scheduler.
(define (spawn thunk . id) (define (spawn thunk . id)
(set-thread-own-values?! (current-thread) #f)
(apply spawn-on-scheduler (apply spawn-on-scheduler
(thread-scheduler (current-thread)) (thread-scheduler (current-thread))
thunk thunk
@ -557,11 +558,13 @@
(define (spawn-on-root thunk . id) (define (spawn-on-root thunk . id)
(if (root-scheduler) (if (root-scheduler)
(begin
(set-thread-own-values?! (current-thread) #f)
(apply spawn-on-scheduler (apply spawn-on-scheduler
(root-scheduler) (root-scheduler)
thunk thunk
(thread-cell-values (current-thread)) (thread-cell-values (current-thread))
id) id))
(thunk))) (thunk)))
(define (spawn-on-scheduler scheduler thunk cell-values . id) (define (spawn-on-scheduler scheduler thunk cell-values . id)