- New methods Error >> #signal and Error class >> signal

- Refactored Error class >> signal:

js/Kernel-Exceptions.deploy.js

@@ -1,10 +1,10 @@
 smalltalk.addPackage('Kernel-Exceptions', {});
 smalltalk.addClass('Error', smalltalk.Object, ['messageText'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-unescape('_context'),
+"_context",
 smalltalk.method({
-selector: unescape('context'),
-fn: function (){
+selector: "context",
+fn: function () {
 var self=this;
 return self.context;
 return self;}
@@ -12,10 +12,10 @@ return self;}
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_isSmalltalkError'),
+"_isSmalltalkError",
 smalltalk.method({
-selector: unescape('isSmalltalkError'),
-fn: function (){
+selector: "isSmalltalkError",
+fn: function () {
 var self=this;
 return self.smalltalkError === true;
 return self;}
@@ -23,10 +23,10 @@ return self;}
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_jsStack'),
+"_jsStack",
 smalltalk.method({
-selector: unescape('jsStack'),
-fn: function (){
+selector: "jsStack",
+fn: function () {
 var self=this;
 return self.stack;
 return self;}
@@ -34,10 +34,10 @@ return self;}
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_messageText'),
+"_messageText",
 smalltalk.method({
-selector: unescape('messageText'),
-fn: function (){
+selector: "messageText",
+fn: function () {
 var self=this;
 return self['@messageText'];
 return self;}
@@ -45,10 +45,10 @@ return self;}
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_messageText_'),
+"_messageText_",
 smalltalk.method({
-selector: unescape('messageText%3A'),
-fn: function (aString){
+selector: "messageText:",
+fn: function (aString) {
 var self=this;
 (self['@messageText']=aString);
 return self;}
@@ -56,24 +56,47 @@ return self;}
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_signal'),
+"_signal",
 smalltalk.method({
-selector: unescape('signal'),
-fn: function (){
+selector: "signal",
+fn: function () {
 var self=this;
 self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self);
 return self;}
 }),
 smalltalk.Error);
 
+smalltalk.addMethod(
+"_signal_",
+smalltalk.method({
+selector: "signal:",
+fn: function (aString) {
+var self=this;
+smalltalk.send(self, "_messageText_", [aString]);
+smalltalk.send(self, "_signal", []);
+return self;}
+}),
+smalltalk.Error);
+
+
+smalltalk.addMethod(
+"_signal",
+smalltalk.method({
+selector: "signal",
+fn: function () {
+var self=this;
+return smalltalk.send(smalltalk.send(self, "_new", []), "_signal", []);
+return self;}
+}),
+smalltalk.Error.klass);
 
 smalltalk.addMethod(
-unescape('_signal_'),
+"_signal_",
 smalltalk.method({
-selector: unescape('signal%3A'),
-fn: function (aString){
+selector: "signal:",
+fn: function (aString) {
 var self=this;
-return (function($rec){smalltalk.send($rec, "_messageText_", [aString]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send(self, "_new", []));
+return smalltalk.send(smalltalk.send(self, "_new", []), "_signal_", [aString]);
 return self;}
 }),
 smalltalk.Error.klass);
@@ -81,10 +104,10 @@ smalltalk.Error.klass);
 
 smalltalk.addClass('MessageNotUnderstood', smalltalk.Error, ['message', 'receiver'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-unescape('_message'),
+"_message",
 smalltalk.method({
-selector: unescape('message'),
-fn: function (){
+selector: "message",
+fn: function () {
 var self=this;
 return self['@message'];
 return self;}
@@ -92,10 +115,10 @@ return self;}
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_message_'),
+"_message_",
 smalltalk.method({
-selector: unescape('message%3A'),
-fn: function (aMessage){
+selector: "message:",
+fn: function (aMessage) {
 var self=this;
 (self['@message']=aMessage);
 return self;}
@@ -103,10 +126,10 @@ return self;}
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_messageText'),
+"_messageText",
 smalltalk.method({
-selector: unescape('messageText'),
-fn: function (){
+selector: "messageText",
+fn: function () {
 var self=this;
 return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_receiver", []), "_asString", []), "__comma", [unescape("%20does%20not%20understand%20%23")]), "__comma", [smalltalk.send(smalltalk.send(self, "_message", []), "_selector", [])]);
 return self;}
@@ -114,10 +137,10 @@ return self;}
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_receiver'),
+"_receiver",
 smalltalk.method({
-selector: unescape('receiver'),
-fn: function (){
+selector: "receiver",
+fn: function () {
 var self=this;
 return self['@receiver'];
 return self;}
@@ -125,10 +148,10 @@ return self;}
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_receiver_'),
+"_receiver_",
 smalltalk.method({
-selector: unescape('receiver%3A'),
-fn: function (anObject){
+selector: "receiver:",
+fn: function (anObject) {
 var self=this;
 (self['@receiver']=anObject);
 return self;}
@@ -139,10 +162,10 @@ smalltalk.MessageNotUnderstood);
 
 smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
 smalltalk.addMethod(
-unescape('_handleError_'),
+"_handleError_",
 smalltalk.method({
-selector: unescape('handleError%3A'),
-fn: function (anError){
+selector: "handleError:",
+fn: function (anError) {
 var self=this;
 (($receiver = smalltalk.send(anError, "_context", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logErrorContext_", [smalltalk.send(anError, "_context", [])]);})() : nil;
 smalltalk.send(self, "_logError_", [anError]);
@@ -151,10 +174,10 @@ return self;}
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_log_'),
+"_log_",
 smalltalk.method({
-selector: unescape('log%3A'),
-fn: function (aString){
+selector: "log:",
+fn: function (aString) {
 var self=this;
 smalltalk.send((typeof console == 'undefined' ? nil : console), "_log_", [aString]);
 return self;}
@@ -162,10 +185,10 @@ return self;}
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_logContext_'),
+"_logContext_",
 smalltalk.method({
-selector: unescape('logContext%3A'),
-fn: function (aContext){
+selector: "logContext:",
+fn: function (aContext) {
 var self=this;
 (($receiver = smalltalk.send(aContext, "_home", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logContext_", [smalltalk.send(aContext, "_home", [])]);})() : nil;
 smalltalk.send(self, "_log_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aContext, "_receiver", []), "_asString", []), "__comma", [unescape("%3E%3E")]), "__comma", [smalltalk.send(aContext, "_selector", [])])]);
@@ -174,10 +197,10 @@ return self;}
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_logError_'),
+"_logError_",
 smalltalk.method({
-selector: unescape('logError%3A'),
-fn: function (anError){
+selector: "logError:",
+fn: function (anError) {
 var self=this;
 smalltalk.send(self, "_log_", [smalltalk.send(anError, "_messageText", [])]);
 return self;}
@@ -185,10 +208,10 @@ return self;}
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_logErrorContext_'),
+"_logErrorContext_",
 smalltalk.method({
-selector: unescape('logErrorContext%3A'),
-fn: function (aContext){
+selector: "logErrorContext:",
+fn: function (aContext) {
 var self=this;
 (($receiver = aContext) != nil && $receiver != undefined) ? (function(){return (($receiver = smalltalk.send(aContext, "_home", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logContext_", [smalltalk.send(aContext, "_home", [])]);})() : nil;})() : nil;
 return self;}
@@ -198,10 +221,10 @@ smalltalk.ErrorHandler);
 
 smalltalk.ErrorHandler.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-unescape('_current'),
+"_current",
 smalltalk.method({
-selector: unescape('current'),
-fn: function (){
+selector: "current",
+fn: function () {
 var self=this;
 return (($receiver = self['@current']) == nil || $receiver == undefined) ? (function(){return (self['@current']=smalltalk.send(self, "_new", []));})() : $receiver;
 return self;}
@@ -209,10 +232,10 @@ return self;}
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-unescape('_initialize'),
+"_initialize",
 smalltalk.method({
-selector: unescape('initialize'),
-fn: function (){
+selector: "initialize",
+fn: function () {
 var self=this;
 smalltalk.send(self, "_register", []);
 return self;}
@@ -220,10 +243,10 @@ return self;}
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-unescape('_register'),
+"_register",
 smalltalk.method({
-selector: unescape('register'),
-fn: function (){
+selector: "register",
+fn: function () {
 var self=this;
 smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_setCurrent_", [smalltalk.send(self, "_new", [])]);
 return self;}
@@ -231,10 +254,10 @@ return self;}
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-unescape('_setCurrent_'),
+"_setCurrent_",
 smalltalk.method({
-selector: unescape('setCurrent%3A'),
-fn: function (anHandler){
+selector: "setCurrent:",
+fn: function (anHandler) {
 var self=this;
 (self['@current']=anHandler);
 return self;}

js/Kernel-Exceptions.js

@@ -1,114 +1,147 @@
 smalltalk.addPackage('Kernel-Exceptions', {});
 smalltalk.addClass('Error', smalltalk.Object, ['messageText'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-unescape('_context'),
+"_context",
 smalltalk.method({
-selector: unescape('context'),
+selector: "context",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return self.context;
 return self;},
 args: [],
-source: unescape('context%0A%09%3Creturn%20self.context%3E'),
+source: "context\x0a\x09<return self.context>",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_isSmalltalkError'),
+"_isSmalltalkError",
 smalltalk.method({
-selector: unescape('isSmalltalkError'),
+selector: "isSmalltalkError",
 category: 'testing',
-fn: function (){
+fn: function () {
 var self=this;
 return self.smalltalkError === true;
 return self;},
 args: [],
-source: unescape('isSmalltalkError%0A%09%3Creturn%20self.smalltalkError%20%3D%3D%3D%20true%3E'),
+source: "isSmalltalkError\x0a\x09<return self.smalltalkError === true>",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_jsStack'),
+"_jsStack",
 smalltalk.method({
-selector: unescape('jsStack'),
+selector: "jsStack",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return self.stack;
 return self;},
 args: [],
-source: unescape('jsStack%0A%09%3Creturn%20self.stack%3E'),
+source: "jsStack\x0a\x09<return self.stack>",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_messageText'),
+"_messageText",
 smalltalk.method({
-selector: unescape('messageText'),
+selector: "messageText",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return self['@messageText'];
 return self;},
 args: [],
-source: unescape('messageText%0A%09%5EmessageText'),
+source: "messageText\x0a\x09^messageText",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_messageText_'),
+"_messageText_",
 smalltalk.method({
-selector: unescape('messageText%3A'),
+selector: "messageText:",
 category: 'accessing',
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 (self['@messageText']=aString);
 return self;},
 args: ["aString"],
-source: unescape('messageText%3A%20aString%0A%09messageText%20%3A%3D%20aString'),
+source: "messageText: aString\x0a\x09messageText := aString",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.Error);
 
 smalltalk.addMethod(
-unescape('_signal'),
+"_signal",
 smalltalk.method({
-selector: unescape('signal'),
+selector: "signal",
 category: 'signaling',
-fn: function (){
+fn: function () {
 var self=this;
 self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self);
 return self;},
 args: [],
-source: unescape('signal%0A%09%3Cself.context%20%3D%20smalltalk.getThisContext%28%29%3B%20self.smalltalkError%20%3D%20true%3B%20throw%28self%29%3E'),
+source: "signal\x0a\x09<self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self)>",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.Error);
 
+smalltalk.addMethod(
+"_signal_",
+smalltalk.method({
+selector: "signal:",
+category: 'signaling',
+fn: function (aString) {
+var self=this;
+smalltalk.send(self, "_messageText_", [aString]);
+smalltalk.send(self, "_signal", []);
+return self;},
+args: ["aString"],
+source: "signal: aString\x0a\x09self messageText: aString.\x0a\x09self signal",
+messageSends: ["messageText:", "signal"],
+referencedClasses: []
+}),
+smalltalk.Error);
+
+
+smalltalk.addMethod(
+"_signal",
+smalltalk.method({
+selector: "signal",
+category: 'instance creation',
+fn: function () {
+var self=this;
+return smalltalk.send(smalltalk.send(self, "_new", []), "_signal", []);
+return self;},
+args: [],
+source: "signal\x0a\x09^self new signal",
+messageSends: ["signal", "new"],
+referencedClasses: []
+}),
+smalltalk.Error.klass);
 
 smalltalk.addMethod(
-unescape('_signal_'),
+"_signal_",
 smalltalk.method({
-selector: unescape('signal%3A'),
+selector: "signal:",
 category: 'instance creation',
-fn: function (aString){
+fn: function (aString) {
 var self=this;
-return (function($rec){smalltalk.send($rec, "_messageText_", [aString]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send(self, "_new", []));
+return smalltalk.send(smalltalk.send(self, "_new", []), "_signal_", [aString]);
 return self;},
 args: ["aString"],
-source: unescape('signal%3A%20aString%0A%09%20%20%20%20%5Eself%20new%0A%09%09messageText%3A%20aString%3B%0A%09%09signal'),
-messageSends: ["messageText:", "signal", "new"],
+source: "signal: aString\x0a\x09    ^self new\x0a\x09\x09signal: aString",
+messageSends: ["signal:", "new"],
 referencedClasses: []
 }),
 smalltalk.Error.klass);
@@ -116,80 +149,80 @@ smalltalk.Error.klass);
 
 smalltalk.addClass('MessageNotUnderstood', smalltalk.Error, ['message', 'receiver'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-unescape('_message'),
+"_message",
 smalltalk.method({
-selector: unescape('message'),
+selector: "message",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return self['@message'];
 return self;},
 args: [],
-source: unescape('message%0A%09%5Emessage'),
+source: "message\x0a\x09^message",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_message_'),
+"_message_",
 smalltalk.method({
-selector: unescape('message%3A'),
+selector: "message:",
 category: 'accessing',
-fn: function (aMessage){
+fn: function (aMessage) {
 var self=this;
 (self['@message']=aMessage);
 return self;},
 args: ["aMessage"],
-source: unescape('message%3A%20aMessage%0A%09message%20%3A%3D%20aMessage'),
+source: "message: aMessage\x0a\x09message := aMessage",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_messageText'),
+"_messageText",
 smalltalk.method({
-selector: unescape('messageText'),
+selector: "messageText",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_receiver", []), "_asString", []), "__comma", [unescape("%20does%20not%20understand%20%23")]), "__comma", [smalltalk.send(smalltalk.send(self, "_message", []), "_selector", [])]);
 return self;},
 args: [],
-source: unescape('messageText%0A%09%5Eself%20receiver%20asString%2C%20%27%20does%20not%20understand%20%23%27%2C%20self%20message%20selector'),
-messageSends: [unescape("%2C"), "asString", "receiver", "selector", "message"],
+source: "messageText\x0a\x09^self receiver asString, ' does not understand #', self message selector",
+messageSends: [",", "asString", "receiver", "selector", "message"],
 referencedClasses: []
 }),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_receiver'),
+"_receiver",
 smalltalk.method({
-selector: unescape('receiver'),
+selector: "receiver",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return self['@receiver'];
 return self;},
 args: [],
-source: unescape('receiver%0A%09%5Ereceiver'),
+source: "receiver\x0a\x09^receiver",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-unescape('_receiver_'),
+"_receiver_",
 smalltalk.method({
-selector: unescape('receiver%3A'),
+selector: "receiver:",
 category: 'accessing',
-fn: function (anObject){
+fn: function (anObject) {
 var self=this;
 (self['@receiver']=anObject);
 return self;},
 args: ["anObject"],
-source: unescape('receiver%3A%20anObject%0A%09receiver%20%3A%3D%20anObject'),
+source: "receiver: anObject\x0a\x09receiver := anObject",
 messageSends: [],
 referencedClasses: []
 }),
@@ -199,82 +232,82 @@ smalltalk.MessageNotUnderstood);
 
 smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
 smalltalk.addMethod(
-unescape('_handleError_'),
+"_handleError_",
 smalltalk.method({
-selector: unescape('handleError%3A'),
+selector: "handleError:",
 category: 'error handling',
-fn: function (anError){
+fn: function (anError) {
 var self=this;
 (($receiver = smalltalk.send(anError, "_context", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logErrorContext_", [smalltalk.send(anError, "_context", [])]);})() : nil;
 smalltalk.send(self, "_logError_", [anError]);
 return self;},
 args: ["anError"],
-source: unescape('handleError%3A%20anError%0A%09anError%20context%20ifNotNil%3A%20%5Bself%20logErrorContext%3A%20anError%20context%5D.%0A%09self%20logError%3A%20anError'),
+source: "handleError: anError\x0a\x09anError context ifNotNil: [self logErrorContext: anError context].\x0a\x09self logError: anError",
 messageSends: ["ifNotNil:", "context", "logErrorContext:", "logError:"],
 referencedClasses: []
 }),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_log_'),
+"_log_",
 smalltalk.method({
-selector: unescape('log%3A'),
+selector: "log:",
 category: 'private',
-fn: function (aString){
+fn: function (aString) {
 var self=this;
 smalltalk.send((typeof console == 'undefined' ? nil : console), "_log_", [aString]);
 return self;},
 args: ["aString"],
-source: unescape('log%3A%20aString%0A%09console%20log%3A%20aString'),
+source: "log: aString\x0a\x09console log: aString",
 messageSends: ["log:"],
 referencedClasses: []
 }),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_logContext_'),
+"_logContext_",
 smalltalk.method({
-selector: unescape('logContext%3A'),
+selector: "logContext:",
 category: 'private',
-fn: function (aContext){
+fn: function (aContext) {
 var self=this;
 (($receiver = smalltalk.send(aContext, "_home", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logContext_", [smalltalk.send(aContext, "_home", [])]);})() : nil;
 smalltalk.send(self, "_log_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aContext, "_receiver", []), "_asString", []), "__comma", [unescape("%3E%3E")]), "__comma", [smalltalk.send(aContext, "_selector", [])])]);
 return self;},
 args: ["aContext"],
-source: unescape('logContext%3A%20aContext%0A%09aContext%20home%20ifNotNil%3A%20%5B%0A%09%09self%20logContext%3A%20aContext%20home%5D.%0A%09self%20log%3A%20aContext%20receiver%20asString%2C%20%27%3E%3E%27%2C%20aContext%20selector'),
-messageSends: ["ifNotNil:", "home", "logContext:", "log:", unescape("%2C"), "asString", "receiver", "selector"],
+source: "logContext: aContext\x0a\x09aContext home ifNotNil: [\x0a\x09\x09self logContext: aContext home].\x0a\x09self log: aContext receiver asString, '>>', aContext selector",
+messageSends: ["ifNotNil:", "home", "logContext:", "log:", ",", "asString", "receiver", "selector"],
 referencedClasses: []
 }),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_logError_'),
+"_logError_",
 smalltalk.method({
-selector: unescape('logError%3A'),
+selector: "logError:",
 category: 'private',
-fn: function (anError){
+fn: function (anError) {
 var self=this;
 smalltalk.send(self, "_log_", [smalltalk.send(anError, "_messageText", [])]);
 return self;},
 args: ["anError"],
-source: unescape('logError%3A%20anError%0A%09self%20log%3A%20anError%20messageText'),
+source: "logError: anError\x0a\x09self log: anError messageText",
 messageSends: ["log:", "messageText"],
 referencedClasses: []
 }),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-unescape('_logErrorContext_'),
+"_logErrorContext_",
 smalltalk.method({
-selector: unescape('logErrorContext%3A'),
+selector: "logErrorContext:",
 category: 'private',
-fn: function (aContext){
+fn: function (aContext) {
 var self=this;
 (($receiver = aContext) != nil && $receiver != undefined) ? (function(){return (($receiver = smalltalk.send(aContext, "_home", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logContext_", [smalltalk.send(aContext, "_home", [])]);})() : nil;})() : nil;
 return self;},
 args: ["aContext"],
-source: unescape('logErrorContext%3A%20aContext%0A%09aContext%20ifNotNil%3A%20%5B%0A%09%09aContext%20home%20ifNotNil%3A%20%5B%0A%09%09%09self%20logContext%3A%20aContext%20home%5D%5D'),
+source: "logErrorContext: aContext\x0a\x09aContext ifNotNil: [\x0a\x09\x09aContext home ifNotNil: [\x0a\x09\x09\x09self logContext: aContext home]]",
 messageSends: ["ifNotNil:", "home", "logContext:"],
 referencedClasses: []
 }),
@@ -283,64 +316,64 @@ smalltalk.ErrorHandler);
 
 smalltalk.ErrorHandler.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-unescape('_current'),
+"_current",
 smalltalk.method({
-selector: unescape('current'),
+selector: "current",
 category: 'accessing',
-fn: function (){
+fn: function () {
 var self=this;
 return (($receiver = self['@current']) == nil || $receiver == undefined) ? (function(){return (self['@current']=smalltalk.send(self, "_new", []));})() : $receiver;
 return self;},
 args: [],
-source: unescape('current%0A%09%5Ecurrent%20ifNil%3A%20%5Bcurrent%20%3A%3D%20self%20new%5D'),
+source: "current\x0a\x09^current ifNil: [current := self new]",
 messageSends: ["ifNil:", "new"],
 referencedClasses: []
 }),
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-unescape('_initialize'),
+"_initialize",
 smalltalk.method({
-selector: unescape('initialize'),
+selector: "initialize",
 category: 'initialization',
-fn: function (){
+fn: function () {
 var self=this;
 smalltalk.send(self, "_register", []);
 return self;},
 args: [],
-source: unescape('initialize%0A%09self%20register'),
+source: "initialize\x0a\x09self register",
 messageSends: ["register"],
 referencedClasses: []
 }),
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-unescape('_register'),
+"_register",
 smalltalk.method({
-selector: unescape('register'),
+selector: "register",
 category: 'initialization',
-fn: function (){
+fn: function () {
 var self=this;
 smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_setCurrent_", [smalltalk.send(self, "_new", [])]);
 return self;},
 args: [],
-source: unescape('register%0A%09ErrorHandler%20setCurrent%3A%20self%20new'),
+source: "register\x0a\x09ErrorHandler setCurrent: self new",
 messageSends: ["setCurrent:", "new"],
 referencedClasses: ["ErrorHandler"]
 }),
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-unescape('_setCurrent_'),
+"_setCurrent_",
 smalltalk.method({
-selector: unescape('setCurrent%3A'),
+selector: "setCurrent:",
 category: 'accessing',
-fn: function (anHandler){
+fn: function (anHandler) {
 var self=this;
 (self['@current']=anHandler);
 return self;},
 args: ["anHandler"],
-source: unescape('setCurrent%3A%20anHandler%0A%09current%20%3A%3D%20anHandler'),
+source: "setCurrent: anHandler\x0a\x09current := anHandler",
 messageSends: [],
 referencedClasses: []
 }),

st/Kernel-Exceptions.st

@@ -25,6 +25,11 @@ messageText: aString
 
 signal
 	<self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self)>
+!
+
+signal: aString
+	self messageText: aString.
+	self signal
 ! !
 
 !Error methodsFor: 'testing'!
@@ -35,10 +40,13 @@ isSmalltalkError
 
 !Error class methodsFor: 'instance creation'!
 
+signal
+	^self new signal
+!
+
 signal: aString
 	    ^self new
-		messageText: aString;
-		signal
+		signal: aString
 ! !
 
 Error subclass: #MessageNotUnderstood