Reduces the recording of process genealogy to processes created during tracing.

codeZeilen · codeZeilen · commit 49582a9d1ff6 · 2023-01-12T09:30:17.000+01:00
diff --git a/packages/Babylonian-Core.package/Process.extension/class/forContext.priority..st b/packages/Babylonian-Core.package/Process.extension/class/forContext.priority..st
@@ -18,7 +18,9 @@ forContext: aContext priority: anInteger
 	activeProcess propagatesDynamicVariables ifTrue: [
 		activeProcess setDynamicVariables do: [:dynamicVariable |
 			newProcess environmentAt: dynamicVariable put: (activeProcess environmentAt: dynamicVariable)]].
-	BPProcessGenealogy newProcess: newProcess descendsFrom: activeProcess.
+	(activeProcess environmentAt: BPActiveTracer ifAbsent: [nil]) ifNotNil: [
+		"we are tracing so record process genealogy"
+		BPProcessGenealogy newProcess: newProcess descendsFrom: activeProcess].
 	
 	"-------------- BP ContextS2 additions end --------------"
 	
diff --git a/packages/Babylonian-Core.package/Process.extension/methodProperties.json b/packages/Babylonian-Core.package/Process.extension/methodProperties.json
@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"forContext:priority:" : "pre 1/12/2023 08:53" },
+		"forContext:priority:" : "pre 1/12/2023 09:29" },
 	"instance" : {
 		"dontPropagateCSLayers" : "pre 1/11/2023 15:44",
 		"dontPropagateDynamicVariables" : "pre 1/11/2023 15:52",

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`{`
`2`	`2`	`"class" : {`
`3`		`- "forContext:priority:" : "pre 1/12/2023 08:53" },`
	`3`	`+ "forContext:priority:" : "pre 1/12/2023 09:29" },`
`4`	`4`	`"instance" : {`
`5`	`5`	`"dontPropagateCSLayers" : "pre 1/11/2023 15:44",`
`6`	`6`	`"dontPropagateDynamicVariables" : "pre 1/11/2023 15:52",`