~ chicken-core (chicken-5) b05638576bce31fbea8b5ad327e3a403f4c047ea
commit b05638576bce31fbea8b5ad327e3a403f4c047ea
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Nov 8 20:34:23 2010 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Nov 8 20:34:23 2010 +0100
added comment in copy_closure_2
diff --git a/runtime.c b/runtime.c
index bea726bf..13df40bb 100644
--- a/runtime.c
+++ b/runtime.c
@@ -8583,6 +8583,7 @@ static void copy_closure_2(void *dummy)
*p = ptr;
*(p++) = C_CLOSURE_TYPE | cells;
+ /* this is only allowed because the storage is freshly allocated: */
C_memcpy_slots(p, C_data_pointer(proc), cells);
C_kontinue(k, (C_word)ptr);
}
Trap