ext/array.c in gsl-1.14.7 vs ext/array.c in gsl-1.15.3

@@ -167,25 +167,10 @@
 {
   size_t i;
   for (i = 0; i < v->size; i++) gsl_vector_set(v, i, a[i]);
 }
 
-void cvector_set_from_rarrays(gsl_vector *v, VALUE ary)
-{
-  if (CLASS_OF(ary) == rb_cRange) ary = rb_gsl_range2ary(ary);
-  if (TYPE(ary) == T_ARRAY) {
-    return cvector_set_from_rarray(v, ary);
-#ifdef HAVE_NARRAY_H
-  } else if (NA_IsNArray(ary)) {
-    return cvector_set_from_narray(v, ary);
-#endif
-  } else {
-    rb_raise(rb_eTypeError,
-	     "wrong argument type %s", rb_class2name(CLASS_OF(ary)));
-  }
-}
-
 void carray_set_from_cvector(double *a, const gsl_vector *v)
 {
   size_t i;
   for (i = 0; i < v->size; i++) a[i] = gsl_vector_get(v, i);
 }
@@ -253,18 +238,9 @@
   memcpy(v->data, NA_PTR_TYPE(ary2,double*), size*sizeof(double));
   /*  cvector_set_from_narray(v, ary);*/
   return v;
 }
 
-void cvector_set_from_narray(gsl_vector *v, VALUE ary)
-{
-  int size;
-  if (!NA_IsNArray(ary))
-    rb_raise(rb_eTypeError,
-             "wrong argument type %s", rb_class2name(CLASS_OF(ary)));
-  size = NA_TOTAL(ary);
-  carray_set_from_narray(v->data, ary);
-}
 #endif
 
 gsl_vector_complex* make_vector_complex_clone(const gsl_vector_complex *v)
 {
   gsl_vector_complex *vnew = NULL;