From 9950aa7205b68228de495a5a439926eb43c0aac4 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 18 Sep 2002 19:16:23 +0000 Subject: [PATCH] Wrap an additional (lambda a ...) around the application of (terminate-current-thread) in terminate-thread! as the continuation may provide any number of values --- scheme/rts/thread.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/rts/thread.scm b/scheme/rts/thread.scm index 32facae..922199d 100644 --- a/scheme/rts/thread.scm +++ b/scheme/rts/thread.scm @@ -471,7 +471,7 @@ (define (terminate-thread! thread) (let ((interrupts (set-enabled-interrupts! no-interrupts))) (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