mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 04:50:28 +02:00
Code Activity

* numbers.c (scm_divide): Fix (/ 0). Thanks to Keith Wright for

Browse source 
reporting the bug.
This commit is contained in:
Dirk Herrmann 2001-11-21 23:23:53 +00:00
parent 84aff7a7f2
commit 164826d3ae
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -23,3 +23,4 @@ For fixes or providing information which led to a fix:
Ken Raeburn Ken Raeburn
Bill Schottstaedt Bill Schottstaedt
Momchil Velikov Momchil Velikov
Keith Wright

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-11-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.c (scm_divide): Fix (/ 0). Thanks to Keith Wright for
reporting the bug.
2001-11-21 Marius Vollmer <mvo@zagadka.ping.de> 2001-11-21 Marius Vollmer <mvo@zagadka.ping.de>
* Makefile.am (install-exec-hook): Prepend $(DESTDIR) to filename. * Makefile.am (install-exec-hook): Prepend $(DESTDIR) to filename.

7
libguile/numbers.c
View file

@ -3707,10 +3707,13 @@ scm_divide (SCM x, SCM y)
if (SCM_UNBNDP (x)) { if (SCM_UNBNDP (x)) {
SCM_WTA_DISPATCH_0 (g_divide, s_divide); SCM_WTA_DISPATCH_0 (g_divide, s_divide);
} else if (SCM_INUMP (x)) { } else if (SCM_INUMP (x)) {
if (SCM_EQ_P (x, SCM_MAKINUM (1L)) || SCM_EQ_P (x, SCM_MAKINUM (-1L))) { long xx = SCM_INUM (x);
if (xx == 1 || xx == -1) {
return x; return x;
} else if (xx == 0) {
scm_num_overflow (s_divide);
} else { } else {
return scm_make_real (1.0 / (double) SCM_INUM (x)); return scm_make_real (1.0 / (double) xx);
} }
} else if (SCM_BIGP (x)) { } else if (SCM_BIGP (x)) {
return scm_make_real (1.0 / scm_i_big2dbl (x)); return scm_make_real (1.0 / scm_i_big2dbl (x));