From 4c5412a28886f903a1e58c151543a1f2910c2806 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 19 Jun 2010 13:36:23 +0200 Subject: [PATCH] no the-last-stack in ice-9 threads * module/ice-9/threads.scm (thread-handler): Don't muck with the-last-stack. --- module/ice-9/threads.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/module/ice-9/threads.scm b/module/ice-9/threads.scm index 292d3c27a..f56939d8b 100644 --- a/module/ice-9/threads.scm +++ b/module/ice-9/threads.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2006, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -196,7 +196,6 @@ of applying P-PROC on ARGLISTS." threads))))) (define (thread-handler tag . args) - (fluid-set! the-last-stack #f) (let ((n (length args)) (p (current-error-port))) (display "In thread:" p)