Pass an evaluation result when resuming from the debugger [feenkcom/g…

…toolkit#3942]
feenkcom · Aug 20, 2024 · 64bdb4a · 64bdb4a
1 parent 3a6566d
commit 64bdb4a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/GToolkit-GemStone-Pharo/GtRsrEvaluatorPromise.class.st b/src/GToolkit-GemStone-Pharo/GtRsrEvaluatorPromise.class.st
@@ -155,7 +155,8 @@ GtRsrEvaluatorPromise >> signalGemStoneDebugger [
 	exception signal.
 
 	^ exception hasDebugResult
-		ifTrue: [ exception debugResult ]
+		ifTrue: [ GtGemstoneEvaluationWithComputedResult new
+			computedResult: exception debugResult ]
 		ifFalse: [ evaluationResult ]
 ]
 
@@ -191,12 +192,12 @@ GtRsrEvaluatorPromise >> wait [
 	self isGtEvaluationException ifTrue: [ 
 		evaluationResult := self signalGemStoneDebugger ].
 
+	gtSession ifNotNil: [ 
+		evaluationResult gtPharoProxyInitializeWithSession: gtSession ].
 	computedResult :=  serializationStrategy
 		ifNil: [ evaluationResult computedResult ]
 		ifNotNil: [ 
 			self deserializeResult: evaluationResult computedResult ].
-	gtSession ifNotNil: [ 
-		computedResult gtPharoProxyInitializeWithSession: gtSession ].
 
 	autoCommit ifTrue: [ 
 		gtSession autoCommitPromise: self ].