Author: ko1
Date: 2006-07-20 04:21:29 +0900 (Thu, 20 Jul 2006)
New Revision: 526

Modified:
   trunk/
   trunk/ChangeLog
   trunk/yarvcore.c
Log:
 r819@lermite:  ko1 | 2006-07-20 03:39:19 +0900
 	* yarvcore.c : fix [yarv-dev:1040] bug
 



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 81cd9672-7512-7e48-ae48-6936450e977d:/local/yarv/trunk:814
   + 81cd9672-7512-7e48-ae48-6936450e977d:/local/yarv/trunk:819

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog	2006-07-18 09:46:14 UTC (rev 525)
+++ trunk/ChangeLog	2006-07-19 19:21:29 UTC (rev 526)
@@ -4,6 +4,11 @@
 #  from Mon, 03 May 2004 01:24:19 +0900
 #
 
+2006-07-20(Thu) 03:38:46 +0900  Koichi Sasada  <ko1 atdot.net>
+
+	* yarvcore.c : fix [yarv-dev:1040] bug
+
+
 2006-07-18(Tue) 18:45:52 +0900  Koichi Sasada  <ko1 atdot.net>
 
 	* some files : set property "svn:eol-style" as native

Modified: trunk/yarvcore.c
===================================================================
--- trunk/yarvcore.c	2006-07-18 09:46:14 UTC (rev 525)
+++ trunk/yarvcore.c	2006-07-19 19:21:29 UTC (rev 526)
@@ -614,9 +614,9 @@
 	return Qtrue;
     }
     else {
-	if (TYPE(other) != T_DATA &&
+	if (TYPE(other)          == T_DATA &&
 	    RBASIC(other)->klass == cYarvProc &&
-	    CLASS_OF(self) == CLASS_OF(other)) {
+	    CLASS_OF(self)       == CLASS_OF(other)) {
 	    yarv_proc_t *p1, *p2;
 	    GetProcPtr(self, p1);
 	    GetProcPtr(other, p2);


--
ML: yarv-diff quickml.atdot.net
Info: http://www.atdot.net/~ko1/quickml