fix issues due to strict symbol comparison

pillar-markup · Dec 16, 2024 · 22be458 · 22be458
1 parent c6ed4ba
commit 22be458
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/src/Microdown/MicAbstractCodeBlock.class.st b/src/Microdown/MicAbstractCodeBlock.class.st
@@ -15,7 +15,7 @@ MicAbstractCodeBlock class >> alternateBlockClassFor: line [
 
 	| tag |
 	tag := ((line allButFirst: CodeblockMarkup size) 
-		        copyUpTo: $|) trimBoth.
+		        copyUpTo: $|) trimBoth asSymbol.
 	tag = #script ifTrue: [ ^ MicScriptBlock  ].
 	^ MicScriptBlock allSubclasses detect: [ :each | each tag = tag ] ifNone: [ MicCodeBlock ]
 ]

diff --git a/src/Microdown/MicArgumentList.class.st b/src/Microdown/MicArgumentList.class.st
@@ -116,7 +116,7 @@ MicArgumentList >> printOn: aStream [
 	self hasNonDefaultValue 
 		ifTrue:[
 			aStream nextPutAll: self defaultValue.
-			argKeys := self keys copyWithout: self defaultArg.
+			argKeys := self keys copyWithout: self defaultArg asSymbol.
 			argKeys ifNotEmpty: [aStream nextPut: $|]]
 		ifFalse: [argKeys := self keys].
 	aStream nextPutAll: ((argKeys collect: [:k| k,'=',(self at:k)]) joinUsing: '&')

diff --git a/src/Microdown/MicElement.class.st b/src/Microdown/MicElement.class.st
@@ -36,7 +36,11 @@ MicElement class >> buildMicroDownUsing: aBuilder  withComment: aComment [
 { #category : #utilities }
 MicElement class >> extensionClassFor: tag [
 	"I am a utility method used in extension blocks to find the right subclass to instantiate"
-	^ self allSubclasses detect: [ :each | each tag = tag ] ifNone: [ self ]
+
+	| tagSymbol |
+
+	tagSymbol := tag asSymbol.
+	^ self allSubclasses detect: [ :each | each tag = tagSymbol ] ifNone: [ self ]
 ]
 
 { #category : #visiting }

diff --git a/src/Microdown/MicResourceReference.class.st b/src/Microdown/MicResourceReference.class.st
@@ -40,7 +40,7 @@ MicResourceReference class >> fromUri: aString [
 	uri scheme
 		ifNil: [ ^ MicRelativeResourceReference new relativePath: aString ].
 	refClass := self allSubclasses 
-		detect: [ :rc | rc handlesUriScheme: uri scheme ]
+		detect: [ :rc | rc handlesUriScheme: uri scheme asString ]
 		ifNone: [ MicUnknownResourceUri ].
 	^ refClass newFromUri: uri