recursiveなメソッド定義ができない件

http://jijixi.azito.com/cgi-bin/diary/index.rb?date=20051118#p05

ぐえ。知らんかった…再帰的に定義できるようにすると、まずいことがあるんだろうか…あるんだろうなあ、、、まいった。

※うそでした。

まあ、それはそれとして、

# let (=) x y = Pervasives.(=) x y;;
val ( = ) : 'a -> 'a -> bool = <fun>
# 1 = 1;;
- : bool = true
# 1 <> 1;;
Stack overflow during evaluation (looping recursion?).

で止まらないのは、正格なことが原因ではなくて、<>が上の=の定義を見てるからじゃないでしょうか。