From 6587bcfa53f620142e4f712ad347a25e3c33a9bc Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 27 Feb 2014 21:31:57 -0500 Subject: [PATCH] SRFI-18: Export 'current-thread'. Fixes . Reported by Xin Wang . * module/srfi/srfi-18.scm: Reexport 'current-thread'. * THANKS: Add "Xin Wang" to fixes section. --- THANKS | 1 + module/srfi/srfi-18.scm | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/THANKS b/THANKS index ddb11c14d..faef9b6a6 100644 --- a/THANKS +++ b/THANKS @@ -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