aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-06-28 09:35:11 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-07-07 21:14:09 +0200
commit46558f32c3aebcbaa58850edddfe7a6628db0a83 (patch)
treec6e1a65666566a9cd96c2601cd6ca9e5c9ee152f
parentVarious test cleanups. (diff)
downloadcalp-46558f32c3aebcbaa58850edddfe7a6628db0a83.tar.gz
calp-46558f32c3aebcbaa58850edddfe7a6628db0a83.tar.xz
Note that with-working-directory isn't thread-safe.
-rw-r--r--module/hnh/util/env.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/module/hnh/util/env.scm b/module/hnh/util/env.scm
index ca0e5ea8..18ec0543 100644
--- a/module/hnh/util/env.scm
+++ b/module/hnh/util/env.scm
@@ -22,6 +22,8 @@
env-pairs))))]))
+;; TODO this probably isn't threadsafe... pthreads(7) notes
+;; that chdir is shared between all threads.
(define-syntax-rule (with-working-directory directory thunk)
(let ((old-cwd #f))
(dynamic-wind