rev 573 - in trunk: pr/test src

Author: mark
Date: 2004-06-04 16:06:10 -0400 (Fri, 04 Jun 2004)
New Revision: 573

Modified:
   trunk/pr/test/test.pr
   trunk/src/builtins-int.c
Log:
fixed special case where int.eq?() didn't work with non-int param

Modified: trunk/pr/test/test.pr
===================================================================
--- trunk/pr/test/test.pr	2004-06-04 19:08:39 UTC (rev 572)
+++ trunk/pr/test/test.pr	2004-06-04 20:06:10 UTC (rev 573)
@@ -1,8 +1,6 @@
 #!/usr/bin/env prothon
 
-# chiter.pr
-BreakChars = 'abc'
+print [2] == ["222"]
 
-ich = BreakChars.iter_().next{}
+print 2 == "222"
 
-print ich(), ich(), ich()

Modified: trunk/src/builtins-int.c
===================================================================
--- trunk/src/builtins-int.c	2004-06-04 19:08:39 UTC (rev 572)
+++ trunk/src/builtins-int.c	2004-06-04 20:06:10 UTC (rev 573)
@@ -2387,7 +2387,7 @@
 	if (!is_Int(other)) {
 		int c = covers(other, self);
 		if (catch_exception(ist, OBJ(FUNCNOTFOUND_EXC), NULL)) 
-			return FALSE;
+			return OBJ(PR_FALSE);
 		if (c) return call_func1(ist, other, SYM(EQ__QUES), self);
 		return OBJ(PR_FALSE);
 	}