/[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.44 by mdj, Thu Apr 17 19:23:28 2003 UTC revision 1.45 by dirk, Thu Sep 4 19:21:21 2003 UTC
# Line 143  SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "e Line 143  SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "e
143        y = SCM_CDR(y);        y = SCM_CDR(y);
144        goto tailrecurse;        goto tailrecurse;
145      }      }
146    if (SCM_TYP7S (x) == scm_tc7_string && SCM_TYP7S (y) == scm_tc7_string)    if (SCM_TYP7 (x) == scm_tc7_string && SCM_TYP7 (y) == scm_tc7_string)
147      return scm_string_equal_p (x, y);      return scm_string_equal_p (x, y);
148    /* This ensures that types and scm_length are the same.  */    /* This ensures that types and scm_length are the same.  */
149    if (SCM_CELL_TYPE (x) != SCM_CELL_TYPE (y))    if (SCM_CELL_TYPE (x) != SCM_CELL_TYPE (y))

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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