rem: return 1;
context: int scheme_eqv (Scheme_Object *obj1, Scheme_Object *obj2){  Scheme_Type t1, t2;  if (SAME_OBJ(obj1, obj2))    return 1;  t1 = SCHEME_TYPE(obj1);  t2 = SCHEME_TYPE(obj2);  if (NOT_SAME_TYPE(t1, t2)) {#ifdef MZ_USE_SINGLE_FLOATS    /* If one is a float and the other is a double, corce to double */    if ((t1 == scheme_float_type) && (t2 == scheme_double_type))      return scheme_eqv(scheme_make_double(SCHEME_FLT_VAL(obj1)), obj2);    else if ((t2 == scheme_float_type) && (t1 == scheme_double_type))      return scheme_eqv(scheme_make_double(SCHEME_FLT_VAL(obj2)), obj1);#endif    return 0;#ifdef MZ_USE_SINGLE_FLOATS  } else if (t1 == scheme_float_type) {    float a, b;    a = SCHEME_FLT_VAL(obj1);    b = SCHEME_FLT_VAL(obj2);# ifndef NAN_EQUALS_ANYTHING    if (a != b) {#  endif      /* Double-check for NANs: */      if (MZ_IS_NAN(a)) {	if (MZ_IS_NAN(b))	  return 1;# ifdef NAN_EQUALS_ANYTHING	return 0;# endif      }# ifdef NAN_EQUALS_ANYTHING      if (MZ_IS_NAN(b))	return 0;      else	return (a == b);# else      return 0;    }    return 1;# endif#endif  } else if (t1 == scheme_double_type) {    double a, b;    a = SCHEME_DBL_VAL(obj1);    b = SCHEME_DBL_VAL(obj2);# ifndef NAN_EQUALS_ANYTHING    if (a != b) {# endif      /* Double-check for NANs: */      if (MZ_IS_NAN(a)) {	if (MZ_IS_NAN(b))	  return 1;# ifdef NAN_EQUALS_ANYTHING	return 0;# endif      }# ifdef NAN_EQUALS_ANYTHING      if (MZ_IS_NAN(b))	return 0;      else	return (a == b);# else      return 0;    }# endif    return 1;  } else if (t1 == scheme_bignum_type)    return scheme_bignum_eq(obj1, obj2);  else if (t1 == scheme_rational_type)    return scheme_rational_eq(obj1, obj2);  else if ((t1 == scheme_complex_type) || (t1 == scheme_complex_izi_type)) {    Scheme_Complex *c1 = (Scheme_Complex *)obj1;    Scheme_Complex *c2 = (Scheme_Complex *)obj2;    return scheme_eqv(c1->r, c2->r) && scheme_eqv(c1->i, c2->i);  } else if (t1 == scheme_char_type)    return SCHEME_CHAR_VAL(obj1) == SCHEME_CHAR_VAL(obj2);  else    return 0;}