Re: freopen (Gauche-devel-jp) - Gauche

From: Satoru Takabayashi <sator****@namaz*****>
Subject: [Gauche-devel-jp] Re: freopen
Date: Fri, 16 Jan 2004 17:18:10 +0900

> 具体的には
> 
>   (define-class <progress> ()
>     (...
>      (port  :init-value (current-output-port)
>             :init-keyword :port)
>      ...))
> 
> のような自作のモジュールを使ったときに起きたので、class定義
> の中ではなく initialize の中で port をセットするようにして解
> 決しました。

もしくは、

  (port :init-form (current-output-port) ...)

とする手があります。
:init-valueはクラス定義時の評価、:init-formはコンストラクト時の
評価になります。

--shiro