error: vs. error:mayProceed:
--- 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 $'
! !