Rowan scripts fixed

ba-st · Nov 24, 2023 · d2b6456 · d2b6456
1 parent 73ebeb4
commit d2b6456
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 13 deletions.
diff --git a/rowan/components/scripts/postLoad.st b/rowan/components/scripts/postLoad.st
@@ -1,20 +1,20 @@
 | symbolDictionary |
 
 symbolDictionary := Rowan image 
-	symbolDictNamed: 'Kepler'
-	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
+	symbolDictNamed: 'KeplerCore'
+	ifAbsent: [Error signal: 'KeplerCore symbol dictionary missing' ].
 
 "Global variables definition"
 symbolDictionary at: #SystemInterfaces put: Namespace new.
 
 "Register Kepler's built-in system interfaces"
 (OrderedCollection new
-	add: InstalledModuleRegistrationSystem;
-	add: EventNotificationSystem;
-	add: TimeSystem;
-	add: FixedCustomerManagementSystem;
-	add: FixedCustomerSystem;
-	add: SampleCustomerSystem;
-	add: SampleProjectSystem;
+	add: #InstalledModuleRegistrationSystem;
+	add: #EventNotificationSystem;
+	add: #TimeSystem;
+	add: #FixedCustomerManagementSystem;
+	add: #FixedCustomerSystem;
+	add: #SampleCustomerSystem;
+	add: #SampleProjectSystem;
 	yourself)
-		do: [:each | each registerInterfaces].
+		do: [:each | (symbolDictionary at: each) registerInterfaces].
diff --git a/rowan/components/scripts/preLoad.st b/rowan/components/scripts/preLoad.st
@@ -1,9 +1,9 @@
 | symbolDictionary |
 symbolDictionary := Rowan image 
-	symbolDictNamed: 'Kepler'
+	symbolDictNamed: 'KeplerCore'
 	ifAbsent: [
-			Rowan image symbolList createDictionaryNamed: 'Kepler' at: Rowan image symbolList size + 1.
-			Rowan image symbolDictNamed: 'Kepler'
+			Rowan image symbolList createDictionaryNamed: 'KeplerCore' at: Rowan image symbolList size + 1.
+			Rowan image symbolDictNamed: 'KeplerCore'
 	].
 
 "Preliminar definition of global variables for source code to compile.