summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-12-12 11:45:51 +0100
committerAndy Wingo <wingo@pobox.com>2016-12-12 12:14:46 +0100
commit7042d050c994240b276de5740343008d296ba47c (patch)
tree4092bc600c92331fb0b3e086bb659e794bd6e785
parentMerge pull request #4 from vyp/typo (diff)
downloadguile-fibers-7042d050c994240b276de5740343008d296ba47c.tar.gz
Import (ice-9 threads) to avoid deprecation warnings
* fibers/internal.scm: * fibers/repl.scm: Explicitly import (ice-9 threads).
-rw-r--r--fibers/internal.scm1
-rw-r--r--fibers/repl.scm1
2 files changed, 2 insertions, 0 deletions
diff --git a/fibers/internal.scm b/fibers/internal.scm
index 93f8280..5df25a9 100644
--- a/fibers/internal.scm
+++ b/fibers/internal.scm
@@ -26,6 +26,7 @@
#:use-module (ice-9 atomic)
#:use-module (ice-9 match)
#:use-module (ice-9 fdes-finalizers)
+ #:use-module ((ice-9 threads) #:select (current-thread))
#:export (;; Low-level interface: schedulers and threads.
make-scheduler
with-scheduler
diff --git a/fibers/repl.scm b/fibers/repl.scm
index b986327..d340ceb 100644
--- a/fibers/repl.scm
+++ b/fibers/repl.scm
@@ -22,6 +22,7 @@
#:use-module (system repl command)
#:use-module (ice-9 match)
#:use-module (ice-9 format)
+ #:use-module ((ice-9 threads) #:select (call-with-new-thread))
#:use-module (fibers)
#:use-module (fibers internal))