:shirt: Clean shred.c

diff --git a/src/lib/shred.c b/src/lib/shred.c
index 9398f679b7a7abf2e79f4c37e640c55e64a69c36..7ba65ff3ff93480cabc8c3dbc5ee961e5b2400d2 100644 (file)
--- a/src/lib/shred.c
+++ b/src/lib/shred.c
@@ -186,20 +186,12 @@ ANN void fork_clean(const VM *vm, const Vector v) {
 }
 
 void fork_launch(const VM* vm, const M_Object o, const m_uint sz) {
-  ++o->ref;
-  ++o->ref;
-//  Gwion gwion = ME(o)->info->vm->gwion;
-//  if(!gwion->child.ptr)
-//    vector_init(&gwion->child);
-//  vector_add(&gwion->child, (vtype)o);
-//  o->ref += 2;
-  if(!vm->gwion->child.ptr) {
+  o->ref += 2;
+  if(!vm->gwion->child.ptr)
     vector_init(&vm->gwion->child);
-  }
   vector_add(&vm->gwion->child, (vtype)o);
   FORK_ORIG(o) = (VM*)vm;
   FORK_RETSIZE(o) = sz;
-//printf("sz %lu\n", vector_size(&gwion->child));
   THREAD_CREATE(FORK_THREAD(o), fork_run, o);
 }