diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-12-30 02:10:39 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-12-30 02:10:39 +0100 |
| commit | eddae3e24db5fdabe0216d6e0a1882b64d68b934 (patch) | |
| tree | 03cab1d0e366ee3918212c6e0b8aa3d46ab7a2e2 | |
| parent | Fix spawn-fiber outside run-fibers (diff) | |
| download | guile-fibers-eddae3e24db5fdabe0216d6e0a1882b64d68b934.tar.gz | |
Fix ,spawn-fiber
* fibers/repl.scm (spawn-fiber): Use spawn-fiber instead of create-fiber
to get right dynamic-state.
| -rw-r--r-- | fibers/repl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fibers/repl.scm b/fibers/repl.scm index c4a8bcf..afb9dc1 100644 --- a/fibers/repl.scm +++ b/fibers/repl.scm @@ -119,7 +119,7 @@ Spawn a new fiber that runs EXP. If SCHED is given, the fiber will be spawned on the given scheduler." (let ((thunk (repl-prepare-eval-thunk repl (repl-parse repl form))) (sched (repl-ensure-current-sched repl))) - (create-fiber sched thunk))) + (spawn-fiber thunk sched))) (define-meta-command ((kill-fiber fibers) repl fiber) "kill-fiber FIBER |