Mercurial > hg > xemacs-beta
changeset 5315:2a7b6ddb8063
#'float: if handed a bigfloat, give the same bigfloat back.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* floatfns.c (Ffloat): If we've been handed a bigfloat here, it's
appropriate to give the same bigfloat back.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 29 Dec 2010 23:51:08 +0000 |
| parents | 596011a8bf8f |
| children | 9ac28212c75a |
| files | src/ChangeLog src/floatfns.c |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Wed Dec 29 23:47:30 2010 +0000 +++ b/src/ChangeLog Wed Dec 29 23:51:08 2010 +0000 @@ -1,3 +1,8 @@ +2010-12-29 Aidan Kehoe <kehoea@parhasard.net> + + * floatfns.c (Ffloat): If we've been handed a bigfloat here, it's + appropriate to give the same bigfloat back. + 2010-11-30 Aidan Kehoe <kehoea@parhasard.net> * fns.c (Ffill):
--- a/src/floatfns.c Wed Dec 29 23:47:30 2010 +0000 +++ b/src/floatfns.c Wed Dec 29 23:51:08 2010 +0000 @@ -789,6 +789,11 @@ if (FLOATP (number)) /* give 'em the same float back */ return number; + if (BIGFLOATP (number)) + { + return number; + } + return Ffloat (wrong_type_argument (Qnumberp, number)); }