Generalizing use of #visitBody: to correct a problem with comments in…

… statement blocks
moosetechnology · Aug 31, 2023 · f5b02c5 · f5b02c5
1 parent cfde400
commit f5b02c5
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' }