Permalink
Browse files

another fix

  • Loading branch information...
timfel committed Jun 15, 2010
1 parent 19bb482 commit 69b9f0a6abec43de721a4af1208aca2f22e9d99b
Showing with 5 additions and 2 deletions.
  1. +3 −1 Extensions/Association.st
  2. +2 −1 package.xml
@@ -2,7 +2,9 @@ Association extend [
jsonWriteOn: aStream [
<category: '*JSON-writing'>
- self key asString jsonWriteOn: aStream.
+ ((self key isCollection and: [self key isString not])
+ ifTrue: [self key printString]
+ ifFalse: [self key asString]) jsonWriteOn: aStream.
aStream
nextPut: $:;
space.
View
@@ -1,6 +1,7 @@
<package>
<!-- THIS FILE IS GENERATED! EDITS _WILL_ BE LOST ON UPDATE! -->
<name>JSON</name>
+<prereq>Seaside</prereq>
<test>
<filein>JSON/JsonTests.st</filein>
<sunit>JsonTests</sunit>
@@ -36,4 +37,4 @@
<file>Extensions/True.st</file>
<file>Extensions/UndefinedObject.st</file>
<file>Extensions/WriteStream.st</file>
-</package>
+</package>

0 comments on commit 69b9f0a

Please sign in to comment.