This patch fixes a memory leak when capturing and resuming delimited
continuations intensively, as is the case with the Shepherd 0.9+:

  https://issues.guix.gnu.org/59021

diff --git a/libguile/vm.c b/libguile/vm.c
index 6fd5c554f..516bae773 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -165,11 +165,13 @@ capture_stack (union scm_vm_stack_element *stack_top,
                scm_t_dynstack *dynstack, uint32_t flags)
 {
   struct scm_vm_cont *p;
+  size_t stack_size;
 
-  p = scm_gc_malloc (sizeof (*p), "capture_vm_cont");
-  p->stack_size = stack_top - sp;
-  p->stack_bottom = scm_gc_malloc (p->stack_size * sizeof (*p->stack_bottom),
-                                   "capture_vm_cont");
+  stack_size = stack_top - sp;
+  p = scm_gc_malloc (sizeof (*p) + stack_size * sizeof (*p->stack_bottom),
+                     "capture_vm_cont");
+  p->stack_size = stack_size;
+  p->stack_bottom = (void *) ((char *) p + sizeof (*p));
   p->vra = vra;
   p->mra = mra;
   p->fp_offset = stack_top - fp;
</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'>refs</a><a class='active' href='/guix/log/COPYING'>log</a><a href='/guix/tree/COPYING?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'>tree</a><a href='/guix/commit/COPYING?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'>commit</a><a href='/guix/diff/COPYING?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/COPYING'>
<input type='hidden' name='id' value='4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'>root</a>/<a href='/guix/log/COPYING?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005'>COPYING</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/COPYING?id=4aa7dfe47fd282e045ba803b4ede9b2fcbad5005&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>