[COMMIT] #'float: if handed a bigfloat, give the same bigfloat back.

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1293666668 0 # Node ID 2a7b6ddb80637cc139c0cf301aacd3fd40bd4943 # Parent 596011a8bf8f3213e57c83b56f3cffe3d237e043 #'float: if handed a bigfloat, give the same bigfloat back. 2010-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * floatfns.c (Ffloat): If we've been handed a bigfloat here, it's appropriate to give the same bigfloat back. diff -r 596011a8bf8f -r 2a7b6ddb8063 src/ChangeLog --- 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(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * fns.c (Ffill): diff -r 596011a8bf8f -r 2a7b6ddb8063 src/floatfns.c --- 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)); } -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches