diff options
author | Gary Houston <ghouston@arglist.com> | 2000-12-20 22:27:09 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2000-12-20 22:27:09 +0000 |
commit | 5bd44fc9ce4c73901c95a14c4b943402a5fe7112 (patch) | |
tree | a5d29b23aa8e48ee3f28cb1c2cfb24a41571fea5 /libguile/continuations.c | |
parent | c312aca735fc56ca47001655aaf018080fd78de3 (diff) | |
download | guile-5bd44fc9ce4c73901c95a14c4b943402a5fe7112.tar.gz |
* continuations.c (continuation_apply): subtract the length of
continuation->dynenv, not the dynenv itself. I broke it last
time I changed this file. thanks to Bernard Urban.
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r-- | libguile/continuations.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c index 7624f637b..12d313e50 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -231,7 +231,8 @@ static SCM continuation_apply (SCM cont, SCM args) } scm_dowinds (continuation->dynenv, - scm_ilength (scm_dynwinds) - continuation->dynenv); + scm_ilength (scm_dynwinds) + - scm_ilength (continuation->dynenv)); scm_dynthrow (cont, scm_values (args)); return SCM_UNSPECIFIED; /* not reached */ |