Mercurial > hg > xemacs-beta
diff src/fns.c @ 211:78478c60bfcd r20-4b4
Import from CVS: tag r20-4b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:05:51 +0200 |
| parents | 41ff10fd062f |
| children | 262b8bb4a523 |
line wrap: on
line diff
--- a/src/fns.c Mon Aug 13 10:05:01 2007 +0200 +++ b/src/fns.c Mon Aug 13 10:05:51 2007 +0200 @@ -2738,7 +2738,7 @@ else if (LRECORDP (object)) { CONST struct lrecord_implementation - *imp = XRECORD_LHEADER (object)->implementation; + *imp = XRECORD_LHEADER_IMPLEMENTATION (object); if (imp->getprop) { val = (imp->getprop) (object, propname); @@ -2780,7 +2780,7 @@ else if (LRECORDP (object)) { CONST struct lrecord_implementation - *imp = XRECORD_LHEADER (object)->implementation; + *imp = XRECORD_LHEADER_IMPLEMENTATION (object); if (imp->putprop) { if (! (imp->putprop) (object, propname, value)) @@ -2825,7 +2825,7 @@ else if (LRECORDP (object)) { CONST struct lrecord_implementation - *imp = XRECORD_LHEADER (object)->implementation; + *imp = XRECORD_LHEADER_IMPLEMENTATION (object); if (imp->remprop) { retval = (imp->remprop) (object, propname); @@ -2861,7 +2861,7 @@ else if (LRECORDP (object)) { CONST struct lrecord_implementation - *imp = XRECORD_LHEADER (object)->implementation; + *imp = XRECORD_LHEADER_IMPLEMENTATION (object); if (imp->plist) return (imp->plist) (object); else @@ -2928,8 +2928,8 @@ else if (LRECORDP (o1)) { CONST struct lrecord_implementation - *imp1 = XRECORD_LHEADER (o1)->implementation, - *imp2 = XRECORD_LHEADER (o2)->implementation; + *imp1 = XRECORD_LHEADER_IMPLEMENTATION (o1), + *imp2 = XRECORD_LHEADER_IMPLEMENTATION (o2); if (imp1 != imp2) return 0; else if (imp1->equal == 0) @@ -3000,8 +3000,8 @@ else if (LRECORDP (o1)) { CONST struct lrecord_implementation - *imp1 = XRECORD_LHEADER (o1)->implementation, - *imp2 = XRECORD_LHEADER (o2)->implementation; + *imp1 = XRECORD_LHEADER_IMPLEMENTATION (o1), + *imp2 = XRECORD_LHEADER_IMPLEMENTATION (o2); if (imp1 != imp2) return 0; else if (imp1->equal == 0)