diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-06-07 19:21:05 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-06-07 19:21:05 +0000 |
| commit | 2023e999fa999c25acbbb212a9197eed6dce956c (patch) | |
| tree | 897d6111f38cd5b8b98318d9f87b0b253ea21803 | |
| parent | 08eac4be73888d842975d08773b1965f1e1ad3e1 (diff) | |
ported PersistentArrayIdentityMap
| -rw-r--r-- | src/cli/runtime/PersistentArrayIdentityMap.cs | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/cli/runtime/PersistentArrayIdentityMap.cs b/src/cli/runtime/PersistentArrayIdentityMap.cs new file mode 100644 index 00000000..4cd4a1af --- /dev/null +++ b/src/cli/runtime/PersistentArrayIdentityMap.cs @@ -0,0 +1,30 @@ +/**
+ * Copyright (c) Rich Hickey. All rights reserved.
+ * The use and distribution terms for this software are covered by the
+ * Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
+ * which can be found in the file CPL.TXT at the root of this distribution.
+ * By using this software in any fashion, you are agreeing to be bound by
+ * the terms of this license.
+ * You must not remove this notice, or any other, from this software.
+ **/
+
+using System;
+ +namespace org.clojure.runtime
+{
+/**
+ * ArrayMap using identity (==) comparison instead of equals
+ */
+public class PersistentArrayIdentityMap : PersistentArrayMap {
+public PersistentArrayIdentityMap() {
+}
+
+public PersistentArrayIdentityMap(Object[] init) :base(init) {
+}
+
+bool equalKey(Object k1, Object k2) {
+ return k1 == k2;
+}
+}
+
+}
\ No newline at end of file |