/[guile]/guile/guile-core/libguile/eq.c
ViewVC logotype

Diff of /guile/guile-core/libguile/eq.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34.4.3 by mdj, Thu Apr 17 17:50:40 2003 UTC revision 1.34.4.4 by mdj, Thu Apr 17 18:47:13 2003 UTC
# Line 67  SCM_DEFINE1 (scm_eq_p, "eq?", scm_tc7_rp Line 67  SCM_DEFINE1 (scm_eq_p, "eq?", scm_tc7_rp
67  #undef FUNC_NAME  #undef FUNC_NAME
68    
69    
70  SCM_DEFINE1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr,  SCM_PRIMITIVE_GENERIC_1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr,
71               (SCM x, SCM y),               (SCM x, SCM y),
72               "The @code{eqv?} procedure defines a useful equivalence relation on objects.\n"               "The @code{eqv?} procedure defines a useful equivalence relation on objects.\n"
73               "Briefly, it returns @code{#t} if @var{x} and @var{y} should normally be\n"               "Briefly, it returns @code{#t} if @var{x} and @var{y} should normally be\n"
# Line 110  SCM_DEFINE1 (scm_eqv_p, "eqv?", scm_tc7_ Line 110  SCM_DEFINE1 (scm_eqv_p, "eqv?", scm_tc7_
110                           && SCM_COMPLEX_IMAG (x) == SCM_COMPLEX_IMAG (y));                           && SCM_COMPLEX_IMAG (x) == SCM_COMPLEX_IMAG (y));
111        }        }
112      }      }
113    return SCM_BOOL_F;    if (SCM_UNPACK (g_scm_eqv_p))
114        return scm_call_generic_2 (g_scm_eqv_p, x, y);
115      else
116        return SCM_BOOL_F;
117  }  }
118  #undef FUNC_NAME  #undef FUNC_NAME
119    

Legend:
Removed from v.1.34.4.3  
changed lines
  Added in v.1.34.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26