HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2006-02-01 Ludovic Courtès <ludovic.courtes@laas.fr>
[bpt/guile.git]
/
libguile
/
numbers.c
diff --git
a/libguile/numbers.c
b/libguile/numbers.c
index
c60920b
..
dfa25d1
100644
(file)
--- a/
libguile/numbers.c
+++ b/
libguile/numbers.c
@@
-16,7
+16,7
@@
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
- * Foundation, Inc., 5
9 Temple Place, Suite 330, Boston, MA 02111-1307
USA
+ * Foundation, Inc., 5
1 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
*/
\f
*/
\f
@@
-3228,9
+3228,9
@@
scm_num_eq_p (SCM x, SCM y)
might be fastest or easiest for the cpu. */
double yy = SCM_REAL_VALUE (y);
might be fastest or easiest for the cpu. */
double yy = SCM_REAL_VALUE (y);
- return
SCM_BOOL
((double) xx == yy
- && (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
- || xx == (long) yy));
+ return
scm_from_bool
((double) xx == yy
+
&& (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
+
|| xx == (long) yy));
}
else if (SCM_COMPLEXP (y))
return scm_from_bool (((double) xx == SCM_COMPLEX_REAL (y))
}
else if (SCM_COMPLEXP (y))
return scm_from_bool (((double) xx == SCM_COMPLEX_REAL (y))
@@
-3282,9
+3282,9
@@
scm_num_eq_p (SCM x, SCM y)
{
/* see comments with inum/real above */
long yy = SCM_I_INUM (y);
{
/* see comments with inum/real above */
long yy = SCM_I_INUM (y);
- return
SCM_BOOL
(xx == (double) yy
- && (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
- || (long) xx == yy));
+ return
scm_from_bool
(xx == (double) yy
+
&& (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
+
|| (long) xx == yy));
}
else if (SCM_BIGP (y))
{
}
else if (SCM_BIGP (y))
{