Object.st
branchjv
changeset 18113 92b4242b2b0b
parent 18107 d46c13a0795b
parent 15854 811e3095236e
child 18115 26ac4840e5d0
--- a/Object.st	Thu Dec 05 09:52:02 2013 +0000
+++ b/Object.st	Tue Dec 17 20:21:42 2013 +0100
@@ -666,6 +666,7 @@
     "
 ! !
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -4420,9 +4421,8 @@
 
     <resource: #skipInDebuggersWalkBack>
 
-    "/ ^ self error:'method/functionality is not yet implemented'
     ^ MethodNotAppropriateError
-        raiseRequestErrorString:'method/functionality is not yet implemented'
+        raiseRequestErrorString:'method/functionality is not yet implemented'.
 
     "Modified: / 02-11-2012 / 10:24:12 / cg"
 !
@@ -4658,9 +4658,8 @@
 
     <resource: #skipInDebuggersWalkBack>
 
-    "/ ^ self error:'This message never may be sent to me!!'.
     ^ MethodNotAppropriateError
-        raiseRequestErrorString:'This message never may be sent to me!!'
+        raiseRequestErrorString:'This message never may be sent to me'.
 
     "Modified: / 20-04-2005 / 18:59:28 / janfrog"
     "Modified: / 02-11-2012 / 10:10:42 / cg"
@@ -4674,9 +4673,8 @@
 
     <resource: #skipInDebuggersWalkBack>
 
-    "/ self error:'method/functionality not appropriate for this class'
     ^ MethodNotAppropriateError
-        raiseRequestErrorString:'method/functionality not appropriate for this class'
+        raiseRequestErrorString:'method/functionality is not appropriate for class'.
 
     "Modified: / 02-11-2012 / 10:02:25 / cg"
 !
@@ -7360,7 +7358,7 @@
     |myClass hasSemi sz "{ Class: SmallInteger }" |
 
     thisContext isRecursive ifTrue:[
-        Object recursiveStoreStringSignal raiseRequestWith:self.
+        RecursiveStoreError raiseRequestWith:self.
         'Object [error]: storeString of self referencing object (' errorPrint.
         self class name errorPrint.
         ')' errorPrintCR.
@@ -9927,11 +9925,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.741 2013-11-12 18:09:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.743 2013-12-06 14:40:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.741 2013-11-12 18:09:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.743 2013-12-06 14:40:10 stefan Exp $'
 !
 
 version_HG