mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* continuations.c (continuation_apply): subtract the length of

Browse source 
continuation->dynenv, not the dynenv itself.  I broke it last
	time I changed this file.  thanks to Bernard Urban.
This commit is contained in:
Gary Houston 2000-12-20 22:27:09 +00:00
parent c312aca735
commit 5bd44fc9ce
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -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,

3
libguile/continuations.c
View file

@ -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 */