Initial port from Pharo
Based on 305ae856d4b551 from https://github.com/svenvc/ston.git
"{ Package: 'stx:goodies/ston' }"
"{ NameSpace: Smalltalk }"
Object subclass:#STONStreamWriter
instanceVariableNames:'writer first'
classVariableNames:''
poolDictionaries:''
category:'STON-Core-Writer'
!
!STONStreamWriter class methodsFor:'instance creation'!
new
"return an initialized instance"
^ self basicNew initialize.
!
on: stonWriter
^ self new
on: stonWriter;
yourself
! !
!STONStreamWriter methodsFor:'initialize-release'!
initialize
super initialize.
first := true
!
on: stonWriter
writer := stonWriter
! !