[Gauche-devel-jp] Scm_PromoteToComplex (numeric.c)

Back to archive index

OGURISU Osamu oguri****@lagen*****
2004年 9月 15日 (水) 12:13:02 JST


number.c にgauche.hでSCM_EXTERNされていそうで、されていな
い関数が5つあります。gauche.hに入っていると嬉しいのですが。

ScmObj Scm_MakeComplexNormalized(double r, double i)
ScmObj Scm_MakeFlonumToNumber(double d, int exact)
ScmObj Scm_PromoteToBignum(ScmObj obj)
ScmObj Scm_PromoteToComplex(ScmObj obj)
ScmObj Scm_PromoteToFlonum(ScmObj obj)

それと、Scm_PromoteToComplex 内ですが、次の一行が抜けてい
るみたいです。

--- number.c.orig	2004-06-28 08:27:28.000000000 +0900
+++ number.c	2004-09-14 22:22:15.000000000 +0900
@@ -792,6 +792,7 @@
         return Scm_MakeComplex(Scm_BignumToDouble(SCM_BIGNUM(obj)), 0.0);
     if (SCM_FLONUMP(obj))
         return Scm_MakeComplex(SCM_FLONUM_VALUE(obj), 0.0);
+    if (SCM_COMPLEXP(obj)) return obj;
     Scm_Panic("Scm_PromoteToComplex: can't be here");
     return SCM_UNDEFINED;       /* dummy */
 }

--
小栗栖 修 / OGURISU Osamu









Gauche-devel-jp メーリングリストの案内
Back to archive index