mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 03:30:24 +02:00
Code Activity

(%thread-handler): Do not call unmask-signals, that should be

Browse source 
unnecessary now.
This commit is contained in:
Marius Vollmer 2002-10-21 12:03:30 +00:00
parent c2015a4f53
commit 29b6ae0748
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/threads.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1998, 2001, 2002 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -67,7 +67,6 @@
(define (%thread-handler tag . args) (define (%thread-handler tag . args)
(fluid-set! the-last-stack #f) (fluid-set! the-last-stack #f)
(unmask-signals)
(let ((n (length args)) (let ((n (length args))
(p (current-error-port))) (p (current-error-port)))
(display "In thread:" p) (display "In thread:" p)