actually run the GC

include/lang2/vm/vm.h

 
 struct l2_vm {
 	int halted;
+	int gc_scheduled;
 	l2_word *ops;
 	size_t opcount;
 	l2_word iptr;

lib/vm/vm.c

 
 static l2_word alloc_val(struct l2_vm *vm) {
 	size_t id = l2_bitset_set_next(&vm->valueset);
-	if (id >= vm->valuessize) {
-		if (vm->valuessize == 0) {
-			vm->valuessize = 16;
-		}
+	if (id + 16 >= vm->valuessize) {
+		if (id >= vm->valuessize) {
+			if (vm->valuessize == 0) {
+				vm->valuessize = 64;
+			}
 
-		while (id >= vm->valuessize) {
-			vm->valuessize *= 2;
-		}
+			while (id >= vm->valuessize) {
+				vm->valuessize *= 2;
+			}
 
-		vm->values = realloc(vm->values, sizeof(*vm->values) * vm->valuessize);
+			vm->values = realloc(vm->values, sizeof(*vm->values) * vm->valuessize);
+		} else {
+			vm->gc_scheduled = 1;
+		}
 	}
 
 	return (l2_word)id;
 
 		struct l2_vm_value *val = &vm->values[i];
 		if (!(val->flags & L2_VAL_MARKED)) {
+			l2_bitset_unset(&vm->valueset, i);
 			gc_free(vm, i);
 			freed += 1;
 		} else {
 	vm->std_error = &std_error.w;
 
 	vm->halted = 0;
+	vm->gc_scheduled = 0;
 	vm->ops = ops;
 	vm->opcount = opcount;
 	vm->iptr = 0;
 		vm->halted = 1;
 		break;
 	}
+
+	if (vm->gc_scheduled) {
+		l2_vm_gc(vm);
+		vm->gc_scheduled = 0;
+	}
 }