--- a/Behavior.st Fri Feb 17 11:01:08 2017 +0100
+++ b/Behavior.st Fri Feb 17 11:01:53 2017 +0100
@@ -1449,6 +1449,7 @@
! !
+
!Behavior methodsFor:'RefactoringBrowser'!
realClass
@@ -3034,7 +3035,7 @@
newObject := self evaluatorClass evaluateFrom:aStream ifFail:exceptionBlock.
((newObject class == self) or:[newObject isKindOf:self])
ifTrue:[newObject]
- ifFalse:[^ exceptionBlock value].
+ ifFalse:[exceptionBlock value].
] on:Error do:exceptionBlock.
"
@@ -3057,6 +3058,8 @@
Object readFrom:'illegal' onError:['bla']
String readFrom:'illegal' onError:'bla'
"
+
+ "Modified: / 16-02-2017 / 21:26:38 / stefan"
!
readFromString:aString