From f61df38865dea9c0c75060730e20c97ebfa730fe Mon Sep 17 00:00:00 2001
From: =?utf8?q?Hannu=20Niemist=C3=B6?= <hannu.niemisto@semantum.fi>
Date: Tue, 12 Dec 2017 15:56:49 +0200
Subject: [PATCH] Added MMap.clone

refs #7680

Change-Id: I4ed5c23709f5f0fc02937deba9af0f58eca3ea5d
---
 bundles/org.simantics.scl.runtime/scl/MMap.scl | 3 +++
 1 file changed, 3 insertions(+)

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)
-- 
2.47.1