[Gauche-devel-jp] define-condition-meta

Back to archive index

Rui Ueyama rui31****@gmail*****
2006年 11月 16日 (木) 15:25:07 JST


http://www.lingr.com/room/gbq0WCLQEF2/archives/2006/11/15 で言及
している件です。

 (define-condition-type <my-error> <error> #f
   (errno))

上の定義は、現状のdefine-condition-metaでは次のように展開されますが、

 (define-class <my-error> (<error>)
   ((errno))
   :metaclass <condition-meta>)

次のように:init-keywordスロット定義オプションをつけるようほうがよいだろうと
いうことでパッチを作成しました。

 (define-class <my-error> (<error>)
   ((errno :init-keyword :errno))
   :metaclass <condition-meta>)

lib/dbi.scmで、現状のdefine-condition-metaの展開結果に依存している
箇所が1箇所ありましたが、これは正しいやりかたではないと解釈して修正
しておきました。

-- 
植山 類 <rui31****@gmail*****>
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: define-condition-meta.diff
型:         application/octet-stream
サイズ:     4712 バイト
説明:       無し
下載 


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