Mercurial > lasercutter

comparison src/clojure/lang/Cons.java @ 10:ef7dbbd6452c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added clojure source goodness
author Robert McIntyre <rlm@mit.edu>
date Sat, 21 Aug 2010 06:25:44 -0400
parents
children
comparison
equal deleted inserted replaced
9:35cf337adfcf 10:ef7dbbd6452c
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 Mar 25, 2006 11:01:29 AM */
12
13 package clojure.lang;
14
15 import java.io.Serializable;
16
17 final public class Cons extends ASeq implements Serializable {
18
19 private final Object _first;
20 private final ISeq _more;
21
22 public Cons(Object first, ISeq _more){
23 this._first = first;
24 this._more = _more;
25 }
26
27
28 public Cons(IPersistentMap meta, Object _first, ISeq _more){
29 super(meta);
30 this._first = _first;
31 this._more = _more;
32 }
33
34 public Object first(){
35 return _first;
36 }
37
38 public ISeq next(){
39 return more().seq();
40 }
41
42 public ISeq more(){
43 if(_more == null)
44 return PersistentList.EMPTY;
45 return _more;
46 }
47
48 public int count(){
49 return 1 + RT.count(_more);
50 }
51
52 public Cons withMeta(IPersistentMap meta){
53 return new Cons(meta, _first, _more);
54 }
55 }