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

Wrap an additional (lambda a ...) around the application of (terminate-current-thread) in terminate-thread! as the continuation may provide any number of values

This commit is contained in:
mainzelm 2002-09-18 19:16:23 +00:00
parent d21334de83
commit 9950aa7205
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/rts/thread.scm
View File

@ -471,7 +471,7 @@
(define (terminate-thread! thread) (define (terminate-thread! thread)
(let ((interrupts (set-enabled-interrupts! no-interrupts))) (let ((interrupts (set-enabled-interrupts! no-interrupts)))
(clear-thread-cell! thread) (clear-thread-cell! thread)
(interrupt-thread thread terminate-current-thread))) (interrupt-thread thread (lambda args (terminate-current-thread)))))
;---------------- ;----------------
; Make THREAD execute PROC the next time it is run. The thread's own ; Make THREAD execute PROC the next time it is run. The thread's own