/[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.46 by dirk, Sat Sep 6 08:50:26 2003 UTC revision 1.47 by dirk, Thu Sep 18 20:55:40 2003 UTC
# Line 166  SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "e Line 166  SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "e
166      {      {
167      default:      default:
168        break;        break;
169        case scm_tc7_number:
170          switch SCM_TYP16 (x)
171            {
172            case scm_tc16_big:
173              return scm_bigequal (x, y);
174            case scm_tc16_real:
175              return scm_real_equalp (x, y);
176            case scm_tc16_complex:
177              return scm_complex_equalp (x, y);
178            }
179      case scm_tc7_vector:      case scm_tc7_vector:
180      case scm_tc7_wvect:      case scm_tc7_wvect:
181        return scm_vector_equal_p (x, y);        return scm_vector_equal_p (x, y);

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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