--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modules/jsonEncoder.tp	Sat Mar 28 13:26:03 2015 -0700
@@ -0,0 +1,22 @@
+#{
+	//this module exists to break a circular dependency between the json module
+	//and container types like dictionaries
+	encode <- :value {
+		if: (object does: value understand?: "jsonEncode") {
+			value jsonEncode
+		} else: {
+			toEncode <- #[]
+			if: (object does: value understand?: "serializeFields") {
+				toEncode <- value serializeFields
+			} else: {
+				toEncode <- object propertiesOf: value
+			}
+			parts <- #[]
+			foreach: toEncode :idx field {
+				fieldVal <- object sendMessage: field to: value
+				parts append: (field jsonEncode) . ":" . (encode: fieldVal)
+			}
+			"{" . (parts join: ",") . "}"
+		}
+	}
+}
\ No newline at end of file