changeset: 5315:2a7b6ddb8063
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Wed Dec 29 23:51:08 2010 +0000
files: src/ChangeLog src/floatfns.c
description:
#'float: if handed a bigfloat, give the same bigfloat back.
2010-12-29 Aidan Kehoe <kehoea(a)parhasard.net>
* 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>
+
+ * 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>
* 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
@@ -788,6 +788,11 @@
if (FLOATP (number)) /* give 'em the same float back */
return number;
+
+ if (BIGFLOATP (number))
+ {
+ return number;
+ }
return Ffloat (wrong_type_argument (Qnumberp, number));
}
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches