Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 2bdae3eacf
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (15 sloc) 0.368 kB
Dictionary extend [
jsonWriteOn: aStream [
<category: '*JSON-writing'>
| needComma |
needComma := false.
aStream nextPut: ${.
self associationsDo:
[:assoc |
needComma ifTrue: [aStream nextPut: $,] ifFalse: [needComma := true].
assoc key jsonWriteOn: aStream.
aStream nextPut: $:.
assoc value jsonWriteOn: aStream].
aStream nextPut: $}
]
]
Jump to Line
Something went wrong with that request. Please try again.