From 948dcdc33655e254caf774529f0fadd5f0e08445 Mon Sep 17 00:00:00 2001 From: Mariano Saura Date: Mon, 27 Nov 2023 11:36:22 -0300 Subject: [PATCH] Changes to postLoad scripts so that deplyment / development can coexist --- rowan/components/scripts/deploymentPostLoad.st | 5 ++++- rowan/components/scripts/developmentPostLoad.st | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/rowan/components/scripts/deploymentPostLoad.st b/rowan/components/scripts/deploymentPostLoad.st index 348fd66..aaf19a3 100644 --- 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 index fb641b7..344cb43 100644 --- 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