changed the parent class of ByteArray from Collection to Array.

enhanced socket writing a bit
This commit is contained in:
hyunghwan.chung 2018-01-28 16:03:03 +00:00
parent cf8daaa8a3
commit 1c60ef5d0b
2 changed files with 3 additions and 12 deletions

View File

@ -225,17 +225,9 @@ class(#character,#final,#limited,#immutable) Symbol(String)
## -------------------------------------------------------------------------------
class(#byte) ByteArray(Collection)
class(#byte) ByteArray(Array)
{
method at: anInteger
{
^self basicAt: anInteger.
}
method at: anInteger put: aValue
{
^self basicAt: anInteger put: aValue.
}
## TODO: is it ok for ByteArray to inherit from Array?
}
## -------------------------------------------------------------------------------

View File

@ -342,7 +342,7 @@ extend Socket
if (self.outputReady)
{
if ((self _writeBytes: bytes) >= 0) { ^self }.
if ((self _writeBytes: bytes offset: offset length: length) >= 0) { ^self }.
self.outputReady := false.
}.
@ -517,7 +517,6 @@ error -> exception
##sck writeBytes: #[ $h, $e, $l, $l, $o, $., $., $., C'\n' ].
sck writeBytes: data offset: 0 length: n.
}.
}
while (true).
].