Merge pull request #498 from eko234/master

Author: candid82

std/json/json_native.go

@@ -36,7 +36,7 @@ func fromObject(obj Object) interface{} {
 		return res
 	case Seqable:
 		s := obj.Seq()
-		var res []interface{}
+		var res []interface{} = []interface{}{}
 		for !s.IsEmpty() {
 			res = append(res, fromObject(s.First()))
 			s = s.Rest()

tests/eval/json.joke

@@ -12,6 +12,7 @@
   (is (= "\"keyword\"" (json/write-string :keyword)))
   (is (= "null" (json/write-string nil)))
   (is (= "\"string\"" (json/write-string "string")))
+  (is (= "[]" (json/write-string [])))
   (is (= "{\"keyword\":\"string\"}" (json/write-string {:keyword "string"})))
   (is (= "[1,true]" (json/write-string [1 true])))
   (is (= "[\"string\",null]" (json/write-string (drop 2 [1 true "string" nil]))))