lasercutter: src/clojure/lang/SeqEnumeration.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 Mar 3, 2008 */
rlm@10	12
rlm@10	13 package clojure.lang;
rlm@10	14
rlm@10	15 import java.util.Enumeration;
rlm@10	16
rlm@10	17 public class SeqEnumeration implements Enumeration{
rlm@10	18 ISeq seq;
rlm@10	19
rlm@10	20 public SeqEnumeration(ISeq seq){
rlm@10	21 this.seq = seq;
rlm@10	22 }
rlm@10	23
rlm@10	24 public boolean hasMoreElements(){
rlm@10	25 return seq != null;
rlm@10	26 }
rlm@10	27
rlm@10	28 public Object nextElement(){
rlm@10	29 Object ret = RT.first(seq);
rlm@10	30 seq = RT.next(seq);
rlm@10	31 return ret;
rlm@10	32 }
rlm@10	33 }

Mercurial > lasercutter