X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fscl%2FSCL%2FReflection.scl;h=6b2fd0bcdffac1eac36cf9186a1f28a3fb3d6f13;hp=e32401d502c79aada0291d3c510b91a28b0ffc14;hb=3040e3c36d03bc19749dc221c37008a062621c25;hpb=f238db98a6075e59973c5c391a1946eb7972c7a5

diff --git a/bundles/org.simantics.scl.compiler/scl/SCL/Reflection.scl b/bundles/org.simantics.scl.compiler/scl/SCL/Reflection.scl
index e32401d50..6b2fd0bcd 100644
--- a/bundles/org.simantics.scl.compiler/scl/SCL/Reflection.scl
+++ b/bundles/org.simantics.scl.compiler/scl/SCL/Reflection.scl
@@ -1,6 +1,6 @@
 module {
     export = [possibleUnsafeSclValueByName, unsafeSclValueByName, sclModuleNames, moduleByName,
-              moduleOf, nameOf, createName, valueNamesOf]
+              moduleOfName, nameOfName, createName, valueNamesOf]
 }
 
 include "SCL/ReflectionJava"
@@ -37,18 +37,18 @@ importJava "org.simantics.scl.compiler.common.names.Name" where
     data Name
     
     @JavaName module
-    moduleOf_ :: Name -> String
+    moduleOfName_ :: Name -> String
     @JavaName name
-    nameOf_ :: Name -> String
+    nameOfName_ :: Name -> String
     
     @JavaName create
     createName_ :: String -> String -> Name
 
 instance Show Name where
-    sb <+ n = sb << moduleOf n << "/" << nameOf n
+    sb <+ n = sb << moduleOfName n << "/" << nameOfName n
     
-moduleOf = moduleOf_
-nameOf = nameOf_
+moduleOfName = moduleOfName_
+nameOfName = nameOfName_
 createName = createName_
 valueNamesOf = valueNamesOf_