Update of /cvsroot/scsh/scsh-0.6/scheme/env
In directory usw-pr-cvs1:/tmp/cvs-serv3825/scheme/env
Modified Files:
command-level.scm
Log Message:
New implementation of (no-inheritance) thread-local cells and thread
fluids.
New implementation of syslog.
Both are to be compatible with what's actually probably going into
Scheme 48.
Index: command-level.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/env/command-level.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** command-level.scm 2001/10/04 11:16:15 1.6
--- command-level.scm 2001/12/03 15:21:45 1.7
***************
*** 169,177 ****
; run queue.
! (define (spawn-on-command-level level thunk cell-values id)
! (let ((thread (make-thread thunk
! (command-level-dynamic-env level)
! cell-values
! id)))
(set-thread-scheduler! thread (command-thread))
(set-thread-data! thread level)
--- 169,174 ----
; run queue.
! (define (spawn-on-command-level level thunk id)
! (let ((thread (make-thread thunk (command-level-dynamic-env level) id)))
(set-thread-scheduler! thread (command-thread))
(set-thread-data! thread level)
***************
*** 185,189 ****
(let ((thread (spawn-on-command-level level
(command-level-repl-thunk level)
- (empty-cell-values)
'command-loop)))
(set-command-level-repl-thread! level thread)))
--- 182,185 ----
***************
*** 358,362 ****
(enum-case event-type event
((spawned)
! (spawn-on-command-level level (car args) (cadr args) (caddr args))
#t)
((runnable)
--- 354,358 ----
(enum-case event-type event
((spawned)
! (spawn-on-command-level level (car args) (cadr args))
#t)
((runnable)
|