[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-janitors] #1587: imag-part should return 0 instead of 0.0 o
From: |
Chicken Trac |
Subject: |
Re: [Chicken-janitors] #1587: imag-part should return 0 instead of 0.0 on a flonum |
Date: |
Thu, 28 Feb 2019 19:23:49 -0000 |
#1587: imag-part should return 0 instead of 0.0 on a flonum
---------------------------------------+-------------------
Reporter: johnwcowan | Owner:
Type: defect | Status: new
Priority: minor | Milestone: 5.1
Component: core libraries | Version: 5.0.0
Resolution: | Keywords:
Estimated difficulty: trivial |
---------------------------------------+-------------------
Comment (by johnwcowan):
diff --git a/library.scm b/library.scm
index 6a089955..02b5af36 100644
--- a/library.scm
+++ b/library.scm
@@ -1737,7 +1737,6 @@ EOF
(set! scheme#imag-part
(lambda (x)
(cond ((cplxnum? x) (%cplxnum-imag x))
- ((##core#inline "C_i_flonump" x) 0.0)
((number? x) 0)
(else (##sys#error-bad-number x 'imag-part)) )))
--
Ticket URL: <https://bugs.call-cc.org/ticket/1587#comment:2>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.