Fixes an odd regression in the tracing tests

Author: codeZeilen

packages/Babylonian-Tests.package/BPSearchCollection.class/instance/binarySearch. (bpInstrumented).st

@@ -1,19 +1,26 @@
 as yet unclassified
 binarySearch: anElement
+	<layer: #bpInstrumented>
 	<exampleNamed: 'basic' active: true self: 'BPSearchCollection newFrom: (1 to: 15)' with: '15'>
 	<exampleNamed: 'not found' self: #numbersUpTo10 with: '20'>
 	<exampleNamed: 'broken example' with: ''>
 
 	| index low high flag | 
-	low := 1.
+	self bpBlock: 1 enteredAt: thisContext.
+low := 1.
 	high := self size.
 	flag := Object new.
 
-	[high < low] whileFalse: [
-		index := "<bpAssert id: 7345425 for: 'BPSearchCollection>>#binarySearch:>>#''not found''' that: [:result | result < 20]>"high + low // 2"</bpAssert>".	 
-		(anElement < (self at: "<bpProbe id: 3156627>"index"</bpProbe>"))
-			ifTrue: [ high := index - 1 ]
+	self bpBlock: 1 leftWith: ([self bpBlock: 2 enteredAt: thisContext.
+self bpBlock: 2 leftWith: (high < low) at: thisContext] whileFalse: [
+		self bpBlock: 3 enteredAt: thisContext.
+index := (self bpAssertAfter: [high + low // 2] that: [:result | result < 20] forAssertion: 7345425 given: 'BPSearchCollection>>#binarySearch:>>#''not found''' inContext: thisContext).self bpBlock: 3 leftWith: ((anElement < (self at: (self bpTrace: [index] forProbe: 3156627 inContext: thisContext)))
+			ifTrue: [ self bpBlock: 4 enteredAt: thisContext.
+self bpBlock: 4 leftWith: (high := index - 1) at: thisContext ]
 			ifFalse: [
-				anElement > (self at: index)
-					ifTrue: [ "<bpProbe id: 4824443>"low := index + 1 "</bpProbe>"]
-					ifFalse: [ ^ "<bpProbe id: 5475766>"index"</bpProbe>" ]]].
+				self bpBlock: 5 enteredAt: thisContext.
+self bpBlock: 5 leftWith: (anElement > (self at: index)
+					ifTrue: [ self bpBlock: 6 enteredAt: thisContext.
+self bpBlock: 6 leftWith: ((self bpTraceAssignmentOf: [low := index + 1] before: {'low' . low} forProbe: 4824443 inContext: thisContext)) at: thisContext]
+					ifFalse: [ self bpBlock: 7 enteredAt: thisContext.
+^ self bpBlock: 7 leftWith: ((self bpTrace: [index] forProbe: 5475766 inContext: thisContext)) at: thisContext ]) at: thisContext]) at: thisContext]) at: thisContext.

packages/Babylonian-Tests.package/BPSearchCollection.class/instance/binarySearch..st

@@ -3,5 +3,4 @@
 		"compilerClass" : "pre 11/9/2019 15:00",
 		"numbersUpTo10" : "pre 11/9/2019 15:06" },
 	"instance" : {
-		"binarySearch:" : "pre 7/10/2020 15:59",
-		"binarySearch: (bpInstrumented)" : "pre 7/10/2020 15:59" } }
+		"binarySearch:" : "pre 7/10/2020 15:59" } }

packages/Babylonian-Tests.package/BPSearchCollection.class/methodProperties.json

@@ -1,5 +1,6 @@
 example methods
 methodACallingB
+	
 	| a |
-	a := self methodB , ' and a'.
+	a := self methodBInstrumented , ' and a'.
 	^ self bpTrace: [a] forProbe: 10 inContext: thisContext

packages/Babylonian-Tests.package/BPTestManuallyInstrumentedClass.class/instance/methodACallingB.st

@@ -7,7 +7,7 @@
 		"aVariable:" : "pre 5/17/2019 14:10",
 		"actualMethodWithAReceiver" : "pre 7/25/2019 15:40",
 		"methodA" : "pre 7/25/2019 12:04",
-		"methodACallingB" : "pre 7/25/2019 12:04",
+		"methodACallingB" : "pre 10/8/2020 11:58",
 		"methodAWithAssertionUsingExpressionResult" : "pre 11/18/2019 15:58",
 		"methodAWithAssertionWithNonBooleanResult" : "pre 11/18/2019 16:13",
 		"methodAWithExamplesAndAssertionWithGlobalName" : "pre 11/18/2019 13:09",