lasercutter: src/clojure/lang/AReference.java annotate

added clojure source goodness

rev	line source
rlm@10	1 /**
rlm@10	2 * Copyright (c) Rich Hickey. All rights reserved.
rlm@10	3 * The use and distribution terms for this software are covered by the
rlm@10	4 * Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
rlm@10	5 * which can be found in the file epl-v10.html at the root of this distribution.
rlm@10	6 * By using this software in any fashion, you are agreeing to be bound by
rlm@10	7 * the terms of this license.
rlm@10	8 * You must not remove this notice, or any other, from this software.
rlm@10	9 **/
rlm@10	10
rlm@10	11 /* rich Dec 31, 2008 */
rlm@10	12
rlm@10	13 package clojure.lang;
rlm@10	14
rlm@10	15 public class AReference implements IReference {
rlm@10	16 private IPersistentMap _meta;
rlm@10	17
rlm@10	18 public AReference() {
rlm@10	19 this(null);
rlm@10	20 }
rlm@10	21
rlm@10	22 public AReference(IPersistentMap meta) {
rlm@10	23 _meta = meta;
rlm@10	24 }
rlm@10	25
rlm@10	26 synchronized public IPersistentMap meta() {
rlm@10	27 return _meta;
rlm@10	28 }
rlm@10	29
rlm@10	30 synchronized public IPersistentMap alterMeta(IFn alter, ISeq args) throws Exception {
rlm@10	31 _meta = (IPersistentMap) alter.applyTo(new Cons(_meta, args));
rlm@10	32 return _meta;
rlm@10	33 }
rlm@10	34
rlm@10	35 synchronized public IPersistentMap resetMeta(IPersistentMap m) {
rlm@10	36 _meta = m;
rlm@10	37 return m;
rlm@10	38 }
rlm@10	39
rlm@10	40 }

Mercurial > lasercutter