String.st
branchjv
changeset 18366 a6e62e167c32
parent 18345 fb699032075a
parent 18364 a693511a7c46
child 18407 911d6c93d78a
--- a/String.st	Sat May 16 06:48:37 2015 +0200
+++ b/String.st	Mon May 18 07:10:20 2015 +0100
@@ -1511,7 +1511,13 @@
 
 %{  /* NOCONTEXT */
 #ifdef __SCHTEAM__
-    return context._RETURN( self.stringEqualP(aString) );
+    if (aString == self) {
+	return __c__._RETURN_true();
+    }
+    if (aString.isStringLike()) {
+	return __c__._RETURN( self.stringEqual(aString) ? STObject.True : STObject.False );
+    }
+    return __c__._RETURN_false();
     /* NOTREACHED */
 #else
     int l1, l2;
@@ -2053,7 +2059,7 @@
 
 %{  /* NOCONTEXT */
 #ifdef __SCHTEAM__
-    return context._RETURN( self.stringEqualP( aString.not()) );
+    return context._RETURN( self.stringEqual( aString ) ? STObject.False : STObject.True);
     /* NOTREACHED */
 #else
     int l1, l2;
@@ -4351,9 +4357,9 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.338 2015-05-15 06:54:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.340 2015-05-18 00:16:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.338 2015-05-15 06:54:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.340 2015-05-18 00:16:20 cg Exp $'
 ! !