diff options
author | Mark H Weaver <mhw@netris.org> | 2014-02-27 21:31:57 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-02-27 22:38:53 -0500 |
commit | 6587bcfa53f620142e4f712ad347a25e3c33a9bc (patch) | |
tree | 4d124d11867d3e9ed8884101b2e7d03a693b9c10 | |
parent | bc8e6d7d8ca602c86591466f5e9d816a614700f5 (diff) | |
download | guile-6587bcfa53f620142e4f712ad347a25e3c33a9bc.tar.gz |
SRFI-18: Export 'current-thread'.
Fixes <http://debbugs.gnu.org/16890>.
Reported by Xin Wang <dram.wang@gmail.com>.
* module/srfi/srfi-18.scm: Reexport 'current-thread'.
* THANKS: Add "Xin Wang" to fixes section.
-rw-r--r-- | THANKS | 1 | ||||
-rw-r--r-- | module/srfi/srfi-18.scm | 6 |
2 files changed, 4 insertions, 3 deletions
@@ -183,6 +183,7 @@ For fixes or providing information which led to a fix: Andreas Vögele Michael Talbot-Wilson Michael Tuexen + Xin Wang Thomas Wawrzinek Mark H. Weaver Göran Weinholt diff --git a/module/srfi/srfi-18.scm b/module/srfi/srfi-18.scm index 4921a95d7..5b5b2a686 100644 --- a/module/srfi/srfi-18.scm +++ b/module/srfi/srfi-18.scm @@ -1,6 +1,6 @@ ;;; srfi-18.scm --- Multithreading support -;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 2008, 2009, 2010, 2014 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 @@ -82,7 +82,7 @@ uncaught-exception? uncaught-exception-reason ) - :re-export (thread? mutex? condition-variable?) + :re-export (current-thread thread? mutex? condition-variable?) :replace (current-time make-thread make-mutex @@ -380,4 +380,4 @@ (cons (inexact->exact fx) (inexact->exact (truncate (* (- x fx) 1000000))))))) -;; srfi-18.scm ends here
\ No newline at end of file +;; srfi-18.scm ends here |