Update C FFI for experiment/blockless branch

pure-c · Oct 1, 2018 · b322c20 · b322c20
1 parent 2d9665c
commit b322c20
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Control/Extend.c b/src/Control/Extend.c
@@ -2,13 +2,13 @@
 
 PURS_FFI_FUNC_2(Control_Extend_arrayExtend, f, _xs, {
 	int i;
-	const purs_vec_t * innerCopy;
+	const purs_vec_t * inner_copy;
 	const purs_any_t * tmp;
 	const purs_vec_t * xs = purs_any_get_array(_xs);
 	purs_vec_t * copy = (purs_vec_t *) purs_vec_copy(xs);
 	purs_vec_foreach(copy, tmp, i) {
-		innerCopy = purs_vec_slice(xs, i);
-		copy->data[i] = purs_any_app(f, PURS_ANY_ARRAY_NEW(innerCopy));
+		inner_copy = purs_vec_slice(xs, i);
+		copy->data[i] = purs_any_app(f, purs_any_array_new(inner_copy));
 	}
-	return PURS_ANY_ARRAY_NEW((const purs_vec_t *) copy);
-})
+	return purs_any_array_new((const purs_vec_t *) copy);
+});