Mercurial > lasercutter

     1 /**

     2  *   Copyright (c) Rich Hickey. All rights reserved.

     3  *   The use and distribution terms for this software are covered by the

     4  *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)

     5  *   which can be found in the file epl-v10.html at the root of this distribution.

     6  *   By using this software in any fashion, you are agreeing to be bound by

     7  * 	 the terms of this license.

     8  *   You must not remove this notice, or any other, from this software.

     9  **/

    10 

    11 /* rich Dec 31, 2008 */

    12 

    13 package clojure.lang;

    14 

    15 public class AReference implements IReference {

    16     private IPersistentMap _meta;

    17 

    18     public AReference() {

    19         this(null);

    20     }

    21 

    22     public AReference(IPersistentMap meta) {

    23         _meta = meta;

    24     }

    25 

    26     synchronized public IPersistentMap meta() {

    27         return _meta;

    28     }

    29 

    30     synchronized public IPersistentMap alterMeta(IFn alter, ISeq args) throws Exception {

    31         _meta = (IPersistentMap) alter.applyTo(new Cons(_meta, args));

    32         return _meta;

    33     }

    34 

    35     synchronized public IPersistentMap resetMeta(IPersistentMap m) {

    36         _meta = m;

    37         return m;

    38     }

    39 

    40 }
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children