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 /module/srfi/srfi-18.scm | |
| 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.
Diffstat (limited to 'module/srfi/srfi-18.scm')
| -rw-r--r-- | module/srfi/srfi-18.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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 |