Changes to postLoad scripts so that deplyment / development can coexist

ba-st · Nov 27, 2023 · 948dcdc · 948dcdc
1 parent 1a8be31
commit 948dcdc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/rowan/components/scripts/deploymentPostLoad.st b/rowan/components/scripts/deploymentPostLoad.st
@@ -5,7 +5,10 @@ symbolDictionary := Rowan image
 	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
 
 "Global variables definition"
-symbolDictionary at: #SystemInterfaces put: Namespace new.
+symbolDictionary
+	at: #SystemInterfaces
+	ifPresent: [:namespace | namespace ifNil: [symbolDictionary at: #SystemInterfaces put: Namespace new]]
+	ifAbsentPut: [Namespace new "anyway, should never happen because preload script defines it"].
 
 "Register Kepler's built-in system interfaces"
 (OrderedCollection new

diff --git a/rowan/components/scripts/developmentPostLoad.st b/rowan/components/scripts/developmentPostLoad.st
@@ -5,7 +5,10 @@ symbolDictionary := Rowan image
 	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
 
 "Global variables definition"
-symbolDictionary at: #SystemInterfaces put: Namespace new.
+symbolDictionary
+	at: #SystemInterfaces
+	ifPresent: [:namespace | namespace ifNil: [symbolDictionary at: #SystemInterfaces put: Namespace new]]
+	ifAbsentPut: [Namespace new "anyway, should never happen because preload script defines it"].
 
 "Register Kepler's built-in system interfaces"
 (OrderedCollection new