Fix 2 from MicToCHTML

src/Microdown-HTMLExporter/MicHTMLVisitor.class.st

@@ -480,24 +480,23 @@ MicHTMLVisitor >> visitMonospace: aMonospace [
 ]
 
 { #category : 'visiting - list' }
-MicHTMLVisitor >> visitOrderedList: anUnorderedList [
+MicHTMLVisitor >> visitOrderedList: anOrderedList [
 
 	canvas newLine.
 	canvas tag
 		name: 'ol';
 		with: [ 
 			canvas newLine. 
-			super visitOrderedList: anUnorderedList  ]
+			anOrderedList children do: [ :each | each accept: self ] ]
 ]
 
 { #category : 'visiting - list' }
 MicHTMLVisitor >> visitOrderedListItem: anOrderedListItem [
 
 	canvas tag
 		name: 'li';
-		with: [ super visitOrderedListItem: anOrderedListItem ].
-	canvas newLine.
-
+		with: [ anOrderedListItem children do: [ :each | each accept: self ] ].
+	canvas newLine
 ]
 
 { #category : 'visiting' }
@@ -630,17 +629,16 @@ MicHTMLVisitor >> visitUnorderedList: anUnorderedList [
 		name: 'ul';
 		with: [ 
 			canvas newLine. 
-			super visitUnorderedList: anUnorderedList  ]
+			anUnorderedList children do: [ :each | each accept: self ] ]
 ]
 
 { #category : 'visiting - list' }
 MicHTMLVisitor >> visitUnorderedListItem: anUnorderedListItem [
 
 	canvas tag
 		name: 'li';
-		with: [ super visitUnorderedListItem: anUnorderedListItem ].
-	canvas newLine.
-
+		with: [ anUnorderedListItem children do: [ :each | each accept: self ] ].
+	canvas newLine
 ]
 
 { #category : 'writing' }

src/Microdown-Toc/MicHTMLVisitor.extension.st

@@ -8,19 +8,18 @@ MicHTMLVisitor >> visitTocEntry: aMicTocEntry [
 			canvas tag
 				name: 'li';
 				with: [
-					aMicTocEntry header headerElements do: [ :each |
-						each accept: self ] ] ]
+					aMicTocEntry header children do: [ :each | each accept: self ] ] ]
 		ifFalse: [
 			canvas tag
 				name: 'li';
 				with: [
-					aMicTocEntry header headerElements 
-						do: [ :each | each accept: self ].
+					aMicTocEntry header children do: [ :each | each accept: self ].
 					canvas newLine.
 					canvas tag
 						name: 'ol';
 						with: [
 							canvas newLine.
-							aMicTocEntry children do: [ :each | each accept: self ] ] ] ].
+							aMicTocEntry children do: [ :each | each accept: self ] ].
+					canvas newLine ] ].
 	canvas newLine
 ]

src/Microdown-Toc/MicTocBuilder.class.st

@@ -10,6 +10,11 @@ Class {
 	#package : 'Microdown-Toc'
 }
 
+{ #category : 'visiting' }
+MicTocBuilder >> accept: aVisitor [
+	^ aVisitor visitTocEntry: self
+]
+
 { #category : 'initialization' }
 MicTocBuilder >> initialize [