Alias SubscriptOutOfBounds with OffsetError in GS

ba-st · Aug 8, 2023 · 31eeff4 · 31eeff4
1 parent b2f810d
commit 31eeff4
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/rowan/components/Deployment.ston b/rowan/components/Deployment.ston
@@ -1,5 +1,6 @@
 RwSimpleProjectLoadComponentV2 {
   #name : 'Deployment',
+  #preloadDoitName : 'scripts/defineExceptionAliases',
   #projectNames : [ ],
   #componentNames : [ ],
   #packageNames : [

diff --git a/rowan/components/scripts/defineExceptionAliases.st b/rowan/components/scripts/defineExceptionAliases.st
@@ -0,0 +1,8 @@
+| symbolDictionary |
+symbolDictionary := Rowan image 
+	symbolDictNamed:'Buoy'
+	ifAbsent: [
+			Rowan image symbolList createDictionaryNamed: 'Buoy' at: 1.
+			Rowan image symbolDictNamed:'Buoy'
+	].
+symbolDictionary at: #SubscriptOutOfBounds put: OffsetError