Remove unused function categoricals_index

diff --git a/src/math/categoricals.c b/src/math/categoricals.c
index 1f302a0aa78c679d17944ca779e28e84d9e85c84..b7e51751a5b8492fe1a5057d5b5c254577ecb879 100644 (file)
--- a/src/math/categoricals.c
+++ b/src/math/categoricals.c
@@ -250,19 +250,6 @@ categoricals_n_count (const struct categoricals *cat, size_t n)
 }
 
 
-/* Return the index for value VAL in the Nth variable */
-int
-categoricals_index (const struct categoricals *cat, size_t n, const union value *val)
-{
-  struct value_node *vn = lookup_value (&cat->vp[n].map, cat->vp[n].var, val);
-
-  if ( vn == NULL)
-    return -1;
-
-  return vn->subscript;
-}
-
-
 /* Return the total number of categories */
 size_t
 categoricals_total (const struct categoricals *cat)

diff --git a/src/math/categoricals.h b/src/math/categoricals.h
index 697d846b48351c729b7cc6013aab8099aebbf3bd..2f86ce1df911f1cfa29c7affc384711f631b1d66 100644 (file)
--- a/src/math/categoricals.h
+++ b/src/math/categoricals.h
@@ -50,9 +50,6 @@ size_t categoricals_total (const struct categoricals *cat);
 */
 size_t categoricals_get_n_variables (const struct categoricals *cat);
 
-/* Return the index for variable N */
-int categoricals_index (const struct categoricals *cat, size_t n, const union value *val);
-
 void categoricals_done (struct categoricals *cat);
 
 const struct variable * categoricals_get_variable_by_subscript (const struct categoricals *cat, int subscript);