guile/guile-core/libguile ChangeLog continuatio...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/12/20 14:27:10

Modified files:
        guile-core/libguile: ChangeLog continuations.c 

Log message:
        * 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.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1213&r2=1.1214
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/continuations.c.diff?r1=1.28&r2=1.29

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1213 
guile/guile-core/libguile/ChangeLog:1.1214
--- guile/guile-core/libguile/ChangeLog:1.1213  Mon Dec 18 09:36:43 2000
+++ guile/guile-core/libguile/ChangeLog Wed Dec 20 14:27:09 2000
@@ -1,3 +1,9 @@
+2000-12-20  Gary Houston  <address@hidden>
+
+       * 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  <address@hidden>
 
        * goops.c (remove_duplicate_slots, maplist,
Index: guile/guile-core/libguile/continuations.c
diff -u guile/guile-core/libguile/continuations.c:1.28 
guile/guile-core/libguile/continuations.c:1.29
--- guile/guile-core/libguile/continuations.c:1.28      Fri Dec  8 09:32:56 2000
+++ guile/guile-core/libguile/continuations.c   Wed Dec 20 14:27:09 2000
@@ -231,7 +231,8 @@
     }
   
   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 */