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)