diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-19 13:36:23 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-19 13:36:23 +0200 |
commit | 4c5412a28886f903a1e58c151543a1f2910c2806 (patch) | |
tree | e4dbd1d96effd0f9ce7ed01c5d6f2e0e3ef21632 | |
parent | 27ae3651bd59051107f8cd0d6a0368b80d3abce3 (diff) | |
download | guile-4c5412a28886f903a1e58c151543a1f2910c2806.tar.gz |
no the-last-stack in ice-9 threads
* module/ice-9/threads.scm (thread-handler): Don't muck with
the-last-stack.
-rw-r--r-- | module/ice-9/threads.scm | 3 |
1 files changed, 1 insertions, 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) |