Merge pull request #483 from clementbera/gh-478

fix issue 478

js/Kernel-Objects.deploy.js

@@ -880,6 +880,24 @@ return $1;
 messageSends: ["ifTrue:ifFalse:", "="]}),
 smalltalk.Boolean);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "asBit",
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
+$2=self;
+if(smalltalk.assert($2)){
+$1=(1);
+} else {
+$1=(0);
+};
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"asBit",{},smalltalk.Boolean)})},
+messageSends: ["ifTrue:ifFalse:"]}),
+smalltalk.Boolean);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "asJSON",

js/Kernel-Objects.js

@@ -1222,6 +1222,29 @@ referencedClasses: []
 }),
 smalltalk.Boolean);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "asBit",
+category: 'converting',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
+$2=self;
+if(smalltalk.assert($2)){
+$1=(1);
+} else {
+$1=(0);
+};
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"asBit",{},smalltalk.Boolean)})},
+args: [],
+source: "asBit\x0a\x09^ self ifTrue: [ 1 ] ifFalse: [ 0 ]",
+messageSends: ["ifTrue:ifFalse:"],
+referencedClasses: []
+}),
+smalltalk.Boolean);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "asJSON",

st/Kernel-Objects.st

@@ -471,6 +471,10 @@ or: aBlock
 
 !Boolean methodsFor: 'converting'!
 
+asBit
+	^ self ifTrue: [ 1 ] ifFalse: [ 0 ]
+!
+
 asJSON
 	^self
 !