Shoji Kuzukami
kuzuk****@manba*****
2003年 12月 12日 (金) 13:35:24 JST
On Fri, Dec 12, 2003 at 12:25:10PM +0900, Shoji Kuzukami wrote:
> On Thu, Dec 11, 2003 at 05:17:51PM -1000, Shiro Kawai wrote:
> > なるほど。確かにポータブルに同一性を確認するのは難しいですね。
> > eqv? で identifierが比べられるようにとかしておくのがいいのだろうか。
> これが当りだと思います．
> これを実装してくれればありがたいです．
> (eqv? 'hoge <identifier of hoge>) => #t
実装してみました．
--- src/boolean.c 2003-12-12 13:32:03.000000000 +0900
+++ src/boolean.c.old 2003-12-12 13:03:08.000000000 +0900
@@ -53,12 +53,6 @@
}
return FALSE;
}
- if (SCM_IDENTIFIERP(x)){
- x = (ScmObj)(SCM_IDENTIFIER(x)->name);
- }
- if (SCM_IDENTIFIERP(y)){
- y = (ScmObj)(SCM_IDENTIFIER(y)->name);
- }
return SCM_EQ(x, y);
}
いかかでしょうか？