Mercurial > hg > xemacs-beta
comparison src/elhash.c @ 211:78478c60bfcd r20-4b4
Import from CVS: tag r20-4b4
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:05:51 +0200 |
parents | e45d5e7c476e |
children | 2c611d1463a6 |
comparison
equal
deleted
inserted
replaced
210:49f55ca3ba57 | 211:78478c60bfcd |
---|---|
848 depth + 1)); | 848 depth + 1)); |
849 } | 849 } |
850 else if (LRECORDP (obj)) | 850 else if (LRECORDP (obj)) |
851 { | 851 { |
852 CONST struct lrecord_implementation | 852 CONST struct lrecord_implementation |
853 *imp = XRECORD_LHEADER (obj)->implementation; | 853 *imp = XRECORD_LHEADER_IMPLEMENTATION (obj); |
854 if (imp->hash) | 854 if (imp->hash) |
855 return (imp->hash) (obj, depth); | 855 return (imp->hash) (obj, depth); |
856 } | 856 } |
857 | 857 |
858 return LISP_HASH (obj); | 858 return LISP_HASH (obj); |