version 0.65v0_65

https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.65.tar.gz

Wed Feb  1 19:48:24 1995  Yukihiro Matsumoto  (matz@ix-02)

	* string.c(str_replace): 置き換える文字列の長さが等しい時メモリコ
	  ピーをしない．

	* string.c(rindex): バグ修正．

Mon Jan 30 11:23:05 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(value_expr): ifのチェックを追加．

	* gc.c(gc_mark): free cellの扱いにバグ．

	* parse.y: 文法の変更(よりシンプルに)．例外を減らした．

Thu Jan 26 00:52:55 1995  Yukihiro Matsumoto  (matz@dyna)

	* parse.y: 引数として連想配列を置くことができるように．この場合，
	  連想配列リテラルが最終引数となる．

	* parse.y: 配列参照の`[]'内が空でもよいことにした．

Tue Jan 24 14:45:15 1995  Yukihiro Matsumoto  (matz@ix-02)

	* class.c(rb_include_module): `-v'を指定した時にはincludeしたモジュー
	  ルとクラス定数が衝突していないかチェックする．

Mon Jan 23 10:42:09 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(rb_class2name): メタクラスに関するbug fix.

	* dict.c: Dict[..]で辞書の生成が出来るように．

	* array.c: Array[..]で配列の生成が出来るように．

	* parse.y: 辞書の表現として{a,b,..}という形式も許すように．

Fri Jan 20 10:28:38 1995  Yukihiro Matsumoto  (matz@ix-02)

	* re.c(Regexp.quote): 正規表現をエスケープするメソッド．

	* 無駄なrb_intern()を減らした．

	* parse.y: `!', `!=', `!~'を特殊演算子にする．よってこれらは再定義
	  できなくなった．

Wed Jan 18 13:20:41 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y: 文法の整理(unless,untilをなくした)．

Tue Jan 17 11:11:27 1995  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c: defでメソッド再定義時にはスーパークラスのメソッドの可視
	  性を継承する．最初の定義の時は今までと同じデフォルト(トップレベ
	  ルで関数的，クラス定義内で通常メソッド)．

	* object.c(Class::new): オブジェクトの生成時に関数的メ
	  ソッドinit_objectが必ず呼ばれるように変更．

	* eval.c: 未定義のメソッドに対してunknownメソッドが呼ばれるように
	  なった．エラー表示が今までと同じになるようにenvを調節している．

Fri Jan 13 14:40:30 1995  Yukihiro Matsumoto  (matz@ix-02)

	* gc.c: gcを若干書き換えて整理した．が，あまり変化はなかったようだ．

	* parse.y(yylex): symbolを\symから:symに変更した．

Thu Jan 12 01:39:28 1995  Yukihiro Matsumoto  (matz@dyna)

	* eval.c: 新規関数 rb_eval_string()．

	* gc.c: gc_mark()を一部非再帰化．

	* variable.c(rb_ivar_{get,set}): インスタンス変数のアクセス周りで
	  チェックが足りなかった．

	* variable.c: クラス定数とインスタンス変数でハッシュテーブルを共有
	  するようにした．

	* ruby.h: iv_tblをRBasicからRObjectとRClassへ移動した．これにより，
	  ObjectとClass,Moduleしかインスタンス変数を持てなくなる．が，メモ
	  リ効率は若干向上する．

1 files changed, 6 insertions, 5 deletions

diff --git a/enum.c b/enum.c
index 5eaef855f1..a27c9860d2 100644
--- a/enum.c
+++ b/enum.c
@@ -19,6 +19,7 @@ void
 rb_each(obj)
     VALUE obj;
 {
+    if (!id_each) id_each = rb_intern("each");
     rb_funcall(obj, id_each, 0, Qnil);
 }
 
@@ -26,6 +27,7 @@ static void
 enum_grep(i, arg)
     VALUE i, *arg;
 {
+    if (!id_match) id_match = rb_intern("=~");
     if (rb_funcall(arg[0], id_match, 1, i)) {
 	ary_push(arg[1], i);
     }
@@ -35,6 +37,7 @@ static void
 enum_grep2(i, pat)
     VALUE i, pat;
 {
+    if (!id_match) id_match = rb_intern("=~");
     if (rb_funcall(pat, id_match, 1, i)) {
 	rb_yield(i);
     }
@@ -150,7 +153,7 @@ enum_all(i, ary)
 {
     ary_push(ary, i);
 }
-    
+
 static VALUE
 Fenum_to_a(obj)
     VALUE obj;
@@ -183,6 +186,7 @@ enum_min(i, min)
     if (*min == Qnil)
 	*min = i;
     else {
+	if (!id_cmp) id_cmp   = rb_intern("<=>");
 	cmp = rb_funcall(i, id_cmp, 1, *min);
 	if (FIX2INT(cmp) < 0)
 	    *min = i;
@@ -208,6 +212,7 @@ enum_max(i, max)
     if (*max == Qnil)
 	*max = i;
     else {
+	if (!id_cmp) id_cmp   = rb_intern("<=>");
 	cmp = rb_funcall(i, id_cmp, 1, *max);
 	if (FIX2INT(cmp) > 0)
 	    *max = i;
@@ -316,8 +321,4 @@ Init_Enumerable()
     rb_define_method(M_Enumerable,"index", Fenum_index, 1);
     rb_define_method(M_Enumerable,"includes", Fenum_includes, 1);
     rb_define_method(M_Enumerable,"length", Fenum_length, 0);
-
-    id_each = rb_intern("each");
-    id_match = rb_intern("=~");
-    id_cmp   = rb_intern("<=>");
 }