Re: case 文の実装 (Anthy-dev 1066) - Anthy

ヤマケンです。

At Thu, 9 Sep 2004 03:17:17 -0700,
jun0****@nerds***** wrote:
> case 文を実装してみました。

> +static LISP
> +leval_case (LISP * pform, LISP * penv)
> +{
(snip)
> +  /* FIXME: `else' seems to be bound as a boolean. Where's the symbol
> +     object?  (We can just pass that to eql() instead of doing these
> +     comparisons, and that'll be faster) */
> +  if (SYMBOLP (data) && strcmp (PNAME (data), "else") == 0)
> +    goto progn;

この部分のコードを井上さんの意図に従う形に直しておきました
(r1248)。elseは今までcondでしか使うアテがなかったのでutil.scmで
定義していましたが、slib.cに移動させました。

というわけでcaseは遠慮なく使える状態になったのでbug #488を閉じま
した。今後のリファクタリング等に活用させて頂きます。ありがとうご
ざいました。

-------------------------------
ヤマケン yamak****@bp*****

Anthy

[Anthy-dev 1066] Re: case 文の実装