Merge pull request #17 from moosetechnology/fix-multivalue-with-refer…

…ences Fix multi value can be composed of entities and references
moosetechnology · Jan 25, 2021 · 5707bb0 · 5707bb0
2 parents 7cf078c + 8d650e2
commit 5707bb0
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/Fame-ImportExport/FMJSONParser.class.st b/src/Fame-ImportExport/FMJSONParser.class.st
@@ -73,9 +73,13 @@ FMJSONParser >> Entity [
 
 { #category : #tokens }
 FMJSONParser >> MultiEntity [
-	self tMultiOPEN ifFalse: [ ^ self backtrack: self position ].
-	[ 	self Entity. 	self incrementProgressBar. self tPropertySeparator ] whileTrue.
-	self tMultiCLOSE ifFalse: [ ^ self syntaxError ].
+	self tMultiOPEN
+		ifFalse: [ ^ self backtrack: self position ].
+	[ self Entity or: [ self Reference or: [ self Reference2 ] ].
+	self incrementProgressBar.
+	self tPropertySeparator ] whileTrue.
+	self tMultiCLOSE
+		ifFalse: [ ^ self syntaxError ].
 	^ true
 ]