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

Back to archive index

Shiro Kawai shiro****@lava*****
2004年 9月 20日 (月) 06:46:43 JST


了解です。修正しておきました。

--shiro


From: OGURISU Osamu <oguri****@lagen*****>
Subject: [Gauche-devel-jp] Scm_PromoteToComplex (numeric.c)
Date: Wed, 15 Sep 2004 12:13:02 +0900

> 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