Eliminating duplicate code

Author: Patrik

filetree/Neo-JSON-Core.package/NeoJSONObject.class/class/fromStream..st

@@ -1,17 +1,16 @@
 convenience
 fromStream: readStream
 	"Parse stream as JSON, so that maps become instances of me and lists instances of NeoJSONArray"
+	| jsonReader |
 
-	Smalltalk globals isDictionary
+	jsonReader := Smalltalk globals isDictionary
 		ifTrue: [ "Pharo"
-			^ (NeoJSONReader on: readStream readStream)
-				mapClass: self;
-				listClass: NeoJSONArray;
-				propertyNamesAsSymbols: true;
-				next ]
+			NeoJSONReader on: readStream readStream ]
 		ifFalse: [ "GemStone"
-			^ (NeoJSONReader on: readStream)
-				mapClass: self;
-				listClass: NeoJSONArray;
-				propertyNamesAsSymbols: true;
-				next ]
+			NeoJSONReader on: readStream ].
+
+	^ jsonReader 
+			mapClass: self;
+			listClass: NeoJSONArray;
+			propertyNamesAsSymbols: true;
+			next