filled stix_bitatint() a bit

2015-12-26 01:37:33 +00:00
parent 27e0186d43
commit 60b90de172
5 changed files with 21 additions and 8 deletions
--- a/stix/kernel/Stix.st
+++ b/stix/kernel/Stix.st
@ -116,7 +116,8 @@

 	#method bitAt: index
 	{
-		"## index 1 - least significant bit"
+		"## index is 1-based"
+		<primitive: #_integer_bitat>
 		^(self bitShift: (index - 1) negated) bitAnd: 1.
 	}