error: vs. error:mayProceed:
authorClaus Gittinger <cg@exept.de>
Wed, 04 Aug 1999 16:15:38 +0200
changeset 4530 793b116fef3e
parent 4529 b594b60be7c4
child 4531 31d96b7ba351
error: vs. error:mayProceed:
Stream.st
Symbol.st
UIBytes.st
UndefObj.st
UndefinedObject.st
UninterpretedBytes.st
WeakIdDict.st
WeakIdSet.st
WeakIdentityDictionary.st
WeakIdentitySet.st
--- a/Stream.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/Stream.st	Wed Aug 04 16:15:38 1999 +0200
@@ -128,7 +128,7 @@
 
     "report an error - Streams are created using on:-messages"
 
-    ^ self error:'Streams cannot be created with new'
+    self error:'Streams cannot be created with new'
 ! !
 
 !Stream class methodsFor:'Signal constants'!
@@ -2111,6 +2111,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.83 1999-07-30 10:41:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.84 1999-08-04 14:13:44 cg Exp $'
 ! !
 Stream initialize!
--- a/Symbol.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/Symbol.st	Wed Aug 04 16:15:38 1999 +0200
@@ -191,8 +191,7 @@
      For uninterned symbols, this is allowed."
 
     self knownAsSymbol ifTrue:[
-	self error:'interned symbols may not be changed'.
-	^ something
+        self error:'interned symbols may not be changed'.
     ].
     "
      uninterned - allow change
@@ -648,5 +647,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.54 1999-07-15 19:42:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.55 1999-08-04 14:13:51 cg Exp $'
 ! !
--- a/UIBytes.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/UIBytes.st	Wed Aug 04 16:15:38 1999 +0200
@@ -181,7 +181,7 @@
     "set the byte at index as bcd-value."
 
     (aNumber between:0 and:99) ifFalse:[
-        ^ self error:'invalid value for BCD encoding'
+        self error:'invalid value for BCD encoding'
     ].
     ^ self byteAt:index put:aNumber encodeAsBCD
 
@@ -2061,5 +2061,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.38 1999-08-03 18:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.39 1999-08-04 14:14:43 cg Exp $'
 ! !
--- a/UndefObj.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/UndefObj.st	Wed Aug 04 16:15:38 1999 +0200
@@ -201,7 +201,8 @@
 addDependent:someObject
     "raise an error here - nil may not have dependents"
 
-    self error:'nil may not have dependents'
+    self error:'nil may not have dependents' mayProceed:true
+
 !
 
 dependents
@@ -559,6 +560,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.40 1999-07-06 23:58:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.41 1999-08-04 14:14:25 cg Exp $'
 ! !
 UndefinedObject initialize!
--- a/UndefinedObject.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/UndefinedObject.st	Wed Aug 04 16:15:38 1999 +0200
@@ -201,7 +201,8 @@
 addDependent:someObject
     "raise an error here - nil may not have dependents"
 
-    self error:'nil may not have dependents'
+    self error:'nil may not have dependents' mayProceed:true
+
 !
 
 dependents
@@ -559,6 +560,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.40 1999-07-06 23:58:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.41 1999-08-04 14:14:25 cg Exp $'
 ! !
 UndefinedObject initialize!
--- a/UninterpretedBytes.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/UninterpretedBytes.st	Wed Aug 04 16:15:38 1999 +0200
@@ -181,7 +181,7 @@
     "set the byte at index as bcd-value."
 
     (aNumber between:0 and:99) ifFalse:[
-        ^ self error:'invalid value for BCD encoding'
+        self error:'invalid value for BCD encoding'
     ].
     ^ self byteAt:index put:aNumber encodeAsBCD
 
@@ -2061,5 +2061,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.38 1999-08-03 18:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.39 1999-08-04 14:14:43 cg Exp $'
 ! !
--- a/WeakIdDict.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/WeakIdDict.st	Wed Aug 04 16:15:38 1999 +0200
@@ -236,7 +236,6 @@
         "/
         OperatingSystem unblockInterrupts.
         self error:'oops - unblocked call of findKeyOrNil'.
-        ^ nil "/ leads to another error, if proceeded
     ].
 
     delIndex := 0.
@@ -420,5 +419,5 @@
 !WeakIdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdDict.st,v 1.34 1999-07-07 18:41:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdDict.st,v 1.35 1999-08-04 14:15:33 cg Exp $'
 ! !
--- a/WeakIdSet.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/WeakIdSet.st	Wed Aug 04 16:15:38 1999 +0200
@@ -230,7 +230,6 @@
         "/
         OperatingSystem unblockInterrupts.
         self error:'oops - unblocked call of findKeyOrNil'.
-        ^ nil "/ leads to other errors if proceeded
     ].
 
     delIndex := 0.
@@ -297,5 +296,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.29 1999-07-07 18:40:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.30 1999-08-04 14:15:38 cg Exp $'
 ! !
--- a/WeakIdentityDictionary.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/WeakIdentityDictionary.st	Wed Aug 04 16:15:38 1999 +0200
@@ -236,7 +236,6 @@
         "/
         OperatingSystem unblockInterrupts.
         self error:'oops - unblocked call of findKeyOrNil'.
-        ^ nil "/ leads to another error, if proceeded
     ].
 
     delIndex := 0.
@@ -420,5 +419,5 @@
 !WeakIdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentityDictionary.st,v 1.34 1999-07-07 18:41:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentityDictionary.st,v 1.35 1999-08-04 14:15:33 cg Exp $'
 ! !
--- a/WeakIdentitySet.st	Wed Aug 04 16:15:23 1999 +0200
+++ b/WeakIdentitySet.st	Wed Aug 04 16:15:38 1999 +0200
@@ -230,7 +230,6 @@
         "/
         OperatingSystem unblockInterrupts.
         self error:'oops - unblocked call of findKeyOrNil'.
-        ^ nil "/ leads to other errors if proceeded
     ].
 
     delIndex := 0.
@@ -297,5 +296,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.29 1999-07-07 18:40:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.30 1999-08-04 14:15:38 cg Exp $'
 ! !