/[gcl]/gcl/o/predicate.c
ViewVC logotype

Diff of /gcl/o/predicate.c

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

revision 1.15 by camm, Sat Oct 1 15:41:50 2005 UTC revision 1.16 by camm, Wed Oct 5 15:26:17 2005 UTC
# Line 744  equalp1(register object x, register obje Line 744  equalp1(register object x, register obje
744        for (i=0;i<x->ht.ht_size;i++) {        for (i=0;i<x->ht.ht_size;i++) {
745          if (x->ht.ht_self[i].hte_key==OBJNULL)          if (x->ht.ht_self[i].hte_key==OBJNULL)
746            continue;            continue;
747          if (!(e=gethash(x->ht.ht_self[i].hte_key,y))          if ((e=gethash(x->ht.ht_self[i].hte_key,y))->hte_key==OBJNULL
748              || !equalp(x->ht.ht_self[i].hte_value,e->hte_value))              || !equalp(x->ht.ht_self[i].hte_value,e->hte_value))
749            return(FALSE);            return(FALSE);
750        }        }

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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