Symbols stay symbols when parsing to block

hpi-swa · Jan 4, 2024 · 3ae5ff5 · 3ae5ff5
1 parent a5f8198
commit 3ae5ff5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/packages/Sandblocks-Smalltalk/SBStLiteral.class.st b/packages/Sandblocks-Smalltalk/SBStLiteral.class.st
@@ -195,7 +195,7 @@ SBStLiteral >> wrapInVariantGivenCollection: aCollection [
 				alternatives: (aCollection collect: [:anObject | 
 					SBNamedBlock block: (SBStBlockBody new 
 						statements: {(
-						anObject isString
+						(anObject isString and: anObject isSymbol not) 
 							ifTrue: [SBStString new contents: anObject]
 							ifFalse: [anObject asString parseAsSandblock])}) 
 						named: anObject asString])