From 8d3025d6d174c18205e5ecd69b30b2aefe7d4948 Mon Sep 17 00:00:00 2001
From: adri09070 <97704417+adri09070@users.noreply.github.com>
Date: Fri, 21 Oct 2022 14:04:38 +0200
Subject: [PATCH] skipBlockNode now stepsToFirstInterestingBytecode after
 skipping the block creation

---
 Sindarin/SindarinDebugger.class.st | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/Sindarin/SindarinDebugger.class.st b/Sindarin/SindarinDebugger.class.st
index 3ccec11..4b9d13b 100644
--- a/Sindarin/SindarinDebugger.class.st
+++ b/Sindarin/SindarinDebugger.class.st
@@ -562,7 +562,7 @@ SindarinDebugger >> skip [
 	self node isAssignment ifTrue: [ ^ self skipAssignmentNodeCompletely ].
   self node isMessage ifTrue: [ ^ self skipMessageNode ].
   self node isMethod ifTrue: [ ^ self step ].
-  self node isBlock ifTrue: [ self skipBlockNode ].
+  self node isBlock ifTrue: [ ^ self skipBlockNode ].
 	nextBytecode := self currentBytecode detect: [ :each | 
 		                each offset = self pc ].
 	(self node isReturn or: [ 
@@ -611,11 +611,15 @@ SindarinDebugger >> skipAssignmentNodeWith: replacementValue [
 SindarinDebugger >> skipBlockNode [
 
 	| nextBytecode |
-	nextBytecode := self currentBytecode detect: [ :bytecode | bytecode offset = self pc ].
-	
+	nextBytecode := self currentBytecode detect: [ :bytecode | 
+		                bytecode offset = self pc ].
+
 	self context pc: self pc + nextBytecode bytes size.
-	
-	self context push: nil
+
+	self context push: nil.
+
+	self debugSession stepToFirstInterestingBytecodeIn:
+		self debugSession interruptedProcess
 ]
 
 { #category : #'stepping - skip' }