diff options
Diffstat (limited to 'clojurescript/boot.js')
| -rw-r--r-- | clojurescript/boot.js | 3155 |
1 files changed, 3155 insertions, 0 deletions
diff --git a/clojurescript/boot.js b/clojurescript/boot.js new file mode 100644 index 00000000..0bb23e4a --- /dev/null +++ b/clojurescript/boot.js @@ -0,0 +1,3155 @@ + +//====== +//(in-ns (quote clojure)) +//--- +(function __tmp_fn_2581(){ +return (clojure.in_ns("'clojure"))})(); + +//====== +//(def list (. clojure.lang.PersistentList creator)) +//--- +(function __clojure_fn_2590(){ +return (clojure.JS.def(clojure,"list",clojure.lang.PersistentList.creator))})(); + +//====== +//(def cons (fn* cons [x seq] (. clojure.lang.RT (cons x seq)))) +//--- +(function __clojure_fn_2598(){ +return (clojure.JS.def(clojure,"cons",(function __clojure_fn_2598_cons_2600(x_1,seq_2){ +var cons_0=arguments.callee; +return (clojure.lang.RT.cons(x_1,seq_2))})))})(); + +//====== +//(def conj (fn conj ([coll x] (. clojure.lang.RT (conj coll x))) ([coll x & xs] (if xs (recur (conj coll x) (first xs) (rest xs)) (conj coll x))))) +//--- +(function __clojure_fn_2633(){ +return (clojure.JS.def(clojure,"conj",clojure.JS.variatic(function __clojure_fn_2633_conj_2635(coll_1,x_2){switch(arguments.length){ +case 2:var conj_0=arguments.callee; +return (clojure.lang.RT.conj(coll_1,x_2))} +var _cnt,_rtn,xs_3,conj_0=arguments.callee,xs_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((xs_3)?((_cnt=1,_t0=conj_0(coll_1,x_2),_t1=clojure.first(xs_3),_t2=clojure.rest(xs_3),coll_1=_t0,x_2=_t1,xs_3=_t2)):(conj_0(coll_1,x_2))) +}while(_cnt);return _rtn;})))})(); + +//====== +//(def second (fn second [x] (first (rest x)))) +//--- +(function __clojure_fn_2643(){ +return (clojure.JS.def(clojure,"second",(function __clojure_fn_2643_second_2645(x_1){ +var second_0=arguments.callee; +return (clojure.first(clojure.rest(x_1)))})))})(); + +//====== +//(def ffirst (fn ffirst [x] (first (first x)))) +//--- +(function __clojure_fn_2653(){ +return (clojure.JS.def(clojure,"ffirst",(function __clojure_fn_2653_ffirst_2655(x_1){ +var ffirst_0=arguments.callee; +return (clojure.first(clojure.first(x_1)))})))})(); + +//====== +//(def rfirst (fn rfirst [x] (rest (first x)))) +//--- +(function __clojure_fn_2663(){ +return (clojure.JS.def(clojure,"rfirst",(function __clojure_fn_2663_rfirst_2665(x_1){ +var rfirst_0=arguments.callee; +return (clojure.rest(clojure.first(x_1)))})))})(); + +//====== +//(def frest (fn frest [x] (first (rest x)))) +//--- +(function __clojure_fn_2673(){ +return (clojure.JS.def(clojure,"frest",(function __clojure_fn_2673_frest_2675(x_1){ +var frest_0=arguments.callee; +return (clojure.first(clojure.rest(x_1)))})))})(); + +//====== +//(def rrest (fn rrest [x] (rest (rest x)))) +//--- +(function __clojure_fn_2683(){ +return (clojure.JS.def(clojure,"rrest",(function __clojure_fn_2683_rrest_2685(x_1){ +var rrest_0=arguments.callee; +return (clojure.rest(clojure.rest(x_1)))})))})(); + +//====== +//(def seq? (fn seq? [x] (instance? clojure.lang.ISeq x))) +//--- +(function __clojure_fn_2703(){ +return (clojure.JS.def(clojure,"seq_QMARK_",(function __clojure_fn_2703_seq_QMARK_2705(x_1){ +var seq_QMARK__0=arguments.callee; +return (clojure.instance_QMARK_(clojure.lang.ISeq,x_1))})))})(); + +//====== +//(def string? (fn string? [x] (instance? String x))) +//--- +(function __clojure_fn_2713(){ +return (clojure.JS.def(clojure,"string_QMARK_",(function __clojure_fn_2713_string_QMARK_2715(x_1){ +var string_QMARK__0=arguments.callee; +return (clojure.instance_QMARK_(java.lang.String,x_1))})))})(); + +//====== +//(def map? (fn map? [x] (instance? clojure.lang.IPersistentMap x))) +//--- +(function __clojure_fn_2723(){ +return (clojure.JS.def(clojure,"map_QMARK_",(function __clojure_fn_2723_map_QMARK_2725(x_1){ +var map_QMARK__0=arguments.callee; +return (clojure.instance_QMARK_(clojure.lang.IPersistentMap,x_1))})))})(); + +//====== +//(def vector? (fn vector? [x] (instance? clojure.lang.IPersistentVector x))) +//--- +(function __clojure_fn_2733(){ +return (clojure.JS.def(clojure,"vector_QMARK_",(function __clojure_fn_2733_vector_QMARK_2735(x_1){ +var vector_QMARK__0=arguments.callee; +return (clojure.instance_QMARK_(clojure.lang.IPersistentVector,x_1))})))})(); + +//====== +//(def sigs (fn [fdecl] (if (seq? (first fdecl)) (loop [ret [] fdecl fdecl] (if fdecl (recur (conj ret (first (first fdecl))) (rest fdecl)) (seq ret))) (list (first fdecl))))) +//--- +(function __clojure_fn_2744(){ +return (clojure.JS.def(clojure,"sigs",(function __clojure_fn_2744_sigs_2746(fdecl_1){ +var ret_2,fdecl_3; +return (((clojure.seq_QMARK_(clojure.first(fdecl_1)))?(((function __loop(){var _rtn,_cnt;(ret_2=clojure.lang.PersistentVector.EMPTY), +(fdecl_3=fdecl_1);do{_cnt=0; +_rtn=((fdecl_3)?((_cnt=1,_t0=clojure.conj(ret_2,clojure.first(clojure.first(fdecl_3))),_t1=clojure.rest(fdecl_3),ret_2=_t0,fdecl_3=_t1)):(clojure.seq(ret_2)))}while(_cnt);return _rtn;})())):(clojure.list(clojure.first(fdecl_1)))))})))})(); + +//====== +//(def meta (fn meta [x] (if (instance? clojure.lang.IObj x) (. x (meta))))) +//--- +(function __clojure_fn_2760(){ +return (clojure.JS.def(clojure,"meta",(function __clojure_fn_2760_meta_2762(x_1){ +var meta_0=arguments.callee; +return (((clojure.instance_QMARK_(clojure.lang.IObj,x_1))?((x_1).meta()):(null)))})))})(); + +//====== +//(def with-meta (fn with-meta [x m] (. x (withMeta m)))) +//--- +(function __clojure_fn_2770(){ +return (clojure.JS.def(clojure,"with_meta",(function __clojure_fn_2770_with_meta_2772(x_1,m_2){ +var with_meta_0=arguments.callee; +return ((x_1).withMeta(m_2))})))})(); + +//====== +//(def last (fn last [s] (if (rest s) (recur (rest s)) (first s)))) +//--- +(function __clojure_fn_2780(){ +return (clojure.JS.def(clojure,"last",(function __clojure_fn_2780_last_2782(s_1){ +var _cnt,_rtn,last_0=arguments.callee; +do{_cnt=0;_rtn=((clojure.rest(s_1))?((_cnt=1,_t0=clojure.rest(s_1),s_1=_t0)):(clojure.first(s_1))) +}while(_cnt);return _rtn;})))})(); + +//====== +//(def butlast (fn butlast [s] (loop [ret [] s s] (if (rest s) (recur (conj ret (first s)) (rest s)) (seq ret))))) +//--- +(function __clojure_fn_2790(){ +return (clojure.JS.def(clojure,"butlast",(function __clojure_fn_2790_butlast_2792(s_1){ +var s_3,ret_2,butlast_0=arguments.callee; +return (((function __loop(){var _rtn,_cnt;(ret_2=clojure.lang.PersistentVector.EMPTY), +(s_3=s_1);do{_cnt=0; +_rtn=((clojure.rest(s_3))?((_cnt=1,_t0=clojure.conj(ret_2,clojure.first(s_3)),_t1=clojure.rest(s_3),ret_2=_t0,s_3=_t1)):(clojure.seq(ret_2)))}while(_cnt);return _rtn;})()))})))})(); + +//====== +//(defn cast "Throws a ClassCastException if x is not a c, else returns x." [c x] (. c (cast x))) +//--- +(function __clojure_fn_2809(){ +return (clojure.JS.def(clojure,"cast",(function __clojure_fn_2809_cast_2811(c_1,x_2){ +return ((c_1).cast(x_2))})))})(); + +//====== +//(defn to-array "Returns an array of Objects containing the contents of coll, which\n can be any Collection. Maps to java.util.Collection.toArray()." [coll] (. clojure.lang.RT (toArray coll))) +//--- +(function __clojure_fn_2821(){ +return (clojure.JS.def(clojure,"to_array",(function __clojure_fn_2821_to_array_2823(coll_1){ +return (clojure.lang.RT.toArray(coll_1))})))})(); + +//====== +//(defn vector "Creates a new vector containing the args." ([] []) ([& args] (. clojure.lang.LazilyPersistentVector (create args)))) +//--- +(function __clojure_fn_2834(){ +return (clojure.JS.def(clojure,"vector",clojure.JS.variatic(function __clojure_fn_2834_vector_2836(){switch(arguments.length){ +case 0:return (clojure.lang.PersistentVector.EMPTY)} +var args_1,args_1=clojure.JS.rest_args(this,arguments,0); +return (clojure.lang.LazilyPersistentVector.create(args_1))})))})(); + +//====== +//(defn vec "Creates a new vector containing the contents of coll." ([coll] (. clojure.lang.LazilyPersistentVector (createOwning (to-array coll))))) +//--- +(function __clojure_fn_2847(){ +return (clojure.JS.def(clojure,"vec",(function __clojure_fn_2847_vec_2849(coll_1){ +return (clojure.lang.LazilyPersistentVector.createOwning(clojure.to_array(coll_1)))})))})(); + +//====== +//(defn hash-set "Returns a new hash set with supplied keys." ([] #{}) ([& keys] (. clojure.lang.PersistentHashSet (create keys)))) +//--- +(function __clojure_fn_2867(){ +return (clojure.JS.def(clojure,"hash_set",clojure.JS.variatic(function __clojure_fn_2867_hash_set_2869(){switch(arguments.length){ +case 0:return (clojure.lang.PersistentHashSet.EMPTY)} +var keys_1,keys_1=clojure.JS.rest_args(this,arguments,0); +return (clojure.lang.PersistentHashSet.create(keys_1))})))})(); + +//====== +//(defn sorted-map "keyval => key val\n Returns a new sorted map with supplied mappings." ([& keyvals] (. clojure.lang.PersistentTreeMap (create keyvals)))) +//--- +(function __clojure_fn_2880(){ +return (clojure.JS.def(clojure,"sorted_map",clojure.JS.variatic(function __clojure_fn_2880_sorted_map_2882(){ +var keyvals_1,keyvals_1=clojure.JS.rest_args(this,arguments,0); +return (clojure.lang.PersistentTreeMap.create(keyvals_1))})))})(); + +//====== +//(defn sorted-set "Returns a new sorted set with supplied keys." ([& keys] (. clojure.lang.PersistentTreeSet (create keys)))) +//--- +(function __clojure_fn_2892(){ +return (clojure.JS.def(clojure,"sorted_set",clojure.JS.variatic(function __clojure_fn_2892_sorted_set_2894(){ +var keys_1,keys_1=clojure.JS.rest_args(this,arguments,0); +return (clojure.lang.PersistentTreeSet.create(keys_1))})))})(); + +//====== +//(defn sorted-map-by "keyval => key val\n Returns a new sorted map with supplied mappings, using the supplied comparator." ([comparator & keyvals] (. clojure.lang.PersistentTreeMap (create comparator keyvals)))) +//--- +(function __clojure_fn_2904(){ +return (clojure.JS.def(clojure,"sorted_map_by",clojure.JS.variatic(function __clojure_fn_2904_sorted_map_by_2906(comparator_1){ +var keyvals_2,keyvals_2=clojure.JS.rest_args(this,arguments,1); +return (clojure.lang.PersistentTreeMap.create(comparator_1,keyvals_2))})))})(); + +//====== +//(defn nil? "Returns true if x is nil, false otherwise." {:tag Boolean} [x] (identical? x nil)) +//--- +(function __clojure_fn_2937(){ +return (clojure.JS.def(clojure,"nil_QMARK_",(function __clojure_fn_2937_nil_QMARK_2939(x_1){ +return (clojure.identical_QMARK_(x_1,null))})))})(); + +//====== +//(defn false? "Returns true if x is the value false, false otherwise." {:tag Boolean} [x] (identical? x false)) +//--- +(function __clojure_fn_2949(){ +return (clojure.JS.def(clojure,"false_QMARK_",(function __clojure_fn_2949_false_QMARK_2951(x_1){ +return (clojure.identical_QMARK_(x_1,false))})))})(); + +//====== +//(defn true? "Returns true if x is the value true, false otherwise." {:tag Boolean} [x] (identical? x true)) +//--- +(function __clojure_fn_2961(){ +return (clojure.JS.def(clojure,"true_QMARK_",(function __clojure_fn_2961_true_QMARK_2963(x_1){ +return (clojure.identical_QMARK_(x_1,true))})))})(); + +//====== +//(defn not "Returns true if x is logical false, false otherwise." {:tag Boolean} [x] (if x false true)) +//--- +(function __clojure_fn_2973(){ +return (clojure.JS.def(clojure,"not",(function __clojure_fn_2973_not_2975(x_1){ +return (((x_1)?(false):(true)))})))})(); + +//====== +//(defn str "With no args, returns the empty string. With one arg x, returns\n x.toString(). (str nil) returns the empty string. With more than\n one arg, returns the concatenation of the str values of the args." {:tag String} ([] "") ([x] (if (nil? x) "" (. x (toString)))) ([x & ys] (loop [sb (new StringBuilder (str x)) more ys] (if more (recur (. sb (append (str (first more)))) (rest more)) (str sb))))) +//--- +(function __clojure_fn_2987(){ +return (clojure.JS.def(clojure,"str",clojure.JS.variatic(function __clojure_fn_2987_str_2989(x_1){switch(arguments.length){ +case 1:return (((clojure.nil_QMARK_(x_1))?(""):((x_1).toString()))) +case 0:return ("")} +var more_4,sb_3,ys_2,ys_2=clojure.JS.rest_args(this,arguments,1); +return (((function __loop(){var _rtn,_cnt;(sb_3=(new java.lang.StringBuilder(clojure.str(x_1)))), +(more_4=ys_2);do{_cnt=0; +_rtn=((more_4)?((_cnt=1,_t0=(sb_3).append(clojure.str(clojure.first(more_4))),_t1=clojure.rest(more_4),sb_3=_t0,more_4=_t1)):(clojure.str(sb_3)))}while(_cnt);return _rtn;})()))})))})(); + +//====== +//(defn symbol "Returns a Symbol with the given namespace and name." ([name] (. clojure.lang.Symbol (intern name))) ([ns name] (. clojure.lang.Symbol (intern ns name)))) +//--- +(function __clojure_fn_3002(){ +return (clojure.JS.def(clojure,"symbol",(function __clojure_fn_3002_symbol_3004(ns_1,name_2){switch(arguments.length){ +case 1:var name_1=arguments[0]; +return (clojure.lang.Symbol.intern(name_1))} +return (clojure.lang.Symbol.intern(ns_1,name_2))})))})(); + +//====== +//(defn keyword "Returns a Keyword with the given namespace and name. Do not use :\n in the keyword strings, it will be added automatically." ([name] (. clojure.lang.Keyword (intern nil name))) ([ns name] (. clojure.lang.Keyword (intern ns name)))) +//--- +(function __clojure_fn_3016(){ +return (clojure.JS.def(clojure,"keyword",(function __clojure_fn_3016_keyword_3018(ns_1,name_2){switch(arguments.length){ +case 1:var name_1=arguments[0]; +return (clojure.lang.Keyword.intern(null,name_1))} +return (clojure.lang.Keyword.intern(ns_1,name_2))})))})(); + +//====== +//(defn gensym "Returns a new symbol with a unique name. If a prefix string is\n supplied, the name is prefix# where # is some unique number. If\n prefix is not supplied, the prefix is 'G'." ([] (gensym "G__")) ([prefix-string] (. clojure.lang.Symbol (intern (str prefix-string (str (. clojure.lang.RT (nextID)))))))) +//--- +(function __clojure_fn_3030(){ +return (clojure.JS.def(clojure,"gensym",(function __clojure_fn_3030_gensym_3032(prefix_string_1){switch(arguments.length){ +case 0:return (clojure.gensym("G__"))} +return (clojure.lang.Symbol.intern(clojure.str(prefix_string_1,clojure.str(clojure.lang.RT.nextID()))))})))})(); + +//====== +//(defn spread {:private true} [arglist] (cond (nil? arglist) nil (nil? (rest arglist)) (seq (first arglist)) :else (cons (first arglist) (spread (rest arglist))))) +//--- +(function __clojure_fn_3049(){ +return (clojure.JS.def(clojure,"spread",(function __clojure_fn_3049_spread_3051(arglist_1){ +return (((clojure.nil_QMARK_(arglist_1))?(null):(((clojure.nil_QMARK_(clojure.rest(arglist_1)))?(clojure.seq(clojure.first(arglist_1))):(((":else")?(clojure.cons(clojure.first(arglist_1),clojure.spread(clojure.rest(arglist_1)))):(null)))))))})))})(); + +//====== +//(defn list* "Creates a new list containing the item prepended to more." [item & more] (spread (cons item more))) +//--- +(function __clojure_fn_3067(){ +return (clojure.JS.def(clojure,"list_STAR_",clojure.JS.variatic(function __clojure_fn_3067_list_STAR_3069(item_1){ +var more_2,more_2=clojure.JS.rest_args(this,arguments,1); +return (clojure.spread(clojure.cons(item_1,more_2)))})))})(); + +//====== +//(defn delay? "returns true if x is a Delay created with delay" [x] (instance? clojure.lang.Delay x)) +//--- +(function __clojure_fn_3085(){ +return (clojure.JS.def(clojure,"delay_QMARK_",(function __clojure_fn_3085_delay_QMARK_3087(x_1){ +return (clojure.instance_QMARK_(clojure.lang.Delay,x_1))})))})(); + +//====== +//(defn force "If x is a Delay, returns the (possibly cached) value of its expression, else returns x" [x] (. clojure.lang.Delay (force x))) +//--- +(function __clojure_fn_3097(){ +return (clojure.JS.def(clojure,"force",(function __clojure_fn_3097_force_3099(x_1){ +return (clojure.lang.Delay.force(x_1))})))})(); + +//====== +//(defn fnseq "Returns a seq object whose first is first and whose rest is the\n value produced by calling restfn with no arguments. restfn will be\n called at most once per step in the sequence, e.g. calling rest\n repeatedly on the head of the seq calls restfn once - the value it\n yields is cached." [first restfn] (new clojure.lang.FnSeq first restfn)) +//--- +(function __clojure_fn_3109(){ +return (clojure.JS.def(clojure,"fnseq",(function __clojure_fn_3109_fnseq_3111(first_1,restfn_2){ +return ((new clojure.lang.FnSeq(first_1,restfn_2)))})))})(); + +//====== +//(defn cache-seq "Given a seq s, returns a lazy seq that will touch each element of s\n at most once, caching the results." [s] (when s (clojure.lang.CachedSeq. s))) +//--- +(function __clojure_fn_3127(){ +return (clojure.JS.def(clojure,"cache_seq",(function __clojure_fn_3127_cache_seq_3129(s_1){ +return (((s_1)?((new clojure.lang.CachedSeq(s_1))):(null)))})))})(); + +//====== +//(defn concat "Returns a lazy seq representing the concatenation of\tthe elements in the supplied colls." ([] nil) ([x] (seq x)) ([x y] (if (seq x) (lazy-cons (first x) (concat (rest x) y)) (seq y))) ([x y & zs] (let [cat (fn cat [xys zs] (if (seq xys) (lazy-cons (first xys) (cat (rest xys) zs)) (when zs (recur (first zs) (rest zs)))))] (cat (concat x y) zs)))) +//--- +(function __clojure_fn_3154(){ +return (clojure.JS.def(clojure,"concat",clojure.JS.variatic(function __clojure_fn_3154_concat_3156(x_1,y_2){switch(arguments.length){ +case 2:return (((clojure.seq(x_1))?((new clojure.lang.LazyCons((function __clojure_fn_3154_concat_3156_fn_3161(G__3160_1){switch(arguments.length){ +case 0:return (clojure.first(x_1))} +return (clojure.concat(clojure.rest(x_1),y_2))})))):(clojure.seq(y_2)))) +case 1:return (clojure.seq(x_1)) +case 0:return (null)} +var zs_3,cat_4,zs_3=clojure.JS.rest_args(this,arguments,2); +return (((cat_4=(function __clojure_fn_3154_concat_3156_cat_3166(xys_1,zs_2){ +var _cnt,_rtn,cat_0=arguments.callee; +do{_cnt=0;_rtn=((clojure.seq(xys_1))?((new clojure.lang.LazyCons((function __clojure_fn_3154_concat_3156_cat_3166_fn_3168(G__3167_1){switch(arguments.length){ +case 0:return (clojure.first(xys_1))} +return (cat_0(clojure.rest(xys_1),zs_2))})))):(((zs_2)?((_cnt=1,_t0=clojure.first(zs_2),_t1=clojure.rest(zs_2),xys_1=_t0,zs_2=_t1)):(null)))) +}while(_cnt);return _rtn;})), +cat_4(clojure.concat(x_1,y_2),zs_3)))})))})(); + +//====== +//(defn = "Equality. Returns true if x equals y, false if not. Same as\n Java x.equals(y) except it also works for nil, and compares\n numbers in a type-independent manner. Clojure's immutable data\n structures define equals() (and thus =) as a value, not an identity,\n comparison." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Util)) (clojure/list (quote clojure/equal)) (clojure/list x) (clojure/list y))), :inline-arities #{2}, :tag Boolean} ([x] true) ([x y] (. clojure.lang.Util (equal x y))) ([x y & more] (if (= x y) (if (rest more) (recur y (first more) (rest more)) (= y (first more))) false))) +//--- +(function __clojure_fn_3186(){ +return (clojure.JS.def(clojure,"_EQ_",clojure.JS.variatic(function __clojure_fn_3186_EQ_3191(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Util.equal(x_1,y_2)) +case 1:return (true)} +var _cnt,_rtn,more_3,more_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((clojure.lang.Util.equal(x_1,y_2))?(((clojure.rest(more_3))?((_cnt=1,_t0=y_2,_t1=clojure.first(more_3),_t2=clojure.rest(more_3),x_1=_t0,y_2=_t1,more_3=_t2)):(clojure.lang.Util.equal(y_2,clojure.first(more_3))))):(false)) +}while(_cnt);return _rtn;})))})(); + +//====== +//(defn not= "Same as (not (= obj1 obj2))" {:tag Boolean} ([x] false) ([x y] (not (= x y))) ([x y & more] (not (apply = x y more)))) +//--- +(function __clojure_fn_3205(){ +return (clojure.JS.def(clojure,"not_EQ_",clojure.JS.variatic(function __clojure_fn_3205_not_EQ_3207(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.not(clojure.lang.Util.equal(x_1,y_2))) +case 1:return (false)} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.not(clojure.apply(clojure._EQ_,x_1,y_2,more_3)))})))})(); + +//====== +//(defn compare "Comparator. Returns 0 if x equals y, -1 if x is logically 'less\n than' y, else 1. Same as Java x.compareTo(y) except it also works\n for nil, and compares numbers in a type-independent manner. x must\n implement Comparable" {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Util)) (clojure/list (quote clojure/compare)) (clojure/list x) (clojure/list y))), :tag Integer} [x y] (. clojure.lang.Util (compare x y))) +//--- +(function __clojure_fn_3222(){ +return (clojure.JS.def(clojure,"compare",(function __clojure_fn_3222_compare_3227(x_1,y_2){ +return (clojure.lang.Util.compare(x_1,y_2))})))})(); + +//====== +//(defn reduce "f should be a function of 2 arguments. If val is not supplied,\n returns the result of applying f to the first 2 items in coll, then\n applying f to that result and the 3rd item, etc. If coll contains no\n items, f must accept no arguments as well, and reduce returns the\n result of calling f with no arguments. If coll has only 1 item, it\n is returned and f is not called. If val is supplied, returns the\n result of applying f to val and the first item in coll, then\n applying f to that result and the 2nd item, etc. If coll contains no\n items, returns val and f is not called." ([f coll] (let [s (seq coll)] (if s (if (instance? clojure.lang.IReduce s) (. s (reduce f)) (reduce f (first s) (rest s))) (f)))) ([f val coll] (let [s (seq coll)] (if (instance? clojure.lang.IReduce s) (. s (reduce f val)) ((fn [f val s] (if s (recur f (f val (first s)) (rest s)) val)) f val s))))) +//--- +(function __clojure_fn_3259(){ +return (clojure.JS.def(clojure,"reduce",(function __clojure_fn_3259_reduce_3261(f_1,val_2,coll_3){switch(arguments.length){ +case 2:var s_3,coll_2=arguments[1]; +return (((s_3=clojure.seq(coll_2)), +((s_3)?(((clojure.instance_QMARK_(clojure.lang.IReduce,s_3))?((s_3).reduce(f_1)):(clojure.reduce(f_1,clojure.first(s_3),clojure.rest(s_3))))):(f_1()))))} +var s_4; +return (((s_4=clojure.seq(coll_3)), +((clojure.instance_QMARK_(clojure.lang.IReduce,s_4))?((s_4).reduce(f_1,val_2)):((function __clojure_fn_3259_reduce_3261_fn_3264(f_1,val_2,s_3){ +var _cnt,_rtn; +do{_cnt=0;_rtn=((s_3)?((_cnt=1,_t0=f_1,_t1=f_1(val_2,clojure.first(s_3)),_t2=clojure.rest(s_3),f_1=_t0,val_2=_t1,s_3=_t2)):(val_2)) +}while(_cnt);return _rtn;})(f_1,val_2,s_4)))))})))})(); + +//====== +//(defn reverse "Returns a seq of the items in coll in reverse order. Not lazy." [coll] (reduce conj nil coll)) +//--- +(function __clojure_fn_3275(){ +return (clojure.JS.def(clojure,"reverse",(function __clojure_fn_3275_reverse_3277(coll_1){ +return (clojure.reduce(clojure.conj,null,coll_1))})))})(); + +//====== +//(defn + "Returns the sum of nums. (+) returns 0." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/add)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([] 0) ([x] (cast Number x)) ([x y] (. clojure.lang.Numbers (add x y))) ([x y & more] (reduce + (+ x y) more))) +//--- +(function __clojure_fn_3293(){ +return (clojure.JS.def(clojure,"_PLUS_",clojure.JS.variatic(function __clojure_fn_3293_PLUS_3298(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.add(x_1,y_2)) +case 1:return (clojure.cast(java.lang.Number,x_1)) +case 0:return (0)} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.reduce(clojure._PLUS_,clojure.lang.Numbers.add(x_1,y_2),more_3))})))})(); + +//====== +//(defn * "Returns the product of nums. (*) returns 1." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/multiply)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([] 1) ([x] (cast Number x)) ([x y] (. clojure.lang.Numbers (multiply x y))) ([x y & more] (reduce * (* x y) more))) +//--- +(function __clojure_fn_3317(){ +return (clojure.JS.def(clojure,"_STAR_",clojure.JS.variatic(function __clojure_fn_3317_STAR_3322(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.multiply(x_1,y_2)) +case 1:return (clojure.cast(java.lang.Number,x_1)) +case 0:return (1)} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.reduce(clojure._STAR_,clojure.lang.Numbers.multiply(x_1,y_2),more_3))})))})(); + +//====== +//(defn / "If no denominators are supplied, returns 1/numerator,\n else returns numerator divided by all of the denominators." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/divide)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] (/ 1 x)) ([x y] (. clojure.lang.Numbers (divide x y))) ([x y & more] (reduce / (/ x y) more))) +//--- +(function __clojure_fn_3340(){ +return (clojure.JS.def(clojure,"_SLASH_",clojure.JS.variatic(function __clojure_fn_3340_SLASH_3345(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.divide(x_1,y_2)) +case 1:return (clojure.lang.Numbers.divide(1,x_1))} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.reduce(clojure._SLASH_,clojure.lang.Numbers.divide(x_1,y_2),more_3))})))})(); + +//====== +//(defn - "If no ys are supplied, returns the negation of x, else subtracts\n the ys from x and returns the result." {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/minus)) args)))), :inline-arities #{1 2}} ([x] (. clojure.lang.Numbers (minus x))) ([x y] (. clojure.lang.Numbers (minus x y))) ([x y & more] (reduce - (- x y) more))) +//--- +(function __clojure_fn_3362(){ +return (clojure.JS.def(clojure,"_",clojure.JS.variatic(function __clojure_fn_3362_3367(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.minus(x_1,y_2)) +case 1:return (clojure.lang.Numbers.minus(x_1))} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.reduce(clojure._,clojure.lang.Numbers.minus(x_1,y_2),more_3))})))})(); + +//====== +//(defn < "Returns non-nil if nums are in monotonically increasing order,\n otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/lt)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (lt x y))) ([x y & more] (if (< x y) (if (rest more) (recur y (first more) (rest more)) (< y (first more))) false))) +//--- +(function __clojure_fn_3384(){ +return (clojure.JS.def(clojure,"_LT_",clojure.JS.variatic(function __clojure_fn_3384_LT_3389(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.lt(x_1,y_2)) +case 1:return (true)} +var _cnt,_rtn,more_3,more_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((clojure.lang.Numbers.lt(x_1,y_2))?(((clojure.rest(more_3))?((_cnt=1,_t0=y_2,_t1=clojure.first(more_3),_t2=clojure.rest(more_3),x_1=_t0,y_2=_t1,more_3=_t2)):(clojure.lang.Numbers.lt(y_2,clojure.first(more_3))))):(false)) +}while(_cnt);return _rtn;})))})(); + +//====== +//(defn <= "Returns non-nil if nums are in monotonically non-decreasing order,\n otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/lte)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (lte x y))) ([x y & more] (if (<= x y) (if (rest more) (recur y (first more) (rest more)) (<= y (first more))) false))) +//--- +(function __clojure_fn_3406(){ +return (clojure.JS.def(clojure,"_LT__EQ_",clojure.JS.variatic(function __clojure_fn_3406_LT_EQ_3411(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.lte(x_1,y_2)) +case 1:return (true)} +var _cnt,_rtn,more_3,more_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((clojure.lang.Numbers.lte(x_1,y_2))?(((clojure.rest(more_3))?((_cnt=1,_t0=y_2,_t1=clojure.first(more_3),_t2=clojure.rest(more_3),x_1=_t0,y_2=_t1,more_3=_t2)):(clojure.lang.Numbers.lte(y_2,clojure.first(more_3))))):(false)) +}while(_cnt);return _rtn;})))})(); + +//====== +//(defn > "Returns non-nil if nums are in monotonically decreasing order,\n otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/gt)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (gt x y))) ([x y & more] (if (> x y) (if (rest more) (recur y (first more) (rest more)) (> y (first more))) false))) +//--- +(function __clojure_fn_3428(){ +return (clojure.JS.def(clojure,"_GT_",clojure.JS.variatic(function __clojure_fn_3428_GT_3433(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.gt(x_1,y_2)) +case 1:return (true)} +var _cnt,_rtn,more_3,more_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((clojure.lang.Numbers.gt(x_1,y_2))?(((clojure.rest(more_3))?((_cnt=1,_t0=y_2,_t1=clojure.first(more_3),_t2=clojure.rest(more_3),x_1=_t0,y_2=_t1,more_3=_t2)):(clojure.lang.Numbers.gt(y_2,clojure.first(more_3))))):(false)) +}while(_cnt);return _rtn;})))})(); + +//====== +//(defn >= "Returns non-nil if nums are in monotonically non-increasing order,\n otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/gte)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (gte x y))) ([x y & more] (if (>= x y) (if (rest more) (recur y (first more) (rest more)) (>= y (first more))) false))) +//--- +(function __clojure_fn_3450(){ +return (clojure.JS.def(clojure,"_GT__EQ_",clojure.JS.variatic(function __clojure_fn_3450_GT_EQ_3455(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.gte(x_1,y_2)) +case 1:return (true)} +var _cnt,_rtn,more_3,more_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((clojure.lang.Numbers.gte(x_1,y_2))?(((clojure.rest(more_3))?((_cnt=1,_t0=y_2,_t1=clojure.first(more_3),_t2=clojure.rest(more_3),x_1=_t0,y_2=_t1,more_3=_t2)):(clojure.lang.Numbers.gte(y_2,clojure.first(more_3))))):(false)) +}while(_cnt);return _rtn;})))})(); + +//====== +//(defn == "Returns non-nil if nums all have the same value, otherwise false" {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/equiv)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (equiv x y))) ([x y & more] (if (== x y) (if (rest more) (recur y (first more) (rest more)) (== y (first more))) false))) +//--- +(function __clojure_fn_3472(){ +return (clojure.JS.def(clojure,"_EQ__EQ_",clojure.JS.variatic(function __clojure_fn_3472_EQ_EQ_3477(x_1,y_2){switch(arguments.length){ +case 2:return (clojure.lang.Numbers.equiv(x_1,y_2)) +case 1:return (true)} +var _cnt,_rtn,more_3,more_3=clojure.JS.rest_args(this,arguments,2); +do{_cnt=0;_rtn=((clojure.lang.Numbers.equiv(x_1,y_2))?(((clojure.rest(more_3))?((_cnt=1,_t0=y_2,_t1=clojure.first(more_3),_t2=clojure.rest(more_3),x_1=_t0,y_2=_t1,more_3=_t2)):(clojure.lang.Numbers.equiv(y_2,clojure.first(more_3))))):(false)) +}while(_cnt);return _rtn;})))})(); + +//====== +//(defn max "Returns the greatest of the nums." ([x] x) ([x y] (if (> x y) x y)) ([x y & more] (reduce max (max x y) more))) +//--- +(function __clojure_fn_3491(){ +return (clojure.JS.def(clojure,"max",clojure.JS.variatic(function __clojure_fn_3491_max_3493(x_1,y_2){switch(arguments.length){ +case 2:return (((clojure.lang.Numbers.gt(x_1,y_2))?(x_1):(y_2))) +case 1:return (x_1)} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.reduce(clojure.max,clojure.max(x_1,y_2),more_3))})))})(); + +//====== +//(defn min "Returns the least of the nums." ([x] x) ([x y] (if (< x y) x y)) ([x y & more] (reduce min (min x y) more))) +//--- +(function __clojure_fn_3507(){ +return (clojure.JS.def(clojure,"min",clojure.JS.variatic(function __clojure_fn_3507_min_3509(x_1,y_2){switch(arguments.length){ +case 2:return (((clojure.lang.Numbers.lt(x_1,y_2))?(x_1):(y_2))) +case 1:return (x_1)} +var more_3,more_3=clojure.JS.rest_args(this,arguments,2); +return (clojure.reduce(clojure.min,clojure.min(x_1,y_2),more_3))})))})(); + +//====== +//(defn inc "Returns a number one greater than num." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/inc)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (inc x))) +//--- +(function __clojure_fn_3524(){ +return (clojure.JS.def(clojure,"inc",(function __clojure_fn_3524_inc_3529(x_1){ +return (clojure.lang.Numbers.inc(x_1))})))})(); + +//====== +//(defn dec "Returns a number one less than num." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/dec)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (dec x))) +//--- +(function __clojure_fn_3542(){ +return (clojure.JS.def(clojure,"dec",(function __clojure_fn_3542_dec_3547(x_1){ +return (clojure.lang.Numbers.dec(x_1))})))})(); + +//====== +//(defn unchecked-inc "Returns a number one greater than x, an int or long. \n Note - uses a primitive operator subject to overflow." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_inc)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (unchecked_inc x))) +//--- +(function __clojure_fn_3560(){ +return (clojure.JS.def(clojure,"unchecked_inc",(function __clojure_fn_3560_unchecked_inc_3565(x_1){ +return (clojure.lang.Numbers.unchecked_inc(x_1))})))})(); + +//====== +//(defn unchecked-dec "Returns a number one less than x, an int or long. \n Note - uses a primitive operator subject to overflow." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_dec)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (unchecked_dec x))) +//--- +(function __clojure_fn_3578(){ +return (clojure.JS.def(clojure,"unchecked_dec",(function __clojure_fn_3578_unchecked_dec_3583(x_1){ +return (clojure.lang.Numbers.unchecked_dec(x_1))})))})(); + +//====== +//(defn unchecked-negate "Returns the negation of x, an int or long. \n Note - uses a primitive operator subject to overflow." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_negate)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (unchecked_negate x))) +//--- +(function __clojure_fn_3596(){ +return (clojure.JS.def(clojure,"unchecked_negate",(function __clojure_fn_3596_unchecked_negate_3601(x_1){ +return (clojure.lang.Numbers.unchecked_negate(x_1))})))})(); + +//====== +//(defn unchecked-add "Returns the sum of x and y, both int or long. \n Note - uses a primitive operator subject to overflow." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_add)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_add x y))) +//--- +(function __clojure_fn_3614(){ +return (clojure.JS.def(clojure,"unchecked_add",(function __clojure_fn_3614_unchecked_add_3619(x_1,y_2){ +return (clojure.lang.Numbers.unchecked_add(x_1,y_2))})))})(); + +//====== +//(defn unchecked-subtract "Returns the difference of x and y, both int or long. \n Note - uses a primitive operator subject to overflow." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_subtract)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_subtract x y))) +//--- +(function __clojure_fn_3632(){ +return (clojure.JS.def(clojure,"unchecked_subtract",(function __clojure_fn_3632_unchecked_subtract_3637(x_1,y_2){ +return (clojure.lang.Numbers.unchecked_subtract(x_1,y_2))})))})(); + +//====== +//(defn unchecked-multiply "Returns the product of x and y, both int or long. \n Note - uses a primitive operator subject to overflow." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_multiply)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_multiply x y))) +//--- +(function __clojure_fn_3650(){ +return (clojure.JS.def(clojure,"unchecked_multiply",(function __clojure_fn_3650_unchecked_multiply_3655(x_1,y_2){ +return (clojure.lang.Numbers.unchecked_multiply(x_1,y_2))})))})(); + +//====== +//(defn unchecked-divide "Returns the division of x by y, both int or long. \n Note - uses a primitive operator subject to truncation." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_divide)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_divide x y))) +//--- +(function __clojure_fn_3668(){ +return (clojure.JS.def(clojure,"unchecked_divide",(function __clojure_fn_3668_unchecked_divide_3673(x_1,y_2){ +return (clojure.lang.Numbers.unchecked_divide(x_1,y_2))})))})(); + +//====== +//(defn pos? "Returns true if num is greater than zero, else false" {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/isPos)) (clojure/list x))))), :tag Boolean} [x] (. clojure.lang.Numbers (isPos x))) +//--- +(function __clojure_fn_3686(){ +return (clojure.JS.def(clojure,"pos_QMARK_",(function __clojure_fn_3686_pos_QMARK_3691(x_1){ +return (clojure.lang.Numbers.isPos(x_1))})))})(); + +//====== +//(defn neg? "Returns true if num is less than zero, else false" {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/isNeg)) (clojure/list x))))), :tag Boolean} [x] (. clojure.lang.Numbers (isNeg x))) +//--- +(function __clojure_fn_3704(){ +return (clojure.JS.def(clojure,"neg_QMARK_",(function __clojure_fn_3704_neg_QMARK_3709(x_1){ +return (clojure.lang.Numbers.isNeg(x_1))})))})(); + +//====== +//(defn zero? "Returns true if num is zero, else false" {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/isZero)) (clojure/list x))))), :tag Boolean} [x] (. clojure.lang.Numbers (isZero x))) +//--- +(function __clojure_fn_3722(){ +return (clojure.JS.def(clojure,"zero_QMARK_",(function __clojure_fn_3722_zero_QMARK_3727(x_1){ +return (clojure.lang.Numbers.isZero(x_1))})))})(); + +//====== +//(defn quot "quot[ient] of dividing numerator by denominator." [num div] (. clojure.lang.Numbers (quotient num div))) +//--- +(function __clojure_fn_3737(){ +return (clojure.JS.def(clojure,"quot",(function __clojure_fn_3737_quot_3739(num_1,div_2){ +return (clojure.lang.Numbers.quotient(num_1,div_2))})))})(); + +//====== +//(defn rem "rem[ainder] of dividing numerator by denominator." [num div] (. clojure.lang.Numbers (remainder num div))) +//--- +(function __clojure_fn_3749(){ +return (clojure.JS.def(clojure,"rem",(function __clojure_fn_3749_rem_3751(num_1,div_2){ +return (clojure.lang.Numbers.remainder(num_1,div_2))})))})(); + +//====== +//(defn rationalize "returns the rational value of num" [num] (. clojure.lang.Numbers (rationalize num))) +//--- +(function __clojure_fn_3761(){ +return (clojure.JS.def(clojure,"rationalize",(function __clojure_fn_3761_rationalize_3763(num_1){ +return (clojure.lang.Numbers.rationalize(num_1))})))})(); + +//====== +//(defn bit-not "Bitwise complement" [x] (. clojure.lang.Numbers not x)) +//--- +(function __clojure_fn_3773(){ +return (clojure.JS.def(clojure,"bit_not",(function __clojure_fn_3773_bit_not_3775(x_1){ +return (clojure.lang.Numbers.not(x_1))})))})(); + +//====== +//(defn bit-and "Bitwise and" [x y] (. clojure.lang.Numbers and x y)) +//--- +(function __clojure_fn_3785(){ +return (clojure.JS.def(clojure,"bit_and",(function __clojure_fn_3785_bit_and_3787(x_1,y_2){ +return (clojure.lang.Numbers.and(x_1,y_2))})))})(); + +//====== +//(defn bit-or "Bitwise or" [x y] (. clojure.lang.Numbers or x y)) +//--- +(function __clojure_fn_3797(){ +return (clojure.JS.def(clojure,"bit_or",(function __clojure_fn_3797_bit_or_3799(x_1,y_2){ +return (clojure.lang.Numbers.or(x_1,y_2))})))})(); + +//====== +//(defn bit-xor "Bitwise exclusive or" [x y] (. clojure.lang.Numbers xor x y)) +//--- +(function __clojure_fn_3809(){ +return (clojure.JS.def(clojure,"bit_xor",(function __clojure_fn_3809_bit_xor_3811(x_1,y_2){ +return (clojure.lang.Numbers.xor(x_1,y_2))})))})(); + +//====== +//(defn bit-and-not "Bitwise and with complement" [x y] (. clojure.lang.Numbers andNot x y)) +//--- +(function __clojure_fn_3821(){ +return (clojure.JS.def(clojure,"bit_and_not",(function __clojure_fn_3821_bit_and_not_3823(x_1,y_2){ +return (clojure.lang.Numbers.andNot(x_1,y_2))})))})(); + +//====== +//(defn bit-clear "Clear bit at index n" [x n] (. clojure.lang.Numbers clearBit x n)) +//--- +(function __clojure_fn_3833(){ +return (clojure.JS.def(clojure,"bit_clear",(function __clojure_fn_3833_bit_clear_3835(x_1,n_2){ +return (clojure.lang.Numbers.clearBit(x_1,n_2))})))})(); + +//====== +//(defn bit-set "Set bit at index n" [x n] (. clojure.lang.Numbers setBit x n)) +//--- +(function __clojure_fn_3845(){ +return (clojure.JS.def(clojure,"bit_set",(function __clojure_fn_3845_bit_set_3847(x_1,n_2){ +return (clojure.lang.Numbers.setBit(x_1,n_2))})))})(); + +//====== +//(defn bit-flip "Flip bit at index n" [x n] (. clojure.lang.Numbers flipBit x n)) +//--- +(function __clojure_fn_3857(){ +return (clojure.JS.def(clojure,"bit_flip",(function __clojure_fn_3857_bit_flip_3859(x_1,n_2){ +return (clojure.lang.Numbers.flipBit(x_1,n_2))})))})(); + +//====== +//(defn bit-test "Test bit at index n" [x n] (. clojure.lang.Numbers testBit x n)) +//--- +(function __clojure_fn_3869(){ +return (clojure.JS.def(clojure,"bit_test",(function __clojure_fn_3869_bit_test_3871(x_1,n_2){ +return (clojure.lang.Numbers.testBit(x_1,n_2))})))})(); + +//====== +//(defn bit-shift-left "Bitwise shift left" [x n] (. clojure.lang.Numbers shiftLeft x n)) +//--- +(function __clojure_fn_3881(){ +return (clojure.JS.def(clojure,"bit_shift_left",(function __clojure_fn_3881_bit_shift_left_3883(x_1,n_2){ +return (clojure.lang.Numbers.shiftLeft(x_1,n_2))})))})(); + +//====== +//(defn bit-shift-right "Bitwise shift right" [x n] (. clojure.lang.Numbers shiftRight x n)) +//--- +(function __clojure_fn_3893(){ +return (clojure.JS.def(clojure,"bit_shift_right",(function __clojure_fn_3893_bit_shift_right_3895(x_1,n_2){ +return (clojure.lang.Numbers.shiftRight(x_1,n_2))})))})(); + +//====== +//(defn complement "Takes a fn f and returns a fn that takes the same arguments as f,\n has the same effects, if any, and returns the opposite truth value." [f] (fn [& args] (not (apply f args)))) +//--- +(function __clojure_fn_3908(){ +return (clojure.JS.def(clojure,"complement",(function __clojure_fn_3908_complement_3910(f_1){ +return (clojure.JS.variatic(function __clojure_fn_3908_complement_3910_fn_3912(){ +var args_1,args_1=clojure.JS.rest_args(this,arguments,0); +return (clojure.not(clojure.apply(f_1,args_1)))}))})))})(); + +//====== +//(defn constantly "Returns a function that takes any number of arguments and returns x." [x] (fn [& args] x)) +//--- +(function __clojure_fn_3926(){ +return (clojure.JS.def(clojure,"constantly",(function __clojure_fn_3926_constantly_3928(x_1){ +return (clojure.JS.variatic(function __clojure_fn_3926_constantly_3928_fn_3930(){ +var args_1,args_1=clojure.JS.rest_args(this,arguments,0); +return (x_1)}))})))})(); + +//====== +/ |