amber/js/Kernel-Methods.js in resin-0.2.2 vs amber/js/Kernel-Methods.js in resin-0.2.3
- old
+ new
@@ -4,14 +4,15 @@
smalltalk.addMethod(
"_applyTo_arguments_",
smalltalk.method({
selector: "applyTo:arguments:",
category: 'evaluating',
-fn: function (anObject, aCollection){
+fn: function (anObject,aCollection){
var self=this;
return self.apply(anObject, aCollection);
-return self;},
+;
+return self},
args: ["anObject", "aCollection"],
source: "applyTo: anObject arguments: aCollection\x0a\x09<return self.apply(anObject, aCollection)>",
messageSends: [],
referencedClasses: []
}),
@@ -23,11 +24,12 @@
selector: "compiledSource",
category: 'accessing',
fn: function (){
var self=this;
return self.toString();
-return self;},
+;
+return self},
args: [],
source: "compiledSource\x0a\x09<return self.toString()>",
messageSends: [],
referencedClasses: []
}),
@@ -38,17 +40,29 @@
smalltalk.method({
selector: "ensure:",
category: 'evaluating',
fn: function (aBlock){
var self=this;
-var success=nil;
-(success=false);
-return smalltalk.send((function(){smalltalk.send(self, "_value", []);(success=true);return smalltalk.send(aBlock, "_value", []);}), "_on_do_", [(smalltalk.Error || Error), (function(ex){((($receiver = success).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(aBlock, "_value", []);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(aBlock, "_value", []);})]));return smalltalk.send(ex, "_signal", []);})]);
-return self;},
+var $1;
+var success;
+success=false;
+$1=smalltalk.send((function(){
+smalltalk.send(self,"_value",[]);
+success=true;
+success;
+return smalltalk.send(aBlock,"_value",[]);
+}),"_on_do_",[(smalltalk.Error || Error),(function(ex){
+if(! smalltalk.assert(success)){
+smalltalk.send(aBlock,"_value",[]);
+};
+return smalltalk.send(ex,"_signal",[]);
+})]);
+return $1;
+},
args: ["aBlock"],
source: "ensure: aBlock\x0a\x09| success |\x0a\x09success := false.\x0a\x09^[self value. success := true. aBlock value]\x0a\x09\x09on: Error\x0a\x09\x09do: [:ex |\x0a\x09\x09\x09success ifFalse: [aBlock value].\x0a\x09\x09\x09ex signal]",
-messageSends: ["on:do:", "value", "ifFalse:", "signal"],
+messageSends: ["on:do:", "ifFalse:", "value", "signal"],
referencedClasses: ["Error"]
}),
smalltalk.BlockClosure);
smalltalk.addMethod(
@@ -57,11 +71,12 @@
selector: "new",
category: 'evaluating',
fn: function (){
var self=this;
return new self();
-return self;},
+;
+return self},
args: [],
source: "new\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self()>",
messageSends: [],
referencedClasses: []
}),
@@ -73,11 +88,12 @@
selector: "newValue:",
category: 'evaluating',
fn: function (anObject){
var self=this;
return new self(anObject);
-return self;},
+;
+return self},
args: ["anObject"],
source: "newValue: anObject\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self(anObject)>",
messageSends: [],
referencedClasses: []
}),
@@ -86,14 +102,15 @@
smalltalk.addMethod(
"_newValue_value_",
smalltalk.method({
selector: "newValue:value:",
category: 'evaluating',
-fn: function (anObject, anObject2){
+fn: function (anObject,anObject2){
var self=this;
return new self(anObject, anObject2);
-return self;},
+;
+return self},
args: ["anObject", "anObject2"],
source: "newValue: anObject value: anObject2\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self(anObject, anObject2)>",
messageSends: [],
referencedClasses: []
}),
@@ -102,14 +119,15 @@
smalltalk.addMethod(
"_newValue_value_value_",
smalltalk.method({
selector: "newValue:value:value:",
category: 'evaluating',
-fn: function (anObject, anObject2, anObject3){
+fn: function (anObject,anObject2,anObject3){
var self=this;
return new self(anObject, anObject2);
-return self;},
+;
+return self},
args: ["anObject", "anObject2", "anObject3"],
source: "newValue: anObject value: anObject2 value: anObject3\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self(anObject, anObject2)>",
messageSends: [],
referencedClasses: []
}),
@@ -121,11 +139,12 @@
selector: "numArgs",
category: 'accessing',
fn: function (){
var self=this;
return self.length;
-return self;},
+;
+return self},
args: [],
source: "numArgs\x0a\x09<return self.length>",
messageSends: [],
referencedClasses: []
}),
@@ -134,17 +153,26 @@
smalltalk.addMethod(
"_on_do_",
smalltalk.method({
selector: "on:do:",
category: 'error handling',
-fn: function (anErrorClass, aBlock){
+fn: function (anErrorClass,aBlock){
var self=this;
-return smalltalk.send(self, "_try_catch_", [self, (function(error){return ((($receiver = smalltalk.send(error, "_isKindOf_", [anErrorClass])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(aBlock, "_value_", [error]);})() : (function(){return smalltalk.send(error, "_signal", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(aBlock, "_value_", [error]);}), (function(){return smalltalk.send(error, "_signal", []);})]));})]);
-return self;},
+var $2,$1;
+$1=smalltalk.send(self,"_try_catch_",[self,(function(error){
+$2=smalltalk.send(error,"_isKindOf_",[anErrorClass]);
+if(smalltalk.assert($2)){
+return smalltalk.send(aBlock,"_value_",[error]);
+} else {
+return smalltalk.send(error,"_signal",[]);
+};
+})]);
+return $1;
+},
args: ["anErrorClass", "aBlock"],
source: "on: anErrorClass do: aBlock\x0a\x09^self try: self catch: [:error |\x0a\x09 (error isKindOf: anErrorClass) \x0a\x09 ifTrue: [aBlock value: error]\x0a\x09 ifFalse: [error signal]]",
-messageSends: ["try:catch:", "ifTrue:ifFalse:", "isKindOf:", "value:", "signal"],
+messageSends: ["try:catch:", "ifTrue:ifFalse:", "value:", "signal", "isKindOf:"],
referencedClasses: []
}),
smalltalk.BlockClosure);
smalltalk.addMethod(
@@ -152,12 +180,14 @@
smalltalk.method({
selector: "timeToRun",
category: 'evaluating',
fn: function (){
var self=this;
-return smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [self]);
-return self;},
+var $1;
+$1=smalltalk.send((smalltalk.Date || Date),"_millisecondsToRun_",[self]);
+return $1;
+},
args: [],
source: "timeToRun\x0a\x09\x22Answer the number of milliseconds taken to execute this block.\x22\x0a\x0a\x09^ Date millisecondsToRun: self",
messageSends: ["millisecondsToRun:"],
referencedClasses: ["Date"]
}),
@@ -169,11 +199,12 @@
selector: "value",
category: 'evaluating',
fn: function (){
var self=this;
return self();;
-return self;},
+;
+return self},
args: [],
source: "value\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self();>",
messageSends: [],
referencedClasses: []
}),
@@ -185,11 +216,12 @@
selector: "value:",
category: 'evaluating',
fn: function (anArg){
var self=this;
return self(anArg);;
-return self;},
+;
+return self},
args: ["anArg"],
source: "value: anArg\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self(anArg);>",
messageSends: [],
referencedClasses: []
}),
@@ -198,14 +230,15 @@
smalltalk.addMethod(
"_value_value_",
smalltalk.method({
selector: "value:value:",
category: 'evaluating',
-fn: function (firstArg, secondArg){
+fn: function (firstArg,secondArg){
var self=this;
return self(firstArg, secondArg);;
-return self;},
+;
+return self},
args: ["firstArg", "secondArg"],
source: "value: firstArg value: secondArg\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self(firstArg, secondArg);>",
messageSends: [],
referencedClasses: []
}),
@@ -214,14 +247,15 @@
smalltalk.addMethod(
"_value_value_value_",
smalltalk.method({
selector: "value:value:value:",
category: 'evaluating',
-fn: function (firstArg, secondArg, thirdArg){
+fn: function (firstArg,secondArg,thirdArg){
var self=this;
return self(firstArg, secondArg, thirdArg);;
-return self;},
+;
+return self},
args: ["firstArg", "secondArg", "thirdArg"],
source: "value: firstArg value: secondArg value: thirdArg\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self(firstArg, secondArg, thirdArg);>",
messageSends: [],
referencedClasses: []
}),
@@ -233,11 +267,12 @@
selector: "valueWithInterval:",
category: 'timeout/interval',
fn: function (aNumber){
var self=this;
return setInterval(self, aNumber);
-return self;},
+;
+return self},
args: ["aNumber"],
source: "valueWithInterval: aNumber\x0a\x09<return setInterval(self, aNumber)>",
messageSends: [],
referencedClasses: []
}),
@@ -249,11 +284,12 @@
selector: "valueWithPossibleArguments:",
category: 'evaluating',
fn: function (aCollection){
var self=this;
return self.apply(null, aCollection);;
-return self;},
+;
+return self},
args: ["aCollection"],
source: "valueWithPossibleArguments: aCollection\x0a\x09<return self.apply(null, aCollection);>",
messageSends: [],
referencedClasses: []
}),
@@ -265,11 +301,12 @@
selector: "valueWithTimeout:",
category: 'timeout/interval',
fn: function (aNumber){
var self=this;
return setTimeout(self, aNumber);
-return self;},
+;
+return self},
args: ["aNumber"],
source: "valueWithTimeout: aNumber\x0a\x09<return setTimeout(self, aNumber)>",
messageSends: [],
referencedClasses: []
}),
@@ -280,12 +317,13 @@
smalltalk.method({
selector: "whileFalse",
category: 'controlling',
fn: function (){
var self=this;
-smalltalk.send(self, "_whileFalse_", [(function(){return nil;})]);
-return self;},
+smalltalk.send(self,"_whileFalse_",[(function(){
+})]);
+return self},
args: [],
source: "whileFalse\x0a\x09\x22inlined in the Compiler\x22\x0a\x09self whileFalse: []",
messageSends: ["whileFalse:"],
referencedClasses: []
}),
@@ -297,11 +335,12 @@
selector: "whileFalse:",
category: 'controlling',
fn: function (aBlock){
var self=this;
while(!self()) {aBlock()};
-return self;},
+;
+return self},
args: ["aBlock"],
source: "whileFalse: aBlock\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<while(!self()) {aBlock()}>",
messageSends: [],
referencedClasses: []
}),
@@ -312,12 +351,13 @@
smalltalk.method({
selector: "whileTrue",
category: 'controlling',
fn: function (){
var self=this;
-smalltalk.send(self, "_whileTrue_", [(function(){return nil;})]);
-return self;},
+smalltalk.send(self,"_whileTrue_",[(function(){
+})]);
+return self},
args: [],
source: "whileTrue\x0a\x09\x22inlined in the Compiler\x22\x0a\x09self whileTrue: []",
messageSends: ["whileTrue:"],
referencedClasses: []
}),
@@ -329,11 +369,12 @@
selector: "whileTrue:",
category: 'controlling',
fn: function (aBlock){
var self=this;
while(self()) {aBlock()};
-return self;},
+;
+return self},
args: ["aBlock"],
source: "whileTrue: aBlock\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<while(self()) {aBlock()}>",
messageSends: [],
referencedClasses: []
}),
@@ -349,11 +390,12 @@
selector: "arguments",
category: 'accessing',
fn: function (){
var self=this;
return self.args || [];
-return self;},
+;
+return self},
args: [],
source: "arguments\x0a\x09<return self.args || []>",
messageSends: [],
referencedClasses: []
}),
@@ -364,12 +406,19 @@
smalltalk.method({
selector: "category",
category: 'accessing',
fn: function (){
var self=this;
-return (($receiver = smalltalk.send(self, "_basicAt_", ["category"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
-return self;},
+var $2,$1;
+$2=smalltalk.send(self,"_basicAt_",["category"]);
+if(($receiver = $2) == nil || $receiver == undefined){
+$1="";
+} else {
+$1=$2;
+};
+return $1;
+},
args: [],
source: "category\x0a\x09^(self basicAt: 'category') ifNil: ['']",
messageSends: ["ifNil:", "basicAt:"],
referencedClasses: []
}),
@@ -380,12 +429,12 @@
smalltalk.method({
selector: "category:",
category: 'accessing',
fn: function (aString){
var self=this;
-smalltalk.send(self, "_basicAt_put_", ["category", aString]);
-return self;},
+smalltalk.send(self,"_basicAt_put_",["category",aString]);
+return self},
args: ["aString"],
source: "category: aString\x0a\x09self basicAt: 'category' put: aString",
messageSends: ["basicAt:put:"],
referencedClasses: []
}),
@@ -396,12 +445,14 @@
smalltalk.method({
selector: "fn",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(self, "_basicAt_", ["fn"]);
-return self;},
+var $1;
+$1=smalltalk.send(self,"_basicAt_",["fn"]);
+return $1;
+},
args: [],
source: "fn\x0a\x09^self basicAt: 'fn'",
messageSends: ["basicAt:"],
referencedClasses: []
}),
@@ -412,12 +463,12 @@
smalltalk.method({
selector: "fn:",
category: 'accessing',
fn: function (aBlock){
var self=this;
-smalltalk.send(self, "_basicAt_put_", ["fn", aBlock]);
-return self;},
+smalltalk.send(self,"_basicAt_put_",["fn",aBlock]);
+return self},
args: ["aBlock"],
source: "fn: aBlock\x0a\x09self basicAt: 'fn' put: aBlock",
messageSends: ["basicAt:put:"],
referencedClasses: []
}),
@@ -428,12 +479,14 @@
smalltalk.method({
selector: "messageSends",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(self, "_basicAt_", ["messageSends"]);
-return self;},
+var $1;
+$1=smalltalk.send(self,"_basicAt_",["messageSends"]);
+return $1;
+},
args: [],
source: "messageSends\x0a\x09^self basicAt: 'messageSends'",
messageSends: ["basicAt:"],
referencedClasses: []
}),
@@ -444,28 +497,50 @@
smalltalk.method({
selector: "methodClass",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(self, "_basicAt_", ["methodClass"]);
-return self;},
+var $1;
+$1=smalltalk.send(self,"_basicAt_",["methodClass"]);
+return $1;
+},
args: [],
source: "methodClass\x0a\x09^self basicAt: 'methodClass'",
messageSends: ["basicAt:"],
referencedClasses: []
}),
smalltalk.CompiledMethod);
smalltalk.addMethod(
+"_protocol",
+smalltalk.method({
+selector: "protocol",
+category: 'accessing',
+fn: function (){
+var self=this;
+var $1;
+$1=smalltalk.send(self,"_category",[]);
+return $1;
+},
+args: [],
+source: "protocol\x0a\x09^ self category",
+messageSends: ["category"],
+referencedClasses: []
+}),
+smalltalk.CompiledMethod);
+
+smalltalk.addMethod(
"_referencedClasses",
smalltalk.method({
selector: "referencedClasses",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(self, "_basicAt_", ["referencedClasses"]);
-return self;},
+var $1;
+$1=smalltalk.send(self,"_basicAt_",["referencedClasses"]);
+return $1;
+},
args: [],
source: "referencedClasses\x0a\x09^self basicAt: 'referencedClasses'",
messageSends: ["basicAt:"],
referencedClasses: []
}),
@@ -476,12 +551,14 @@
smalltalk.method({
selector: "selector",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(self, "_basicAt_", ["selector"]);
-return self;},
+var $1;
+$1=smalltalk.send(self,"_basicAt_",["selector"]);
+return $1;
+},
args: [],
source: "selector\x0a\x09^self basicAt: 'selector'",
messageSends: ["basicAt:"],
referencedClasses: []
}),
@@ -492,12 +569,12 @@
smalltalk.method({
selector: "selector:",
category: 'accessing',
fn: function (aString){
var self=this;
-smalltalk.send(self, "_basicAt_put_", ["selector", aString]);
-return self;},
+smalltalk.send(self,"_basicAt_put_",["selector",aString]);
+return self},
args: ["aString"],
source: "selector: aString\x0a\x09self basicAt: 'selector' put: aString",
messageSends: ["basicAt:put:"],
referencedClasses: []
}),
@@ -508,12 +585,19 @@
smalltalk.method({
selector: "source",
category: 'accessing',
fn: function (){
var self=this;
-return (($receiver = smalltalk.send(self, "_basicAt_", ["source"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
-return self;},
+var $2,$1;
+$2=smalltalk.send(self,"_basicAt_",["source"]);
+if(($receiver = $2) == nil || $receiver == undefined){
+$1="";
+} else {
+$1=$2;
+};
+return $1;
+},
args: [],
source: "source\x0a\x09^(self basicAt: 'source') ifNil: ['']",
messageSends: ["ifNil:", "basicAt:"],
referencedClasses: []
}),
@@ -524,12 +608,12 @@
smalltalk.method({
selector: "source:",
category: 'accessing',
fn: function (aString){
var self=this;
-smalltalk.send(self, "_basicAt_put_", ["source", aString]);
-return self;},
+smalltalk.send(self,"_basicAt_put_",["source",aString]);
+return self},
args: ["aString"],
source: "source: aString\x0a\x09self basicAt: 'source' put: aString",
messageSends: ["basicAt:put:"],
referencedClasses: []
}),
@@ -544,12 +628,12 @@
smalltalk.method({
selector: "arguments",
category: 'accessing',
fn: function (){
var self=this;
-return self['@arguments'];
-return self;},
+return self["@arguments"];
+},
args: [],
source: "arguments\x0a\x09^arguments",
messageSends: [],
referencedClasses: []
}),
@@ -560,12 +644,12 @@
smalltalk.method({
selector: "arguments:",
category: 'accessing',
fn: function (anArray){
var self=this;
-(self['@arguments']=anArray);
-return self;},
+self["@arguments"]=anArray;
+return self},
args: ["anArray"],
source: "arguments: anArray\x0a\x09arguments := anArray",
messageSends: [],
referencedClasses: []
}),
@@ -576,12 +660,20 @@
smalltalk.method({
selector: "printString",
category: 'printing',
fn: function (){
var self=this;
-return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(aStream){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_printString", [], smalltalk.Message.superclass || nil)]);smalltalk.send($rec, "_nextPutAll_", ["("]);smalltalk.send($rec, "_nextPutAll_", [self['@selector']]);return smalltalk.send($rec, "_nextPutAll_", [")"]);})(aStream);})]);
-return self;},
+var $2,$1;
+$1=smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(aStream){
+smalltalk.send(aStream,"_nextPutAll_",[smalltalk.send(self,"_printString",[],smalltalk.Object)]);
+smalltalk.send(aStream,"_nextPutAll_",["("]);
+smalltalk.send(aStream,"_nextPutAll_",[self["@selector"]]);
+$2=smalltalk.send(aStream,"_nextPutAll_",[")"]);
+return $2;
+})]);
+return $1;
+},
args: [],
source: "printString\x0a\x09^ String streamContents: [:aStream| \x0a \x09\x09\x09\x09aStream \x0a \x09\x09\x09\x09\x09nextPutAll: super printString;\x0a \x09\x09\x09\x09\x09nextPutAll: '(';\x0a \x09\x09\x09\x09\x09nextPutAll: selector;\x0a \x09\x09\x09\x09\x09nextPutAll: ')' \x09\x09\x09\x09]",
messageSends: ["streamContents:", "nextPutAll:", "printString"],
referencedClasses: ["String"]
}),
@@ -592,12 +684,12 @@
smalltalk.method({
selector: "selector",
category: 'accessing',
fn: function (){
var self=this;
-return self['@selector'];
-return self;},
+return self["@selector"];
+},
args: [],
source: "selector\x0a\x09^selector",
messageSends: [],
referencedClasses: []
}),
@@ -608,12 +700,12 @@
smalltalk.method({
selector: "selector:",
category: 'accessing',
fn: function (aString){
var self=this;
-(self['@selector']=aString);
-return self;},
+self["@selector"]=aString;
+return self},
args: ["aString"],
source: "selector: aString\x0a\x09selector := aString",
messageSends: [],
referencedClasses: []
}),
@@ -624,32 +716,40 @@
smalltalk.method({
selector: "sendTo:",
category: 'printing',
fn: function (anObject){
var self=this;
-smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_send_to_arguments_", [smalltalk.send(self, "_selector", []), anObject, smalltalk.send(self, "_arguments", [])]);
-return self;},
+var $1;
+$1=smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]),"_send_to_arguments_",[smalltalk.send(self,"_selector",[]),anObject,smalltalk.send(self,"_arguments",[])]);
+return $1;
+},
args: ["anObject"],
-source: "sendTo: anObject\x0a\x09Smalltalk current send: self selector to: anObject arguments: self arguments",
-messageSends: ["send:to:arguments:", "current", "selector", "arguments"],
+source: "sendTo: anObject\x0a\x09^ Smalltalk current send: self selector to: anObject arguments: self arguments",
+messageSends: ["send:to:arguments:", "selector", "arguments", "current"],
referencedClasses: ["Smalltalk"]
}),
smalltalk.Message);
smalltalk.addMethod(
"_selector_arguments_",
smalltalk.method({
selector: "selector:arguments:",
category: 'instance creation',
-fn: function (aString, anArray){
+fn: function (aString,anArray){
var self=this;
-return (function($rec){smalltalk.send($rec, "_selector_", [aString]);smalltalk.send($rec, "_arguments_", [anArray]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
-return self;},
+var $2,$3,$1;
+$2=smalltalk.send(self,"_new",[]);
+smalltalk.send($2,"_selector_",[aString]);
+smalltalk.send($2,"_arguments_",[anArray]);
+$3=smalltalk.send($2,"_yourself",[]);
+$1=$3;
+return $1;
+},
args: ["aString", "anArray"],
source: "selector: aString arguments: anArray\x0a\x09^self new\x0a\x09\x09selector: aString;\x0a\x09\x09arguments: anArray;\x0a\x09\x09yourself",
-messageSends: ["selector:", "arguments:", "yourself", "new"],
+messageSends: ["selector:", "new", "arguments:", "yourself"],
referencedClasses: []
}),
smalltalk.Message.klass);
@@ -660,15 +760,17 @@
smalltalk.method({
selector: "asString",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_receiver", []), "_class", []), "_printString", []), "__comma", [" >> "]), "__comma", [smalltalk.send(self, "_selector", [])]);
-return self;},
+var $1;
+$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_receiver",[]),"_class",[]),"_printString",[]),"__comma",[" >> "]),"__comma",[smalltalk.send(self,"_selector",[])]);
+return $1;
+},
args: [],
source: "asString\x0a\x09^self receiver class printString, ' >> ', self selector",
-messageSends: [",", "printString", "class", "receiver", "selector"],
+messageSends: [",", "selector", "printString", "class", "receiver"],
referencedClasses: []
}),
smalltalk.MethodContext);
smalltalk.addMethod(
@@ -677,30 +779,50 @@
selector: "home",
category: 'accessing',
fn: function (){
var self=this;
return self.homeContext;
-return self;},
+;
+return self},
args: [],
source: "home\x0a\x09<return self.homeContext>",
messageSends: [],
referencedClasses: []
}),
smalltalk.MethodContext);
smalltalk.addMethod(
+"_pc",
+smalltalk.method({
+selector: "pc",
+category: 'accessing',
+fn: function (){
+var self=this;
+return self.pc;
+;
+return self},
+args: [],
+source: "pc\x0a\x09<return self.pc>",
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.MethodContext);
+
+smalltalk.addMethod(
"_printString",
smalltalk.method({
selector: "printString",
category: 'accessing',
fn: function (){
var self=this;
-return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_printString", [], smalltalk.MethodContext.superclass || nil), "__comma", ["("]), "__comma", [smalltalk.send(self, "_asString", [])]), "__comma", [")"]);
-return self;},
+var $1;
+$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_printString",[],smalltalk.Object),"__comma",["("]),"__comma",[smalltalk.send(self,"_asString",[])]),"__comma",[")"]);
+return $1;
+},
args: [],
source: "printString\x0a\x09^super printString, '(', self asString, ')'",
-messageSends: [",", "printString", "asString"],
+messageSends: [",", "asString", "printString"],
referencedClasses: []
}),
smalltalk.MethodContext);
smalltalk.addMethod(
@@ -709,11 +831,12 @@
selector: "receiver",
category: 'accessing',
fn: function (){
var self=this;
return self.receiver;
-return self;},
+;
+return self},
args: [],
source: "receiver\x0a\x09<return self.receiver>",
messageSends: [],
referencedClasses: []
}),
@@ -725,11 +848,12 @@
selector: "selector",
category: 'accessing',
fn: function (){
var self=this;
return smalltalk.convertSelector(self.selector);
-return self;},
+;
+return self},
args: [],
source: "selector\x0a\x09<return smalltalk.convertSelector(self.selector)>",
messageSends: [],
referencedClasses: []
}),
@@ -741,10 +865,11 @@
selector: "temps",
category: 'accessing',
fn: function (){
var self=this;
return self.temps;
-return self;},
+;
+return self},
args: [],
source: "temps\x0a\x09<return self.temps>",
messageSends: [],
referencedClasses: []
}),