Merge pull request #21 from moosetechnology/bug-comments-in-stmt-blocks

Generalizing use of #visitBody: to correct a problem with comments in…
moosetechnology · Aug 31, 2023 · 340f918 · 340f918
2 parents cfde400 + f5b02c5
commit 340f918
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/FamixFortranCamfortImporter/FortranAbstractJsonVisitor.class.st b/src/FamixFortranCamfortImporter/FortranAbstractJsonVisitor.class.st
@@ -154,8 +154,7 @@ FortranAbstractJsonVisitor >> visitBlock_data: aBlockDataNode [
 
 { #category : #'visiting statement' }
 FortranAbstractJsonVisitor >> visitBlocks: aBlockList [
-	aBlockList ifNil: [ ^#() ].
-	^self visitJsonArray: aBlockList
+	^self visitBody: aBlockList
 ]
 
 { #category : #'visiting statement' }
@@ -1015,7 +1014,7 @@ FortranAbstractJsonVisitor >> visitTarget: aTargetNode [
 
 { #category : #'visiting statement' }
 FortranAbstractJsonVisitor >> visitThenPart: aThenPartNode [
-	^self visitJsonElement: aThenPartNode
+	^self visitBody: aThenPartNode
 ]
 
 { #category : #'visiting statement' }