diff options
-rw-r--r-- | libguile/ChangeLog | 6 | ||||
-rw-r--r-- | libguile/continuations.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index f039a476f..88fb7341f 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,9 @@ +2000-12-20 Gary Houston <ghouston@arglist.com> + + * 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. + 2000-12-16 Dirk Herrmann <D.Herrmann@tu-bs.de> * goops.c (remove_duplicate_slots, maplist, 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 */ |