Mercurial > hg > xemacs-beta
comparison src/fns.c @ 4999:ebafcd6e9f4b
fix compile error in mapcarX
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-07 Ben Wing <ben@xemacs.org>
* fns.c (mapcarX):
C++ requires explicit cast to enum lrecord_type.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sun, 07 Feb 2010 00:32:54 -0600 |
parents | b46c89ccbed3 |
children | 714d854d00e9 |
comparison
equal
deleted
inserted
replaced
4998:b46c89ccbed3 | 4999:ebafcd6e9f4b |
---|---|
3265 struct gcpro gcpro1, gcpro2; | 3265 struct gcpro gcpro1, gcpro2; |
3266 int i, j; | 3266 int i, j; |
3267 enum lrecord_type lisp_vals_type; | 3267 enum lrecord_type lisp_vals_type; |
3268 | 3268 |
3269 assert (LRECORDP (lisp_vals)); | 3269 assert (LRECORDP (lisp_vals)); |
3270 lisp_vals_type = XRECORD_LHEADER (lisp_vals)->type; | 3270 lisp_vals_type = (enum lrecord_type) XRECORD_LHEADER (lisp_vals)->type; |
3271 | 3271 |
3272 args = alloca_array (Lisp_Object, nsequences + 1); | 3272 args = alloca_array (Lisp_Object, nsequences + 1); |
3273 args[0] = function; | 3273 args[0] = function; |
3274 for (i = 1; i <= nsequences; ++i) | 3274 for (i = 1; i <= nsequences; ++i) |
3275 { | 3275 { |