vm: bugfix: faulty memcpy in closure.

* vm.c (vm_make_closure): Add missing scale factor to memcpy.
This is the memcpy which relocates display frame contents from
the stack to the frame.

1 files changed, 1 insertions, 1 deletions

diff --git a/vm.c b/vm.c
index f36652f0..2e42d211 100644
--- a/vm.c
+++ b/vm.c
@@ -244,7 +244,7 @@ static val vm_make_closure(struct vm *vm, int frsz)
         val heap_vec = vector(vec, nil);
         cdi->vec = heap_vec;
         cdi->mem = heap_vec->v.vec;
-        memcpy(heap_vec->v.vec, mem, c_num(vec));
+        memcpy(cdi->mem, mem, sizeof *cdi->mem * c_num(vec));
         mut(closure);
         *sdi = *cdi;
         break;