Metabuilder type registration bug fixes.

ronsaldo · Nov 29, 2023 · 522ad20 · 522ad20
1 parent d39349d
commit 522ad20
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/package-sources/Core.Runtime/BaseBootstrap/ClassMetaBuilder.sysmel b/package-sources/Core.Runtime/BaseBootstrap/ClassMetaBuilder.sysmel
@@ -36,7 +36,7 @@ ClassMetaBuilder
         let: #classValueExpression with: (name
             ifNil: makeClassExpression
             ifNotNil: (if: self isPublic
-                then: ``(public: `,name with: (`,makeClassExpression name: `,name; yourself))
+                then: ``(public: `,name with: `,makeClassExpression)
                 else: ``(let: `,name with: `,makeClassExpression) 
             )
         ).

diff --git a/package-sources/Core.Runtime/BaseBootstrap/EnumMetaBuilder.sysmel b/package-sources/Core.Runtime/BaseBootstrap/EnumMetaBuilder.sysmel
@@ -44,7 +44,7 @@ public class EnumMetaBuilder superclass: TypeMetaBuilder; definition: {
         let enumValueExpression := name
             ifNil: makeEnumExpression
             ifNotNil: (if: self isPublic
-                then: ``(public: `,name with: (`,makeEnumExpression name: `,name; yourself))
+                then: ``(public: `,name with: `,makeEnumExpression)
                 else: ``(let: `,name with: `,makeEnumExpression) 
             ).
 

diff --git a/package-sources/Core.Runtime/BaseBootstrap/StructMetaBuilder.sysmel b/package-sources/Core.Runtime/BaseBootstrap/StructMetaBuilder.sysmel
@@ -34,7 +34,7 @@ public class StructMetaBuilder superclass: TypeMetaBuilder; definition: {
         let structValueExpression := name
             ifNil: makeStructExpression
             ifNotNil: (if: self isPublic
-                then: ``(public: `,name with: (`,makeStructExpression name: `,name; yourself))
+                then: ``(public: `,name with: `,makeStructExpression)
                 else: ``(let: `,name with: `,makeStructExpression) 
             ).
 

diff --git a/package-sources/Core.Runtime/BaseBootstrap/UnionMetaBuilder.sysmel b/package-sources/Core.Runtime/BaseBootstrap/UnionMetaBuilder.sysmel
@@ -21,7 +21,7 @@ public class UnionMetaBuilder superclass: TypeMetaBuilder; definition: {
         let unionValueExpression := name
             ifNil: makeUnionExpression
             ifNotNil: (if: self isPublic
-                then: ``(public: `,name with: (`,makeUnionExpression name: `,name; yourself))
+                then: ``(public: `,name with: `,makeUnionExpression)
                 else: ``(let: `,name with: `,makeUnionExpression) 
             ).