|
@@ -551,7 +551,7 @@ fn: function (aBlock,anErrorClass,exceptionBlock){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1;
|
|
|
-self._try_catch_(aBlock,(function(exception){
|
|
|
+_st(aBlock)._tryCatch_((function(exception){
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
$1=_st(exception)._isKindOf_(self._classNamed_(_st(anErrorClass)._name()));
|
|
|
if(smalltalk.assert($1)){
|
|
@@ -562,8 +562,8 @@ return _st(exception)._signal();
|
|
|
}, function($ctx2) {$ctx2.fillBlock({exception:exception},$ctx1,1)})}));
|
|
|
return self}, function($ctx1) {$ctx1.fill(self,"evaluate:on:do:",{aBlock:aBlock,anErrorClass:anErrorClass,exceptionBlock:exceptionBlock},globals.Environment)})},
|
|
|
args: ["aBlock", "anErrorClass", "exceptionBlock"],
|
|
|
-source: "evaluate: aBlock on: anErrorClass do: exceptionBlock\x0a\x09\x22Evaluate a block and catch exceptions happening on the environment stack\x22\x0a\x09\x0a\x09self try: aBlock catch: [ :exception | \x0a\x09\x09(exception isKindOf: (self classNamed: anErrorClass name))\x0a\x09\x09\x09ifTrue: [ exceptionBlock value: exception ]\x0a \x09\x09\x09ifFalse: [ exception signal ] ]",
|
|
|
-messageSends: ["try:catch:", "ifTrue:ifFalse:", "isKindOf:", "classNamed:", "name", "value:", "signal"],
|
|
|
+source: "evaluate: aBlock on: anErrorClass do: exceptionBlock\x0a\x09\x22Evaluate a block and catch exceptions happening on the environment stack\x22\x0a\x09\x0a\x09aBlock tryCatch: [ :exception | \x0a\x09\x09(exception isKindOf: (self classNamed: anErrorClass name))\x0a\x09\x09\x09ifTrue: [ exceptionBlock value: exception ]\x0a \x09\x09\x09ifFalse: [ exception signal ] ]",
|
|
|
+messageSends: ["tryCatch:", "ifTrue:ifFalse:", "isKindOf:", "classNamed:", "name", "value:", "signal"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
globals.Environment);
|
|
@@ -3034,11 +3034,11 @@ var self=this;
|
|
|
var result;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$3,$1;
|
|
|
-self._try_catch_((function(){
|
|
|
+_st((function(){
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
result=self._basicParse_(aString);
|
|
|
return result;
|
|
|
-}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}),(function(ex){
|
|
|
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._tryCatch_((function(ex){
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
return _st(self._parseError_parsing_(ex,aString))._signal();
|
|
|
}, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1,2)})}));
|
|
@@ -3049,8 +3049,8 @@ $1=$3;
|
|
|
return $1;
|
|
|
}, function($ctx1) {$ctx1.fill(self,"parse:",{aString:aString,result:result},globals.SmalltalkImage)})},
|
|
|
args: ["aString"],
|
|
|
-source: "parse: aString\x0a\x09| result |\x0a\x09\x0a\x09self \x0a\x09\x09try: [ result := self basicParse: aString ] \x0a\x09\x09catch: [ :ex | (self parseError: ex parsing: aString) signal ].\x0a\x09\x09\x0a\x09^ result\x0a\x09\x09source: aString;\x0a\x09\x09yourself",
|
|
|
-messageSends: ["try:catch:", "basicParse:", "signal", "parseError:parsing:", "source:", "yourself"],
|
|
|
+source: "parse: aString\x0a\x09| result |\x0a\x09\x0a\x09[ result := self basicParse: aString ] \x0a\x09\x09tryCatch: [ :ex | (self parseError: ex parsing: aString) signal ].\x0a\x09\x09\x0a\x09^ result\x0a\x09\x09source: aString;\x0a\x09\x09yourself",
|
|
|
+messageSends: ["tryCatch:", "basicParse:", "signal", "parseError:parsing:", "source:", "yourself"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
globals.SmalltalkImage);
|