small fixes

OpenSmock · Aug 1, 2024 · 2454f0b · 2454f0b
1 parent 916600a
commit 2454f0b
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 7 deletions.
diff --git a/src/Bloc-Serialization/BlElement.extension.st b/src/Bloc-Serialization/BlElement.extension.st
@@ -1,5 +1,11 @@
 Extension { #name : #BlElement }
 
+{ #category : #'*Bloc-Serialization' }
+BlElement >> materializeAsBlElement [
+
+	^ self
+]
+
 { #category : #'*Bloc-Serialization' }
 BlElement >> serialize [
 

diff --git a/src/Bloc-Serialization/BlSerializer.class.st b/src/Bloc-Serialization/BlSerializer.class.st
@@ -18,20 +18,21 @@ BlSerializer class >> allSerializer [
 ]
 
 { #category : #serialization }
-BlSerializer class >> materialize: aString [
+BlSerializer class >> materialize: anObject [
 
 	| serializerClassName serializerClass |
-	aString ifEmpty: [ ^ BlocMaterializationError new signal ].
+	(anObject isKindOf: BlElement) ifTrue: [ ^ anObject ].
+	anObject ifEmpty: [ ^ BlocMaterializationError new signal ].
 
-	aString first = $" ifFalse: [
-		^ self unknownMaterializerFor: aString ].
+	anObject first = $" ifFalse: [
+		^ self unknownMaterializerFor: anObject ].
 
-	serializerClassName := aString lines first allButFirst allButLast.
+	serializerClassName := anObject lines first allButFirst allButLast.
 	serializerClass := Smalltalk environment classNamed:
 		                   serializerClassName.
-	serializerClass ifNil: [ ^ self unknownMaterializerFor: aString ].
+	serializerClass ifNil: [ ^ self unknownMaterializerFor: anObject ].
 
-	^ serializerClass materialize: ('' join: aString lines allButFirst)
+	^ serializerClass materialize: ('' join: anObject lines allButFirst)
 ]
 
 { #category : #initialization }