gh_code2

drgeoVector &
scmVector2drgeoVector (SCM v)
{
  static drgeoVector t;
  static gdouble gv[2];

  gh_scm2doubles (v, gv);
  t.set (gv[0], gv[1]);
  return t;
}


////changed to

drgeoVector &
scmVector2drgeoVector (SCM v)
{
  static drgeoVector t;
  static gdouble gv[2];

  for (int i=0, n=scm_c_array_length(v); i<n; ++i)
  {
    gv[i] = scm_to_double(scm_c_array_ref_1(v, i));
  }
  t.set (gv[0], gv[1]);
  return t;
}