Use Package >> commit

js/Helios-Environments.deploy.js

@@ -4,14 +4,14 @@ smalltalk.addMethod(
 "_addInstVarNamed_to_",
 smalltalk.method({
 selector: "addInstVarNamed:to:",
-fn: function (aString,aClass){
+fn: function (aString, aClass) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2;
 $1=_st(_st(aClass)._instanceVariableNames())._copy();
 _st($1)._add_(aString);
 $2=_st($1)._yourself();
 _st(_st(self)._classBuilder())._addSubclassOf_named_instanceVariableNames_package_(_st(aClass)._superclass(),_st(aClass)._name(),$2,_st(_st(aClass)._package())._name());
-return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
 messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass", "name", "add:", "copy", "instanceVariableNames", "yourself", "package", "classBuilder"]}),
 smalltalk.HLEnvironment);
 
@@ -19,10 +19,10 @@ smalltalk.addMethod(
 "_availableClassNames",
 smalltalk.method({
 selector: "availableClassNames",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -30,10 +30,10 @@ smalltalk.addMethod(
 "_availableProtocolsFor_",
 smalltalk.method({
 selector: "availableProtocolsFor:",
-fn: function (aClass){
+fn: function (aClass) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -41,12 +41,12 @@ smalltalk.addMethod(
 "_classBuilder",
 smalltalk.method({
 selector: "classBuilder",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -54,10 +54,10 @@ smalltalk.addMethod(
 "_classNamed_",
 smalltalk.method({
 selector: "classNamed:",
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -65,10 +65,10 @@ smalltalk.addMethod(
 "_commitPackage_",
 smalltalk.method({
 selector: "commitPackage:",
-fn: function (aPackage){
+fn: function (aPackage) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -76,10 +76,10 @@ smalltalk.addMethod(
 "_compileClassComment_for_",
 smalltalk.method({
 selector: "compileClassComment:for:",
-fn: function (aString,aClass){
+fn: function (aString, aClass) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(aClass)._comment_(aString);
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
 messageSends: ["comment:"]}),
 smalltalk.HLEnvironment);
 
@@ -87,10 +87,10 @@ smalltalk.addMethod(
 "_compileClassDefinition_",
 smalltalk.method({
 selector: "compileClassDefinition:",
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._eval_on_(aString,_st((smalltalk.DoIt || DoIt))._new());
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString}, smalltalk.HLEnvironment)});},
 messageSends: ["eval:on:", "new"]}),
 smalltalk.HLEnvironment);
 
@@ -98,10 +98,10 @@ smalltalk.addMethod(
 "_compileMethod_for_protocol_",
 smalltalk.method({
 selector: "compileMethod:for:protocol:",
-fn: function (sourceCode,class_,protocol){
+fn: function (sourceCode, class_, protocol) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(class_)._compile_category_(sourceCode,protocol);
-return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol}, smalltalk.HLEnvironment)});},
 messageSends: ["compile:category:"]}),
 smalltalk.HLEnvironment);
 
@@ -109,12 +109,12 @@ smalltalk.addMethod(
 "_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
-fn: function (someCode,aReceiver){
+fn: function (someCode, aReceiver) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -122,10 +122,10 @@ smalltalk.addMethod(
 "_moveMethod_toClass_",
 smalltalk.method({
 selector: "moveMethod:toClass:",
-fn: function (aMethod,aClassName){
+fn: function (aMethod, aClassName) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -133,10 +133,10 @@ smalltalk.addMethod(
 "_moveMethod_toProtocol_",
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
-fn: function (aMethod,aProtocol){
+fn: function (aMethod, aProtocol) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -144,12 +144,12 @@ smalltalk.addMethod(
 "_packages",
 smalltalk.method({
 selector: "packages",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLEnvironment)});},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -157,10 +157,10 @@ smalltalk.addMethod(
 "_removeMethod_",
 smalltalk.method({
 selector: "removeMethod:",
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._sublcassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)});},
 messageSends: ["sublcassResponsibility"]}),
 smalltalk.HLEnvironment);
 
@@ -171,14 +171,14 @@ smalltalk.addMethod(
 "_availableClassNames",
 smalltalk.method({
 selector: "availableClassNames",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._classes())._collect_((function(each){
 return smalltalk.withContext(function($ctx2) {
return _st(each)._name();
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)});},
 messageSends: ["collect:", "name", "classes", "current"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -186,7 +186,7 @@ smalltalk.addMethod(
 "_availableProtocolsFor_",
 smalltalk.method({
 selector: "availableProtocolsFor:",
-fn: function (aClass){
+fn: function (aClass) {
 var self=this;
 var protocols;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2;
@@ -199,7 +199,7 @@ _st(protocols)._addAll_(_st(self)._availableProtocolsFor_(_st(aClass)._superclas
 };
 $2=_st(_st(protocols)._asSet())._asArray();
 return $2;
-}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)});},
 messageSends: ["protocols", "ifNotNil:", "addAll:", "availableProtocolsFor:", "superclass", "asArray", "asSet"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -207,12 +207,12 @@ smalltalk.addMethod(
 "_classBuilder",
 smalltalk.method({
 selector: "classBuilder",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st((smalltalk.ClassBuilder || ClassBuilder))._new();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLLocalEnvironment)});},
 messageSends: ["new"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -220,7 +220,7 @@ smalltalk.addMethod(
 "_classNamed_",
 smalltalk.method({
 selector: "classNamed:",
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $2,$1;
 $2=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(aString)._asSymbol());
@@ -230,7 +230,7 @@ $1=_st(self)._error_("Invalid class name");
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)});},
 messageSends: ["ifNil:", "error:", "at:", "asSymbol", "current"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -238,18 +238,19 @@ smalltalk.addMethod(
 "_commitPackage_",
 smalltalk.method({
 selector: "commitPackage:",
-fn: function (aPackage){
+fn: function (aPackage) {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aPackage)._heliosCommit();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)})},
-messageSends: ["heliosCommit"]}),
+return smalltalk.withContext(function($ctx1) { 
+_st(aPackage)._commit();
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)});},
+messageSends: ["commit"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
 "_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
-fn: function (aString,aReceiver){
+fn: function (aString, aReceiver) {
 var self=this;
 var compiler;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2;
@@ -266,7 +267,7 @@ $2=_st(compiler)._evaluateExpression_on_(aString,aReceiver);
 return $2;
 }
 catch(e) {if(e===$early)return e[0]; throw e}
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler}, smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler}, smalltalk.HLLocalEnvironment)});},
 messageSends: ["new", "on:do:", "alert:", "messageText", "parseExpression:", "evaluateExpression:on:"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -274,7 +275,7 @@ smalltalk.addMethod(
 "_moveMethod_toClass_",
 smalltalk.method({
 selector: "moveMethod:toClass:",
-fn: function (aMethod,aClassName){
+fn: function (aMethod, aClassName) {
 var self=this;
 var destinationClass;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2,$3;
@@ -292,7 +293,7 @@ return $3;
 };
 _st(destinationClass)._adoptMethod_(aMethod);
 _st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)});},
 messageSends: ["at:", "asSymbol", "current", "ifNil:", "error:", "ifTrue:", "==", "methodClass", "adoptMethod:", "forsakeMethod:"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -300,10 +301,10 @@ smalltalk.addMethod(
 "_moveMethod_toProtocol_",
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
-fn: function (aMethod,aProtocol){
+fn: function (aMethod, aProtocol) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(aMethod)._category_(aProtocol);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)});},
 messageSends: ["category:"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -311,12 +312,12 @@ smalltalk.addMethod(
 "_packages",
 smalltalk.method({
 selector: "packages",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._packages();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLLocalEnvironment)});},
 messageSends: ["packages", "current"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -324,10 +325,10 @@ smalltalk.addMethod(
 "_removeMethod_",
 smalltalk.method({
 selector: "removeMethod:",
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)});},
 messageSends: ["forsakeMethod:", "methodClass"]}),
 smalltalk.HLLocalEnvironment);
 
@@ -338,10 +339,10 @@ smalltalk.addMethod(
 "_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
-fn: function (someCode,aReceiver){
+fn: function (someCode, aReceiver) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._notYetImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLRemoteEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLRemoteEnvironment)});},
 messageSends: ["notYetImplemented"]}),
 smalltalk.HLRemoteEnvironment);
 
@@ -349,9 +350,9 @@ smalltalk.addMethod(
 "_packages",
 smalltalk.method({
 selector: "packages",
-fn: function (){
+fn: function () {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLRemoteEnvironment)})},
+return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLRemoteEnvironment)});},
 messageSends: []}),
 smalltalk.HLRemoteEnvironment);
 
@@ -362,9 +363,9 @@ smalltalk.addMethod(
 "_doesNotUnderstand_",
 smalltalk.method({
 selector: "doesNotUnderstand:",
-fn: function (aMessage){
+fn: function (aMessage) {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage}, smalltalk.HLRemoteObject)})},
+return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage}, smalltalk.HLRemoteObject)});},
 messageSends: []}),
 smalltalk.HLRemoteObject);
 
@@ -372,9 +373,9 @@ smalltalk.addMethod(
 "_inspectOn_",
 smalltalk.method({
 selector: "inspectOn:",
-fn: function (anInspector){
+fn: function (anInspector) {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector}, smalltalk.HLRemoteObject)})},
+return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector}, smalltalk.HLRemoteObject)});},
 messageSends: []}),
 smalltalk.HLRemoteObject);
 
@@ -382,10 +383,10 @@ smalltalk.addMethod(
 "_printString",
 smalltalk.method({
 selector: "printString",
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
return "this is a remote object";
-}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.HLRemoteObject)})},
+}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.HLRemoteObject)});},
 messageSends: []}),
 smalltalk.HLRemoteObject);
 
@@ -395,10 +396,10 @@ smalltalk.addMethod(
 "_adoptMethod_",
 smalltalk.method({
 selector: "adoptMethod:",
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._compile_category_(_st(aMethod)._source(),_st(aMethod)._protocol());
-return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
+return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
 messageSends: ["compile:category:", "source", "protocol"]}),
 smalltalk.Behavior);
 
@@ -406,10 +407,10 @@ smalltalk.addMethod(
 "_forsakeMethod_",
 smalltalk.method({
 selector: "forsakeMethod:",
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._removeCompiledMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
+return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
 messageSends: ["removeCompiledMethod:"]}),
 smalltalk.Behavior);
 

js/Helios-Environments.js

@@ -6,14 +6,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "addInstVarNamed:to:",
 category: 'compiling',
-fn: function (aString,aClass){
+fn: function (aString, aClass) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2;
 $1=_st(_st(aClass)._instanceVariableNames())._copy();
 _st($1)._add_(aString);
 $2=_st($1)._yourself();
 _st(_st(self)._classBuilder())._addSubclassOf_named_instanceVariableNames_package_(_st(aClass)._superclass(),_st(aClass)._name(),$2,_st(_st(aClass)._package())._name());
-return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
 args: ["aString", "aClass"],
 source: "addInstVarNamed: aString to: aClass\x0a\x09self classBuilder\x0a\x09\x09addSubclassOf: aClass superclass \x0a\x09\x09named: aClass name \x0a\x09\x09instanceVariableNames: (aClass instanceVariableNames copy add: aString; yourself)\x0a\x09\x09package: aClass package name",
 messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass", "name", "add:", "copy", "instanceVariableNames", "yourself", "package", "classBuilder"],
@@ -26,10 +26,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "availableClassNames",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)});},
 args: [],
 source: "availableClassNames\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -42,10 +42,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "availableProtocolsFor:",
 category: 'accessing',
-fn: function (aClass){
+fn: function (aClass) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)});},
 args: ["aClass"],
 source: "availableProtocolsFor: aClass\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -58,12 +58,12 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "classBuilder",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLEnvironment)});},
 args: [],
 source: "classBuilder\x0a\x09^ self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -76,10 +76,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "classNamed:",
 category: 'accessing',
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)});},
 args: ["aString"],
 source: "classNamed: aString\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -92,10 +92,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "commitPackage:",
 category: 'actions',
-fn: function (aPackage){
+fn: function (aPackage) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)});},
 args: ["aPackage"],
 source: "commitPackage: aPackage\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -108,10 +108,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "compileClassComment:for:",
 category: 'compiling',
-fn: function (aString,aClass){
+fn: function (aString, aClass) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(aClass)._comment_(aString);
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
 args: ["aString", "aClass"],
 source: "compileClassComment: aString for: aClass\x0a\x09aClass comment: aString",
 messageSends: ["comment:"],
@@ -124,10 +124,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "compileClassDefinition:",
 category: 'compiling',
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._eval_on_(aString,_st((smalltalk.DoIt || DoIt))._new());
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString}, smalltalk.HLEnvironment)});},
 args: ["aString"],
 source: "compileClassDefinition: aString\x0a\x09self eval: aString on: DoIt new",
 messageSends: ["eval:on:", "new"],
@@ -140,10 +140,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "compileMethod:for:protocol:",
 category: 'compiling',
-fn: function (sourceCode,class_,protocol){
+fn: function (sourceCode, class_, protocol) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(class_)._compile_category_(sourceCode,protocol);
-return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol}, smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol}, smalltalk.HLEnvironment)});},
 args: ["sourceCode", "class", "protocol"],
 source: "compileMethod: sourceCode for: class protocol: protocol\x0a\x09class\x0a\x09\x09compile: sourceCode\x0a\x09\x09category: protocol",
 messageSends: ["compile:category:"],
@@ -156,12 +156,12 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "eval:on:",
 category: 'actions',
-fn: function (someCode,aReceiver){
+fn: function (someCode, aReceiver) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLEnvironment)});},
 args: ["someCode", "aReceiver"],
 source: "eval: someCode on: aReceiver\x0a\x0a\x09^ self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -174,10 +174,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "moveMethod:toClass:",
 category: 'actions',
-fn: function (aMethod,aClassName){
+fn: function (aMethod, aClassName) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)});},
 args: ["aMethod", "aClassName"],
 source: "moveMethod: aMethod toClass: aClassName\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -190,10 +190,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
 category: 'actions',
-fn: function (aMethod,aProtocol){
+fn: function (aMethod, aProtocol) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)});},
 args: ["aMethod", "aProtocol"],
 source: "moveMethod: aMethod toProtocol: aProtocol\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -206,12 +206,12 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "packages",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLEnvironment)});},
 args: [],
 source: "packages\x0a\x09^ self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -224,10 +224,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "removeMethod:",
 category: 'actions',
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._sublcassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)});},
 args: ["aMethod"],
 source: "removeMethod: aMethod\x0a\x09self sublcassResponsibility",
 messageSends: ["sublcassResponsibility"],
@@ -243,14 +243,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "availableClassNames",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._classes())._collect_((function(each){
 return smalltalk.withContext(function($ctx2) {
return _st(each)._name();
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)});},
 args: [],
 source: "availableClassNames\x0a\x09^ Smalltalk current classes \x0a\x09\x09collect: [ :each | each name ]",
 messageSends: ["collect:", "name", "classes", "current"],
@@ -263,7 +263,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "availableProtocolsFor:",
 category: 'accessing',
-fn: function (aClass){
+fn: function (aClass) {
 var self=this;
 var protocols;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2;
@@ -276,7 +276,7 @@ _st(protocols)._addAll_(_st(self)._availableProtocolsFor_(_st(aClass)._superclas
 };
 $2=_st(_st(protocols)._asSet())._asArray();
 return $2;
-}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)});},
 args: ["aClass"],
 source: "availableProtocolsFor: aClass\x0a\x09| protocols |\x0a\x09\x0a\x09protocols := aClass protocols.\x0a\x09aClass superclass ifNotNil: [ protocols addAll: (self availableProtocolsFor: aClass superclass) ].\x0a\x09^ protocols asSet asArray",
 messageSends: ["protocols", "ifNotNil:", "addAll:", "availableProtocolsFor:", "superclass", "asArray", "asSet"],
@@ -289,12 +289,12 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "classBuilder",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st((smalltalk.ClassBuilder || ClassBuilder))._new();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLLocalEnvironment)});},
 args: [],
 source: "classBuilder\x0a\x09^ ClassBuilder new",
 messageSends: ["new"],
@@ -307,7 +307,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "classNamed:",
 category: 'accessing',
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $2,$1;
 $2=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(aString)._asSymbol());
@@ -317,7 +317,7 @@ $1=_st(self)._error_("Invalid class name");
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)});},
 args: ["aString"],
 source: "classNamed: aString\x0a\x09^ (Smalltalk current at: aString asSymbol)\x0a\x09\x09ifNil: [ self error: 'Invalid class name' ]",
 messageSends: ["ifNil:", "error:", "at:", "asSymbol", "current"],
@@ -330,13 +330,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "commitPackage:",
 category: 'actions',
-fn: function (aPackage){
+fn: function (aPackage) {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aPackage)._heliosCommit();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(aPackage)._commit();
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)});},
 args: ["aPackage"],
-source: "commitPackage: aPackage\x0a\x09aPackage heliosCommit",
-messageSends: ["heliosCommit"],
+source: "commitPackage: aPackage\x0a\x09aPackage commit",
+messageSends: ["commit"],
 referencedClasses: []
 }),
 smalltalk.HLLocalEnvironment);
@@ -346,7 +347,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "eval:on:",
 category: 'actions',
-fn: function (aString,aReceiver){
+fn: function (aString, aReceiver) {
 var self=this;
 var compiler;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2;
@@ -363,7 +364,7 @@ $2=_st(compiler)._evaluateExpression_on_(aString,aReceiver);
 return $2;
 }
 catch(e) {if(e===$early)return e[0]; throw e}
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler}, smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler}, smalltalk.HLLocalEnvironment)});},
 args: ["aString", "aReceiver"],
 source: "eval: aString on: aReceiver\x0a\x09| compiler  |\x0a\x09compiler := Compiler new.\x0a\x09[ compiler parseExpression: aString ] on: Error do: [ :ex |\x0a\x09\x09^ window alert: ex messageText ].\x0a\x09^ compiler evaluateExpression: aString on: aReceiver",
 messageSends: ["new", "on:do:", "alert:", "messageText", "parseExpression:", "evaluateExpression:on:"],
@@ -376,7 +377,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "moveMethod:toClass:",
 category: 'actions',
-fn: function (aMethod,aClassName){
+fn: function (aMethod, aClassName) {
 var self=this;
 var destinationClass;
 return smalltalk.withContext(function($ctx1) { 
var $1,$2,$3;
@@ -394,7 +395,7 @@ return $3;
 };
 _st(destinationClass)._adoptMethod_(aMethod);
 _st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)});},
 args: ["aMethod", "aClassName"],
 source: "moveMethod: aMethod toClass: aClassName\x0a\x09| destinationClass |\x0a\x09\x0a\x09destinationClass := Smalltalk current at: aClassName asSymbol.\x0a\x09destinationClass ifNil: [ self error: 'Invalid class name' ].\x0a\x09destinationClass == aMethod methodClass ifTrue: [ ^ self ].\x0a\x09\x0a\x09destinationClass adoptMethod: aMethod.\x0a\x09aMethod methodClass forsakeMethod: aMethod.\x0a\x09",
 messageSends: ["at:", "asSymbol", "current", "ifNil:", "error:", "ifTrue:", "==", "methodClass", "adoptMethod:", "forsakeMethod:"],
@@ -407,10 +408,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
 category: 'actions',
-fn: function (aMethod,aProtocol){
+fn: function (aMethod, aProtocol) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(aMethod)._category_(aProtocol);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)});},
 args: ["aMethod", "aProtocol"],
 source: "moveMethod: aMethod toProtocol: aProtocol\x0a\x09aMethod category: aProtocol",
 messageSends: ["category:"],
@@ -423,12 +424,12 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "packages",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;
 $1=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._packages();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLLocalEnvironment)})},
+}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLLocalEnvironment)});},
 args: [],
 source: "packages\x0a\x09^ Smalltalk current packages",
 messageSends: ["packages", "current"],
@@ -441,10 +442,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "removeMethod:",
 category: 'actions',
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)});},
 args: ["aMethod"],
 source: "removeMethod: aMethod\x0a\x09aMethod methodClass forsakeMethod: aMethod",
 messageSends: ["forsakeMethod:", "methodClass"],
@@ -460,10 +461,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "eval:on:",
 category: 'actions',
-fn: function (someCode,aReceiver){
+fn: function (someCode, aReceiver) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._notYetImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLRemoteEnvironment)})},
+return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLRemoteEnvironment)});},
 args: ["someCode", "aReceiver"],
 source: "eval: someCode on: aReceiver\x0a\x0a\x09\x22Note for future self and friends:\x0a    whatever way this compilation happens on the other side, \x0a    it should return a proxy to the remote resulting object\x22\x0a    \x0a    self notYetImplemented",
 messageSends: ["notYetImplemented"],
@@ -476,9 +477,9 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "packages",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLRemoteEnvironment)})},
+return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLRemoteEnvironment)});},
 args: [],
 source: "packages\x0a\x09\x22Answer the remote environment's packages\x22\x0a  \x0a\x09\x22to-do\x22\x0a    \x0a    \x22Note for future self and friends:\x0a    the problem with remote stuff is that the answers shouldn't be expected to be\x0a    received in a syncrhonous fashion. Everything network is asyc, so you *are going to deal with callbacks* here\x22",
 messageSends: [],
@@ -495,9 +496,9 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "doesNotUnderstand:",
 category: 'actions',
-fn: function (aMessage){
+fn: function (aMessage) {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage}, smalltalk.HLRemoteObject)})},
+return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage}, smalltalk.HLRemoteObject)});},
 args: ["aMessage"],
 source: "doesNotUnderstand: aMessage\x0a\x0a\x09\x22to-do\x0a\x0a\x09aham, blah blah\x0a\x0a\x09super doesNotUnderstand: aMessage\x22",
 messageSends: [],
@@ -510,9 +511,9 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "inspectOn:",
 category: 'actions',
-fn: function (anInspector){
+fn: function (anInspector) {
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector}, smalltalk.HLRemoteObject)})},
+return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector}, smalltalk.HLRemoteObject)});},
 args: ["anInspector"],
 source: "inspectOn: anInspector\x0a\x0a\x09\x22to-do\x22\x0a\x0a\x09\x22this is a source of so much fun...\x22\x0a",
 messageSends: [],
@@ -525,10 +526,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "printString",
 category: 'actions',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
return "this is a remote object";
-}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.HLRemoteObject)})},
+}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.HLRemoteObject)});},
 args: [],
 source: "printString\x0a\x09^ 'this is a remote object'",
 messageSends: [],
@@ -543,10 +544,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "adoptMethod:",
 category: '*Helios-Environments',
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._compile_category_(_st(aMethod)._source(),_st(aMethod)._protocol());
-return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
+return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
 args: ["aMethod"],
 source: "adoptMethod: aMethod\x0a\x09self \x0a\x09\x09compile: aMethod source\x0a\x09\x09category: aMethod protocol.",
 messageSends: ["compile:category:", "source", "protocol"],
@@ -559,10 +560,10 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "forsakeMethod:",
 category: '*Helios-Environments',
-fn: function (aMethod){
+fn: function (aMethod) {
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self)._removeCompiledMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
+return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
 args: ["aMethod"],
 source: "forsakeMethod: aMethod\x0a\x09self removeCompiledMethod: aMethod",
 messageSends: ["removeCompiledMethod:"],

st/Helios-Core.st

@@ -683,25 +683,3 @@ canBeOpenAsTab
 	^ true
 ! !
 
-!Package methodsFor: '*Helios-Core'!
-
-ajaxPutAt: aURL data: aString
-	jQuery
-		ajax: aURL 
-		options: #{ 'type' -> 'PUT'.
-					'data' -> aString.
-					'contentType' -> 'text/plain;charset=UTF-8'.
-					'error' -> [:xhr | window 
-						alert: 'Commiting ' , aURL , ' failed with reason: "' , (xhr responseText) , '"'] }
-!
-
-heliosCommit
-
-	{ Exporter -> (self commitPathJs, '/', self name, '.js').
-			StrippedExporter -> (self commitPathJs, '/', self name, '.deploy.js').
-			ChunkExporter -> (self commitPathSt, '/', self name, '.st')
-		} do: [ :commitStrategy || fileContents |
-			fileContents := (commitStrategy key new exportPackage: self name).
-			self ajaxPutAt: commitStrategy value data: fileContents ]
-! !
-

st/Helios-Environments.st

@@ -109,7 +109,7 @@ packages
 !HLLocalEnvironment methodsFor: 'actions'!
 
 commitPackage: aPackage
-	aPackage heliosCommit
+	aPackage commit
 !
 
 eval: aString on: aReceiver