[ruby-dev:6745] Re: Ruby 1.3.3-990507

新井です。

Range#=== の挙動がおかしいですね(結構前から？)。

#!/usr/local/bin/ruby
p ((1..10) === 10)
p ((1...10) === 10)
p (("a".."z") === "z")
p (("a"..."z") === "z")

ruby 1.3.3 (1999-04-20) [i586-linux]
false
true
true
true

修正後は、こうなります。

ruby 1.3.3 (1999-05-07) [i586-linux]
true
false
true
false

# 注：古いファイルとの差分です。CVSサーバに
#
# cvs -q update
# Sorry, you don't have read/write access to the history file /home/cvs/CVSROOT/history
# Permission denied
#
# と言われるので(もう、990507のオリジナルが残ってない)

--- range.c.org	Wed May  5 22:56:36 1999
+++ range.c	Sun May  9 11:51:43 1999
@@ -3,7 +3,7 @@
   range.c -
 
   $Author: matz $
-  $Date: 1999/04/09 17:57:42 $
+  $Date: 1999/05/06 08:31:43 $
   created at: Thu Aug 19 17:46:47 JST 1993
 
   Copyright (C) 1993-1999 Yukihiro Matsumoto
@@ -74,7 +74,6 @@ range_s_new(argc, argv, klass)
     VALUE beg, end, flag, range;
     
     rb_scan_args(argc, argv, "21", &beg, &end, &flag);
-    if (argc == 2) flag == Qtrue;
     return range_new(klass, beg, end, RTEST(flag));
 }
 
@@ -82,7 +81,7 @@ static VALUE
 range_exclude_end_p(range)
     VALUE range;
 {
-    return EXCL(range)?Qtrue:Qfalse;;
+    return EXCL(range)?Qtrue:Qfalse;
 }
 
 static VALUE
@@ -97,23 +96,22 @@ range_eqq(range, obj)
     if (FIXNUM_P(beg) && FIXNUM_P(obj) && FIXNUM_P(end)) {
 	if (FIX2INT(beg) <= FIX2INT(obj)) {
 	    if (EXCL(range)) {
-		if (FIX2INT(obj) <= FIX2INT(end)) return Qtrue;
+		if (FIX2INT(obj) < FIX2INT(end)) return Qtrue;
 	    }
 	    else {
-		if (FIX2INT(obj) < FIX2INT(end)) return Qtrue;
+		if (FIX2INT(obj) <= FIX2INT(end)) return Qtrue;
 	    }
 	}
 	return Qfalse;
     }
     else if (RTEST(rb_funcall(beg, rb_intern("<="), 1, obj))) {
 	if (EXCL(range)) {
-	    if (RTEST(rb_funcall(end, rb_intern(">="), 1, obj)))
+	    if (RTEST(rb_funcall(end, rb_intern(">"), 1, obj)))
 		return Qtrue;
 	}
 	else {
-	    if (RTEST(rb_funcall(end, rb_intern(">"), 1, obj)))
+	    if (RTEST(rb_funcall(end, rb_intern(">="), 1, obj)))
 		return Qtrue;
-	    if (FIX2INT(obj) < FIX2INT(end)) return Qtrue;
 	}
     }
     return Qfalse;