diff options
Diffstat (limited to 'module/ice-9/threads.scm')
-rw-r--r-- | module/ice-9/threads.scm | 59 |
1 files changed, 27 insertions, 32 deletions
diff --git a/module/ice-9/threads.scm b/module/ice-9/threads.scm index a1e43b9fa..0d3880d69 100644 --- a/module/ice-9/threads.scm +++ b/module/ice-9/threads.scm @@ -1,5 +1,5 @@ ;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2006, 2010, 2011, -;;;; 2012, 2018 Free Software Foundation, Inc. +;;;; 2012, 2018, 2025 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 @@ -31,37 +31,32 @@ (define-module (ice-9 threads) #:use-module (ice-9 match) - ;; These bindings are marked as #:replace because when deprecated code - ;; is enabled, (ice-9 deprecated) also exports these names. - ;; (Referencing one of the deprecated names prints a warning directing - ;; the user to these bindings.) Anyway once we can remove the - ;; deprecated bindings, we should use #:export instead of #:replace - ;; for these. - #:replace (call-with-new-thread - yield - cancel-thread - join-thread - thread? - make-mutex - make-recursive-mutex - lock-mutex - try-mutex - unlock-mutex - mutex? - mutex-owner - mutex-level - mutex-locked? - make-condition-variable - wait-condition-variable - signal-condition-variable - broadcast-condition-variable - condition-variable? - current-thread - all-threads - thread-exited? - total-processor-count - current-processor-count) - #:export (begin-thread + #:export (call-with-new-thread + yield + cancel-thread + join-thread + thread? + make-mutex + make-recursive-mutex + lock-mutex + try-mutex + unlock-mutex + mutex? + mutex-owner + mutex-level + mutex-locked? + make-condition-variable + wait-condition-variable + signal-condition-variable + broadcast-condition-variable + condition-variable? + current-thread + all-threads + thread-exited? + total-processor-count + current-processor-count + + begin-thread make-thread with-mutex monitor |