X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FMMap.scl;h=0f050ca7695d724b3f938a75c8fd71c2837aa2b6;hb=6c99e980d250fb9201aba93be7dcb1f55564dccd;hp=085728c5830d14db6f991dca5a0c4b7a623d69a4;hpb=8cab2461c7f244ac8fabf2c7e61f0753dab68d00;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.runtime/scl/MMap.scl b/bundles/org.simantics.scl.runtime/scl/MMap.scl
index 085728c58..0f050ca76 100644
--- a/bundles/org.simantics.scl.runtime/scl/MMap.scl
+++ b/bundles/org.simantics.scl.runtime/scl/MMap.scl
@@ -62,6 +62,9 @@ importJava "gnu.trove.map.hash.THashMap" where
     @JavaName "<init>"
     createC :: Integer -> <Proc> T a b
 
+    @JavaName "<init>"
+    clone :: T a b -> <Proc> T a b
+
 fromEntryList :: [(a,b)] -> <Proc> T a b
 fromEntryList l = do
     result = createC (Prelude.length l)