Add GemStone64Platform>>#newProcessNamed:evaluating:at:

ba-st · Nov 12, 2024 · 3a5f6c9 · 3a5f6c9
1 parent d1c9ac3
commit 3a5f6c9
Showing 1 changed file with 11 additions and 5 deletions.
diff --git a/source/Buoy-Metaprogramming-GS64-Extensions/GemStone64Platform.class.st b/source/Buoy-Metaprogramming-GS64-Extensions/GemStone64Platform.class.st
@@ -26,16 +26,22 @@ GemStone64Platform >> atInstanceVariableNamed: name on: object put: value [
 GemStone64Platform >> fork: block named: processName at: priority [
 
 	| process |
-	process := block newProcess.
-	process
-		beForked;
-		name: processName;
-		priority: priority.
+	process := self newProcessNamed: processName evaluating: block at: priority.
 	process resume.
 	Processor yield.
 	^process
 ]
 
+{ #category : 'process scheduling' }
+GemStone64Platform >> newProcessNamed: processName evaluating: block at: priority [
+
+  ^ block newProcess
+      beForked;
+      priority: priority;
+      name: processName;
+      yourself
+]
+
 { #category : 'reflection' }
 GemStone64Platform >> globalNamed: aSymbol ifAbsent: absentBlock [