summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-19 13:36:23 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-19 13:36:23 +0200
commit4c5412a28886f903a1e58c151543a1f2910c2806 (patch)
treee4dbd1d96effd0f9ce7ed01c5d6f2e0e3ef21632
parent27ae3651bd59051107f8cd0d6a0368b80d3abce3 (diff)
downloadguile-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.scm3
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)