@Override public IPersistentSet accumulateFreeSymbols(IPersistentSet s) { s=(IPersistentSet) ((IPersistentCollection)s).cons(sym); return s; }
@Override public int count() { return ((IPersistentCollection) map).count(); }
for(ISeq s = sites.seq();s!=null;s = s.next())
for(ISeq s = sites.seq();s!=null;s = s.next())
static public IPersistentCollection conj(IPersistentCollection coll, Object x){ if(coll == null) return new PersistentList(x); return coll.cons(x); }
@Override public boolean equiv(Object o) { return ((IPersistentCollection) map).equiv(o); }
public static PersistentQueue createFromColl(IPersistentMap meta, Seqable coll) { ISeq seq = coll.seq(); int count = -1; if (coll instanceof Counted) { count = ((Counted)coll).count(); } else if (coll instanceof IPersistentCollection) { count = ((IPersistentCollection)coll).count(); } else { count = ((IPersistentCollection)seq).count(); } return new PersistentQueue(meta, count, seq, null); }
@Override public IPersistentCollection cons(Object o) { Map newMap = (Map) ((IPersistentCollection) map).cons(o); return (DynamicObjectInstance) DynamicObject.wrap(newMap, type); }
public Expr parse(C context, Object form){ Object v = RT.second(form); if(v == null) return NIL_EXPR; else if(v == Boolean.TRUE) return TRUE_EXPR; else if(v == Boolean.FALSE) return FALSE_EXPR; if(v instanceof Number) return NumberExpr.parse((Number)v); else if(v instanceof String) return new StringExpr((String) v); else if(v instanceof IPersistentCollection && ((IPersistentCollection) v).count() == 0) return new EmptyExpr(v); else return new ConstantExpr(v); } }
private static void registerVarCallsite(Var v){ if(!VAR_CALLSITES.isBound()) throw new IllegalAccessError("VAR_CALLSITES is not bound"); IPersistentCollection varCallsites = (IPersistentCollection) VAR_CALLSITES.deref(); varCallsites = varCallsites.cons(v); VAR_CALLSITES.set(varCallsites); // return varCallsites.count()-1; }
else if(form instanceof IPersistentCollection && ((IPersistentCollection) form).count() == 0)