--- a/Project.st Thu May 24 21:09:26 2018 +0200
+++ b/Project.st Thu May 24 21:09:36 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -731,9 +733,11 @@
cls removeFromSystem.
].
] ifFalse:[
- self error:'non-symbol class name' mayProceed:true.
+ self proceedableError:'non-symbol class name'.
].
].
+
+ "Modified: / 24-05-2018 / 21:04:47 / Claus Gittinger"
!
removeFromSystem
@@ -1284,7 +1288,7 @@
cls isLoaded ifFalse:[^ false].
] ifFalse:[
aClassOrClassName isBehavior ifFalse:[
- self error:'class is neither a string or a behavior' mayProceed:true.
+ self proceedableError:'class is neither a string or a behavior'.
^ false
].
]
@@ -1302,6 +1306,7 @@
"
"Modified: / 12-10-2006 / 20:11:04 / cg"
+ "Modified: / 24-05-2018 / 21:04:39 / Claus Gittinger"
!
methodInfo