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

Fix for incorrect (gcd -2) => -2; should give 2.

Browse source 
(reported by Bill Schottstaedt)

* libguile/numbers.c (scm_gcd): When only one arg given, use scm_abs
  to ensure that result is non-negative.

* test-suite/tests/numbers.test ("gcd"): New test, (gcd -2).
This commit is contained in:
Neil Jerram 2008-09-17 21:46:40 +01:00
parent bed2e15fc9
commit 0bf4fe19a6
3 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/numbers.test
View file

@ -1059,6 +1059,11 @@
(expect-fail "documented?"
(documented? gcd))
(with-test-prefix "(n)"
(pass-if "n = -2"
(eqv? 2 (gcd -2))))
(with-test-prefix "(0 n)"
(pass-if "n = 0"