[feenkcom/gtoolkit#4072] Use Symbol keys for bindings.

feenkcom · Oct 22, 2024 · 6db5e51 · 6db5e51
1 parent e66fc6b
commit 6db5e51
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/PharoLink/PharoLinkServerConnection.class.st b/src/PharoLink/PharoLinkServerConnection.class.st
@@ -47,15 +47,17 @@ PharoLinkServerConnection >> globals [
 
 { #category : #private }
 PharoLinkServerConnection >> handlEnqueue: aDictionary [
-
 	"Process the supplied statements"
+	| command bindings |
 
-	| command |
+	bindings := Dictionary new.
+	(aDictionary at: #bindings) keysAndValuesDo: [ :key :value |
+		bindings
+			at: key asSymbol
+			put: (self deserialize: value) ].
 	command := PharoLinkEvalCommand
 		           source: (aDictionary at: #statements)
-		           bindings:
-			           ((aDictionary at: #bindings) asDictionary collect: [ 
-				            :obj | self deserialize: obj ])
+		           bindings: bindings
 		           id: (aDictionary at: #commandId).
 	command connection: self.
 	processes add: ([