squint-cljs 0.4.52 → 0.4.54
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/lib/cli.js +40 -40
- package/lib/cljs.pprint.js +130 -130
- package/lib/compiler.js +239 -240
- package/lib/compiler.node.js +30 -30
- package/lib/compiler.sci.js +1022 -1022
- package/lib/node.nrepl_server.js +14 -14
- package/lib/squint.core.umd.js +1 -1
- package/package.json +1 -1
- package/src/squint/core.js +31 -25
package/lib/node.nrepl_server.js
CHANGED
|
@@ -4,20 +4,20 @@ import "./node.js";
|
|
|
4
4
|
import "./compiler.node.js";
|
|
5
5
|
const shadow_esm_import = function(x) { return import(x) };
|
|
6
6
|
import*as esm_import$fs from"fs";import*as esm_import$net from"net";
|
|
7
|
-
var K9=function(a,b){a=a.indexOf(b);if(0>a)throw Error("out of input");return a},L9=function(a,b){if(a.length<b)throw Error("out of input");return a.slice(b)},M9=function(a,b){if(b>a.length)throw Error("out of input");return a.slice(0,b)},N9=function(a){return console.debug($APP.jp.g(" ",a))},
|
|
8
|
-
|
|
9
|
-
"version-string",a)},
|
|
10
|
-
$APP.Fs.l($APP.F([c]));else return $APP.Fs.l($APP.F([c]))},
|
|
11
|
-
|
|
12
|
-
"ns",$APP.t.h($APP.gq)],null);return b.g?b.g(c,d):b.call(null,c,d)}).finally(function(){var d=new $APP.n(null,2,["ns",$APP.t.h($APP.v(R9)),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(c,d):b.call(null,c,d)})},S9=function(a){a=$APP.kf(a);$APP.fe.g(a,$APP.S);return null},
|
|
13
|
-
["status",new $APP.J(null,3,5,$APP.N,["error","unknown-op","done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},
|
|
14
|
-
0,null);m=$APP.C.j(m,1,null);if(null==l){k=new $APP.J(null,2,5,$APP.N,[k,m],null);break a}k=$APP.Ee.g(k,l);l=m}f=$APP.C.j(k,0,null);k=$APP.C.j(k,1,null);$APP.
|
|
15
|
-
|
|
16
|
-
|
|
7
|
+
var K9=function(a,b){a=a.indexOf(b);if(0>a)throw Error("out of input");return a},L9=function(a,b){if(a.length<b)throw Error("out of input");return a.slice(b)},M9=function(a,b){if(b>a.length)throw Error("out of input");return a.slice(0,b)},N9=function(a){return console.debug($APP.jp.g(" ",a))},qfa=function(a){return function(b,c){b=$APP.kf(b);var d=$APP.fe.g(b,$APP.vF),e=$APP.fe.g(b,pfa);c=$APP.wi.j(c,"id",d);c=$APP.r(e)?$APP.wi.j(c,"session",e):c;return a.g?a.g(b,c):a.call(null,b,c)}},sfa=function(){var a=
|
|
8
|
+
rfa;return function(b,c){b=$APP.Jm.j(b,O9,$APP.oi);return a.g?a.g(b,c):a.call(null,b,c)}},ufa=function(){var a=tfa();return function(b,c){N9($APP.F(["request",b]));return a.g?a.g(b,c):a.call(null,b,c)}},vfa=function(a){return function(b,c){N9($APP.F(["response",c]));return a.g?a.g(b,c):a.call(null,b,c)}},tfa=function(){var a=sfa();return function(b,c){return a.g?a.g(b,c):a.call(null,b,c)}},P9=function(a){return $APP.wi.j($APP.Vh(new $APP.J(null,3,5,$APP.N,["major","minor","incremental"],null),$APP.uu.h(a.split("."))),
|
|
9
|
+
"version-string",a)},wfa=function(a,b,c){if($APP.r(a))if(a=Q9.h?Q9.h(a):Q9.call(null,a),$APP.r(a)){b=$APP.kf(b);var d=$APP.fe.g(b,$APP.s9),e=$APP.fe.g(b,$APP.l9),f=$APP.fe.g(b,$APP.u9);b=$APP.Qa;var k=$APP.ei,l=$APP.T6;$APP.Qa=e;$APP.ei=f;$APP.T6=d;try{var m=new $APP.Fa;d=$APP.Ta;e=$APP.Ua;$APP.Ta=!0;$APP.Ua=function(g){return m.append(g)};try{a.h?a.h(c):a.call(null,c)}finally{$APP.Ua=e,$APP.Ta=d}return $APP.t.h(m)}finally{$APP.T6=l,$APP.ei=k,$APP.Qa=b}}else return N9($APP.F(["Pretty-Printing is only supported for cider.nrepl.pprint/pprint"])),
|
|
10
|
+
$APP.Fs.l($APP.F([c]));else return $APP.Fs.l($APP.F([c]))},yfa=function(a){a:{var b=$APP.gq;$APP.gq=$APP.v(R9);try{var c=$APP.Ct(a,new $APP.n(null,5,[$APP.ep,$APP.dp,$APP.Ps,xfa,$APP.rt,!0,$APP.Ts,!0,$APP.as,!0],null));break a}finally{$APP.gq=b}c=void 0}c=$APP.kf(c);a=$APP.fe.g(c,$APP.Bt);c=$APP.fe.g(c,$APP.S);a=$APP.Pj("(async function () {\n%s\n}) ()","%s",a);$APP.Jf(R9,c);return a},Efa=function(a,b){var c=$APP.kf(a);$APP.fe.g(c,$APP.S);a=$APP.fe.g(c,zfa);$APP.fe.g(c,$APP.Qk);$APP.fe.g(c,Afa);$APP.fe.g(c,
|
|
11
|
+
Bfa);return Promise.resolve(a).then(yfa).then(function(d){$APP.qF.l($APP.F(["About to eval:"]));$APP.qF.l($APP.F([d]));return eval(d)}).then(function(d){d=new $APP.n(null,2,["ns",$APP.t.h($APP.v(R9)),"value",wfa(Cfa.h(c),Dfa.h(c),d)],null);return b.g?b.g(c,d):b.call(null,c,d)}).catch(function(d){console.error(d);var e=$APP.uF.h($APP.fj(d));e=$APP.r(e)?e:d.message;$APP.r(e)&&(e=new $APP.n(null,1,["err",[$APP.t.h(e),"\n"].join("")],null),b.g?b.g(c,e):b.call(null,c,e));d=new $APP.n(null,2,["ex",$APP.t.h(d),
|
|
12
|
+
"ns",$APP.t.h($APP.gq)],null);return b.g?b.g(c,d):b.call(null,c,d)}).finally(function(){var d=new $APP.n(null,2,["ns",$APP.t.h($APP.v(R9)),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(c,d):b.call(null,c,d)})},S9=function(a){a=$APP.kf(a);$APP.fe.g(a,$APP.S);return null},rfa=function(a,b){a=$APP.kf(a);var c=$APP.fe.g(a,O9),d=$APP.fe.g(T9,c);if($APP.r(d))return d.g?d.g(a,b):d.call(null,a,b);console.warn($APP.jp.g(" ",$APP.F(["Unhandled operation",c])));c=new $APP.n(null,1,
|
|
13
|
+
["status",new $APP.J(null,3,5,$APP.N,["error","unknown-op","done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},Ffa=function(a){return function(b,c){return a.write(U9(c))}},Gfa=function(a,b){N9($APP.F(["Connection accepted"]));b.setNoDelay(!0);var c=ufa(),d=qfa(vfa(Ffa(b))),e=$APP.Li.h(null);b.on("data",function(f){var k=$APP.v(e);if($APP.r(k)){f=[$APP.t.h(k),$APP.t.h(f)].join("");$APP.Jf(e,null);var l=f}else l=f;a:for(f=$APP.F([$APP.vu,!0]),k=$APP.ig;;){var m=$APP.Gf.j(V9,l,f);l=$APP.C.j(m,
|
|
14
|
+
0,null);m=$APP.C.j(m,1,null);if(null==l){k=new $APP.J(null,2,5,$APP.N,[k,m],null);break a}k=$APP.Ee.g(k,l);l=m}f=$APP.C.j(k,0,null);k=$APP.C.j(k,1,null);$APP.QE(k)||$APP.Jf(e,k);f=$APP.x(f);k=null;for(var g=m=0;;)if(g<m)l=k.ba(null,g),c(l,d),g+=1;else if(f=$APP.x(f))k=f,$APP.Zd(k)?(f=$APP.uc(k),m=$APP.vc(k),k=f,l=$APP.xd(f),f=m,m=l):(l=$APP.y(k),c(l,d),f=$APP.z(k),k=null,m=0),g=0;else return null});return b.on("close",function(f){return $APP.r(f)?N9($APP.F(["Connection lost"])):N9($APP.F(["Connection closed"]))})},
|
|
15
|
+
Bfa=new $APP.I(null,"_line","_line",232847719),Dfa=new $APP.I("nrepl.middleware.print","options","nrepl.middleware.print/options",868480159),pfa=new $APP.I(null,"session","session",1008279103),Hfa=new $APP.I(null,"lookup","lookup",1225356838),Ifa=new $APP.I(null,"load-file","load-file",-424586670),Afa=new $APP.I(null,"_load-file?","_load-file?",-1198848711),O9=new $APP.I(null,"op","op",-1882987955),Jfa=new $APP.I(null,"describe","describe",1369790582),zfa=new $APP.I(null,"code","code",1586293142),
|
|
16
|
+
Kfa=new $APP.I(null,"eldoc","eldoc",-1321421900),Lfa=new $APP.I(null,"log_level","log_level",-1756736313),Cfa=new $APP.I("nrepl.middleware.print","print","nrepl.middleware.print/print",-1616742548),Mfa=new $APP.I(null,"clone","clone",711747572),Nfa=new $APP.I(null,"close","close",1835149582),Ofa=new $APP.I(null,"info","info",-317069002),Pfa=new $APP.I(null,"host","host",-1558485167),Qfa=new $APP.I(null,"complete","complete",-500388775);var W9=function W9(a,b){switch($APP.t.h(M9(a,1))){case "i":return a=L9(a,1),b=K9(a,"e"),new $APP.J(null,2,5,$APP.N,[parseInt(M9(a,b)),L9(a,b+1)],null);case "l":var d=a=L9(a,1);for(a=$APP.mc($APP.ig);;){if($APP.A.g($APP.t.h(M9(d,1)),"e"))return new $APP.J(null,2,5,$APP.N,[$APP.pc(a),L9(d,1)],null);var e=W9.g?W9.g(d,b):W9.call(null,d,b),f=$APP.C.j(e,0,null),k=$APP.C.j(e,1,null);e=k;a=$APP.cg.g(a,f);d=e}case "d":for(a=L9(a,1),f=$APP.kf(b),f=$APP.fe.g(f,$APP.vu),d=a,e=$APP.mc($APP.hf);;){if($APP.A.g($APP.t.h(M9(d,
|
|
17
17
|
1)),"e"))return new $APP.J(null,2,5,$APP.N,[$APP.pc(e),L9(d,1)],null);a=W9.g?W9.g(d,b):W9.call(null,d,b);d=$APP.C.j(a,0,null);k=$APP.C.j(a,1,null);k=W9.g?W9.g(k,b):W9.call(null,k,b);a=$APP.C.j(k,0,null);k=$APP.C.j(k,1,null);d=$APP.r(f)?$APP.oi.h(d):d;a=$APP.Rg.j(e,d,a);d=k;e=a}default:return b=K9(a,":"),f=parseInt(M9(a,b)),a=L9(a,b+1),new $APP.J(null,2,5,$APP.N,[$APP.t.h(M9(a,f)),L9(a,f)],null)}},V9=function V9(a){for(var c=[],d=arguments.length,e=0;;)if(e<d)c.push(arguments[e]),e+=1;else break;return V9.l(arguments[0],
|
|
18
18
|
1<c.length?new $APP.Zc(c.slice(1),0,null):null)};V9.l=function(a,b){try{return W9(a,b)}catch(c){if(c instanceof Error)return new $APP.J(null,2,5,$APP.N,[null,a],null);throw c;}};V9.m=1;V9.o=function(a){var b=$APP.y(a);a=$APP.z(a);return this.l(b,a)};
|
|
19
19
|
var U9=function U9(a){for(;;){if("string"===typeof a)return[$APP.t.h(Buffer.from(a).length),":",a].join("");if(a instanceof $APP.I||a instanceof $APP.w)a=[function(){var c=$APP.Oe(a);return $APP.r(c)?[c,"/"].join(""):null}(),$APP.Uh(a)].join("");else return"number"===typeof a?["i",$APP.t.h(a),"e"].join(""):$APP.Td(a)||$APP.Yd(a)||null==a?["l",$APP.t.h($APP.Gf.g($APP.t,$APP.ni.g(U9,a))),"e"].join(""):$APP.Vd(a)?["d",$APP.t.h($APP.Gf.g($APP.t,$APP.ni.g(function(){return function(c){var d=$APP.C.j(c,
|
|
20
|
-
0,null);c=$APP.C.j(c,1,null);return[$APP.t.h(U9.h?U9.h(d):U9.call(null,d)),$APP.t.h(U9.h?U9.h(c):U9.call(null,c))].join("")}}(a),$APP.
|
|
21
|
-
var
|
|
22
|
-
2,["nbb-nrepl",P9("TODO"),"node",P9(process.version)],null),"aux",$APP.hf,"ops",$APP.Vh($APP.ni.g($APP.Uh,$APP.Jh(T9)),$APP.Xt.h($APP.hf)),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},S9,function(){return null},function(a,b){a=$APP.kf(a);var c=$APP.fe.g(a,$APP.S);$APP.
|
|
23
|
-
":",$APP.t.h(f)].join("")]));try{return esm_import$fs.writeFileSync(".nrepl-port",$APP.t.h(f))}catch(k){return console.warn($APP.jp.g(" ",$APP.F(["Could not write .nrepl-port",k])))}});return $APP.Jf(
|
|
20
|
+
0,null);c=$APP.C.j(c,1,null);return[$APP.t.h(U9.h?U9.h(d):U9.call(null,d)),$APP.t.h(U9.h?U9.h(c):U9.call(null,c))].join("")}}(a),$APP.oF.g($APP.y,a)))),"e"].join(""):null}};var R9=$APP.Li.h($APP.gq),Q9=new $APP.n(null,1,["cider.nrepl.pprint/pprint",$APP.B9],null);$APP.Li.h(!1);
|
|
21
|
+
var xfa=$APP.Li.h($APP.hf),T9=$APP.sh([Hfa,Nfa,Ifa,Kfa,Mfa,Jfa,Ofa,Qfa,$APP.xF],[S9,function(a,b){var c=new $APP.n(null,1,["status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},function(a){a=$APP.kf(a);$APP.fe.g(a,$APP.Qk);return null},S9,function(a,b){var c=new $APP.n(null,2,["new-session",$APP.t.h($APP.NE()),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},function(a,b){var c=new $APP.n(null,4,["versions",new $APP.n(null,
|
|
22
|
+
2,["nbb-nrepl",P9("TODO"),"node",P9(process.version)],null),"aux",$APP.hf,"ops",$APP.Vh($APP.ni.g($APP.Uh,$APP.Jh(T9)),$APP.Xt.h($APP.hf)),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},S9,function(){return null},function(a,b){a=$APP.kf(a);var c=$APP.fe.g(a,$APP.S);$APP.pF.l($APP.F([$APP.S,c]));return Efa($APP.wi.j(a,$APP.S,$APP.v(R9)),b)}]),Rfa=$APP.Li.h(null);export const startServer=function(a){return Promise.resolve(null).then(function(){var b=function(){var e=$APP.sF.h(a);return $APP.r(e)?e:0}(),c=function(){var e=Pfa.h(a);return $APP.r(e)?e:"127.0.0.1"}();(function(){var e=$APP.$a(a)?a.bg:Lfa.h(a);return $APP.r(e)?e:"info"})();var d=esm_import$net.createServer($APP.Ik.g(Gfa,$APP.hf));d.listen(b,c,function(){var e=d.address(),f=e.port;e=e.address;$APP.qF.l($APP.F([["nREPL server started on port ",$APP.t.h(f)," on host ",$APP.t.h(e)," - nrepl://",$APP.t.h(e),
|
|
23
|
+
":",$APP.t.h(f)].join("")]));try{return esm_import$fs.writeFileSync(".nrepl-port",$APP.t.h(f))}catch(k){return console.warn($APP.jp.g(" ",$APP.F(["Could not write .nrepl-port",k])))}});return $APP.Jf(Rfa,d)})};
|
package/lib/squint.core.umd.js
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
var squint;(squint||={}).core=(()=>{var G=Object.defineProperty;var $e=Object.getOwnPropertyDescriptor;var Fe=Object.getOwnPropertyNames;var Ve=Object.prototype.hasOwnProperty;var We=(e,t)=>{for(var n in t)G(e,n,{get:t[n],enumerable:!0})},Je=(e,t,n,r)=>{if(t&&typeof t=="object"||typeof t=="function")for(let o of Fe(t))!Ve.call(e,o)&&o!==n&&G(e,o,{get:()=>t[o],enumerable:!(r=$e(t,o))||r.enumerable});return e};var De=e=>Je(G({},"__esModule",{value:!0}),e);var cr={};We(cr,{Atom:()=>ae,Cons:()=>fe,IIterable:()=>z,IIterable__iterator:()=>ue,LazySeq:()=>xn,NaN_QMARK_:()=>qn,PROTOCOL_SENTINEL:()=>bt,_:()=>Ze,_GT_:()=>Ue,_PLUS_:()=>Xe,_iterator:()=>N,aclone:()=>jn,add_watch:()=>Nn,alength:()=>Rn,apply:()=>Nt,array_QMARK_:()=>ye,aset:()=>Kn,assoc:()=>v,assoc_BANG_:()=>b,assoc_in:()=>X,assoc_in_BANG_:()=>nt,atom:()=>Mt,boolean$:()=>bn,boolean_QMARK_:()=>er,bounded_count:()=>tr,butlast:()=>_n,coll_QMARK_:()=>Fn,comp:()=>rt,compare:()=>J,complement:()=>de,concat:()=>we,conj:()=>Z,conj_BANG_:()=>P,cons:()=>ce,constantly:()=>It,contains_QMARK_:()=>ee,count:()=>Q,counted_QMARK_:()=>Ce,cycle:()=>Jt,dec:()=>ft,deref:()=>pe,disj:()=>ot,disj_BANG_:()=>H,dissoc:()=>it,dissoc_BANG_:()=>ut,distinct:()=>Dt,doall:()=>Sn,dorun:()=>Qn,drop:()=>T,drop_last:()=>hn,drop_while:()=>Ke,empty:()=>Ae,empty_QMARK_:()=>fn,es6_iterator:()=>O,even_QMARK_:()=>he,every_QMARK_:()=>Se,every_pred:()=>Gn,ex_cause:()=>Dn,ex_data:()=>Wn,ex_info:()=>Un,ex_message:()=>Jn,false_QMARK_:()=>mn,ffirst:()=>st,filter:()=>C,filterv:()=>ht,find:()=>nr,first:()=>R,fn_QMARK_:()=>Yn,fnil:()=>V,frequencies:()=>pn,get:()=>_,get_in:()=>Qe,group_by:()=>an,identical_QMARK_:()=>Ft,identity:()=>me,inc:()=>te,int_QMARK_:()=>Ye,integer_QMARK_:()=>Xn,interleave:()=>ge,interpose:()=>Bt,into:()=>Ee,into_array:()=>ke,iterable:()=>f,iterate:()=>Ln,js_keys:()=>Cn,js_obj:()=>En,juxt:()=>Pn,keep:()=>Ht,keep_indexed:()=>wt,key:()=>ve,keys:()=>Pe,last:()=>at,lazy:()=>s,list:()=>Tt,list_QMARK_:()=>kt,map:()=>M,map_QMARK_:()=>Tn,map_indexed:()=>yt,mapcat:()=>Gt,mapv:()=>_e,max:()=>Ie,max_key:()=>ur,merge:()=>qt,merge_with:()=>Ct,meta:()=>Zn,min:()=>kn,min_key:()=>or,mod:()=>rr,neg_QMARK_:()=>vn,next:()=>Te,nil_QMARK_:()=>gt,not:()=>se,not_any_QMARK_:()=>on,not_every_QMARK_:()=>Zt,nth:()=>re,number_QMARK_:()=>Le,object_QMARK_:()=>et,odd_QMARK_:()=>Ot,parse_long:()=>fr,partial:()=>Wt,partition:()=>zt,partition_all:()=>Pt,partition_by:()=>Yt,pos_QMARK_:()=>Mn,pr_str:()=>le,println:()=>ne,prn:()=>vt,rand_int:()=>Oe,rand_nth:()=>cn,range:()=>Rt,re_matches:()=>Kt,re_seq:()=>Be,reduce:()=>B,reduce_kv:()=>In,reduced:()=>pt,reduced_QMARK_:()=>xt,regexp_QMARK_:()=>Vn,remove:()=>dt,remove_watch:()=>On,repeat:()=>F,repeatedly:()=>ln,replace:()=>un,reset_BANG_:()=>xe,rest:()=>lt,reverse:()=>en,satisfies_QMARK_:()=>He,second:()=>ct,select_keys:()=>Lt,seq:()=>Y,seqable_QMARK_:()=>oe,set:()=>jt,shuffle:()=>rn,some:()=>Ne,some_QMARK_:()=>gn,some_fn:()=>Bn,sort:()=>je,sort_by:()=>nn,split_at:()=>dn,split_with:()=>yn,str:()=>mt,string_QMARK_:()=>ze,subs:()=>Ge,subvec:()=>Qt,swap_BANG_:()=>Et,system_time:()=>$t,t:()=>m,take:()=>k,take_nth:()=>Vt,take_while:()=>Re,to_array:()=>zn,true_QMARK_:()=>wn,update:()=>Ut,update_BANG_:()=>W,update_in:()=>Xt,val:()=>Me,vals:()=>$n,vec:()=>E,vector:()=>$,vector_QMARK_:()=>St,warn_on_lazy_reusage_BANG_:()=>_t,with_meta:()=>Hn,zero_QMARK_:()=>An});function c(e){if(e==null||e instanceof Function)return e;let t=typeof e;return t==="string"?(n,r)=>_(n,e,r):t==="object"?(n,r)=>_(e,n,r):e}globalThis.toFn=c;function Ue(e,t){return e>t}function Xe(...e){return e.reduce((t,n)=>t+n,0)}function Ze(...e){return e.length==1?0-e[0]:e.reduce((t,n)=>t-n)}function He(e,t){return t[e]}function b(e,t,n,...r){if(r.length%2!==0)throw new Error("Illegal argument: assoc expects an odd number of arguments.");switch(p(e)){case x:e.set(t,n);for(let o=0;o<r.length;o+=2)e.set(r[o],r[o+1]);break;case h:case y:e[t]=n;for(let o=0;o<r.length;o+=2)e[r[o]]=r[o+1];break;default:throw new Error("Illegal argument: assoc! expects a Map, Array, or Object as the first argument.")}return e}function U(e){switch(p(e)){case x:return new Map(e.entries());case h:return[...e];case y:return{...e};default:throw new Error(`Don't know how to copy object of type ${typeof e}.`)}}function v(e,t,n,...r){e||(e={});let o=U(e);return b(o,t,n,...r),o}const x=1,h=2,y=3,A=4,w=5,S=6;function j(e){switch(e){case x:return new Map;case h:return[];case y:return{};case A:return new I;case w:return new Set;case S:return s(function*(){})}}function L(e){return e.constructor===Object}function et(e){return e!=null&&L(e)}function p(e){if(e!=null){if(L(e))return y;if(e instanceof Map)return x;if(e instanceof Set)return w;if(e instanceof I)return A;if(e instanceof Array)return h;if(e instanceof q)return S;if(e instanceof Object)return y}}function tt(e,t,n,r,o){let u=p(n);if(u!==x&&u!==h&&u!==y)throw new Error(`Illegal argument: ${t} expects the first argument to be a Map, Array, or Object.`);const i=[n];let l=n;for(let a=0;a<r.length-1;a+=1){let g=r[a],d;l instanceof Map?d=l.get(g):d=l[g],d||(d=j(u)),i.push(d),l=d}i.push(o);for(let a=i.length-2;a>=0;a-=1)i[a]=e(i[a],r[a],i[a+1]);return i[0]}function X(e,t,n){return tt(v,"assoc-in",e,t,n)}function nt(e,t,n){var r=e;let o=p(e);for(const u of t.splice(0,t.length-1)){let i=_(r,u);i===void 0&&(i=j(o),b(r,u,i)),r=i}return b(r,t[t.length-1],n),e}function rt(...e){if(e=e.map(c),e.length===0)return me;if(e.length===1)return e[0];let[t,...n]=e.slice().reverse();return function(...r){let o=t(...r);for(const u of n)o=u(o);return o}}function P(...e){if(e.length===0)return $();let[t,...n]=e;switch(t==null&&(t=[]),p(t)){case w:for(const r of n)t.add(r);break;case A:t.unshift(...n.reverse());break;case h:t.push(...n);break;case x:for(const r of n)r instanceof Array?t.set(r[0],r[1]):f(r).forEach(o=>{t.set(o[0],o[1])});break;case y:for(const r of n)r instanceof Array?t[r[0]]=r[1]:Object.assign(t,r);break;default:throw new Error("Illegal argument: conj! expects a Set, Array, List, Map, or Object as the first argument.")}return t}function Z(...e){if(e.length===0)return $();let[t,...n]=e;switch(t==null&&(t=[]),p(t)){case w:return new Set([...t,...n]);case A:return new I(...n.reverse(),...t);case h:return[...t,...n];case x:const r=new Map(t);for(const u of n)u instanceof Array?r.set(u[0],u[1]):f(u).forEach(i=>{r.set(i[0],i[1])});return r;case S:return s(function*(){yield*n,yield*t});case y:const o={...t};for(const u of n)u instanceof Array?o[u[0]]=u[1]:Object.assign(o,u);return o;default:throw new Error("Illegal argument: conj expects a Set, Array, List, Map, or Object as the first argument.")}}function H(e,...t){for(const n of t)e.delete(n);return e}function ot(e,...t){let n=new Set([...e]);return H(n,...t)}function ee(e,t){switch(p(e)){case w:case x:return e.has(t);case void 0:return!1;default:return t in e}}function ut(e,...t){for(const n of t)delete e[n];return e}function it(e,...t){let n={...e};for(const r of t)delete n[r];return n}function te(e){return e+1}function ft(e){return e-1}function ne(...e){console.log(...e)}function re(e,t,n){if(e){var r=void 0;if(e instanceof Array)r=e[t];else{let o=f(e),u=0;for(let i of o)if(u++==t){r=i;break}}if(r!==void 0)return r}return n}function _(e,t,n=void 0){if(e==null)return n;let r;if(L(e))return r=e[t],r===void 0?n:r;switch(p(e)){case w:e.has(t)&&(r=t);break;case x:r=e.get(t);break;case void 0:break;default:r=e[t];break}return r!==void 0?r:n}function oe(e){return typeof e=="string"||e===null||e===void 0||e instanceof Object&&Symbol.iterator in e}function f(e){return e==null?[]:oe(e)?e:Object.entries(e)}const z=Symbol("Iterable"),ue=Symbol.iterator;function N(e){return e[Symbol.iterator]()}const O=N;function Y(e){let t=f(e);return t.length===0||t.size===0?null:t}function R(e){let[t]=f(e);return t}function ct(e){let[t,n]=f(e);return n}function st(e){return R(R(e))}function lt(e){return s(function*(){let t=!0;for(const n of f(e))t?t=!1:yield n})}class K{value;constructor(t){this.value=t}_deref(){return this.value}}function at(e){switch(e=f(e),p(e)){case h:return e[e.length-1];default:let t;for(const n of e)t=n;return t}}function pt(e){return new K(e)}function xt(e){return e instanceof K}function B(e,t,n){e=c(e);let r,o;if(n===void 0){let u=f(t)[Symbol.iterator]();o=u.next().value,r=u}else o=t,r=f(n);if(o instanceof K)return o.value;for(const u of r)if(o=e(o,u),o instanceof K){o=o.value;break}return o}var ie=!1;function _t(){ie=!0}class q{constructor(t){this.gen=t,this.usages=0}[Symbol.iterator](){if(this.usages++,this.usages>=2&&ie)try{throw new Error}catch(t){console.warn("Re-use of lazy value",t.stack)}return this.gen()}}q.prototype[z]=!0;function s(e){return new q(e)}class fe{constructor(t,n){this.x=t,this.coll=n}*[Symbol.iterator](){yield this.x,yield*f(this.coll)}}function ce(e,t){return new fe(e,t)}function M(e,...t){switch(e=c(e),t.length){case 0:throw new Error("map with 2 arguments is not supported yet");case 1:return s(function*(){for(const n of f(t[0]))yield e(n)});default:return s(function*(){const n=t.map(r=>O(f(r)));for(;;){let r=[];for(const o of n){const u=o.next();if(u.done)return;r.push(u.value)}yield e(...r)}})}}function C(e,t){return e=c(e),s(function*(){for(const n of f(t))m(e(n))&&(yield n)})}function ht(e,t){return[...C(e,t)]}function dt(e,t){return C(de(e),t)}function yt(e,t){e=c(e);let n=[],r=0;for(const o of f(t))n.push(e(r,o)),r++;return n}function wt(e,t){e=c(e);let n=[],r=0;for(const o of f(t)){let u=e(r,o);m(u)&&n.push(u),r++}return n}function mt(...e){return e.join("")}function se(e){return!e}function gt(e){return e==null}const bt={};function At(e){return e===null?"null":JSON.stringify(e,(t,n)=>{switch(p(n)){case w:case S:return[...n];case x:return Object.fromEntries(n);default:return n}})}function le(...e){return e.map(At).join(" ")}function vt(...e){ne(le(...e))}function ae(e){this.val=e,this._watches={},this._deref=()=>this.val,this._hasWatches=!1,this._reset_BANG_=t=>{let n=this.val;if(this.val=t,this._hasWatches)for(let r of Object.entries(this._watches)){let o=r[0],u=r[1];u(o,this,n,t)}return t},this._add_watch=(t,n)=>{this._watches[t]=n,this._hasWatches=!0},this._remove_watch=t=>{delete this._watches[t]}}function Mt(e){return new ae(e)}function pe(e){return e._deref()}function xe(e,t){e._reset_BANG_(t)}function Et(e,t,...n){t=c(t);const r=t(pe(e),...n);return xe(e,r),r}function Rt(e,t,n){return s(function*(){let r=e,o=t,u=n;t===void 0&&(r=0,o=e);let i=r||0;for(u=n||1;o===void 0||i<o;)yield i,i+=u})}function Kt(e,t){let n=e.exec(t);if(n&&t===n[0])return n.length===1?n[0]:n}function Qt(e,t,n){return e.slice(t,n)}function $(...e){return e}function St(e){return p(e)===h}function _e(...e){return[...M(...e)]}function E(e){return ye(e)?e:[...f(e)]}function jt(e){return new Set(f(e))}function Nt(e,...t){e=c(e);const n=t.slice(0,t.length-1),r=t[t.length-1];return e(...n,...r)}function he(e){return e%2==0}function Ot(e){return!he(e)}function de(e){return e=c(e),(...t)=>se(e(...t))}function It(e){return(...t)=>e}class I extends Array{constructor(...t){super(),this.push(...t)}}function kt(e){return p(e)===A}function Tt(...e){return new I(...e)}function ye(e){return e instanceof Array}function we(...e){return s(function*(){for(const t of e)yield*f(t)})}function Gt(e,...t){return we(...M(e,...t))}function me(e){return e}function ge(...e){return s(function*(){const t=e.map(n=>O(f(n)));for(;;){let n=[];for(const r of t){const o=r.next();if(o.done)return;n.push(o.value)}yield*n}})}function Bt(e,t){return T(1,ge(F(e),t))}function Lt(e,t){const n=p(e),r=j(n)||{};for(const o of t){const u=_(e,o);u!=null&&b(r,o,u)}return r}function Pt(e,...t){let n=e,r=t[0];return t.length===2&&([n,r]=t),be(e,n,[],r,!0)}function zt(e,...t){let n=e,r=[],o=t[0];return t.length===2?[n,o]=t:t.length>2&&([n,r,o]=t),be(e,n,r,o,!1)}function be(e,t,n,r,o){return s(function*(){let u=[],i=0;for(let l of f(r))i<e&&(u.push(l),u.length===e&&(yield u,u=t<e?u.slice(t):[])),i++,i===t&&(i=0);u.length>0&&(u.length===e||o?yield u:n.length&&(u.push(...n.slice(0,e-u.length)),yield u))})}function Yt(e,t){return e=c(e),s(function*(){let n=O(t),r=n.next();r.done&&(yield*null);let o=r.value,u=e(o),i=[o],l=[];for(;;){let a=n.next();if(a.done){yield i;break}let g=a.value,d=e(g);u==d?i.push(g):(yield i,l.push(g),i=l,u=d,l=[])}})}function Ae(e){const t=p(e);if(t!=null)return j(t);throw new Error(`Can't create empty of ${typeof e}`)}function qt(...e){const t=e[0];let n;return t==null?n={}:n=Ee(Ae(t),t),P(n,...e.slice(1))}function ve(e){return e[0]}function Me(e){return e[1]}function Ct(e,...t){e=c(e);var n=!1;for(const r of t)if(r!=null){n=!0;break}if(n){let r=(u,i)=>{let l=ve(i),a=Me(i);return ee(u,l)?v(u,l,e(_(u,l),a)):v(u,l,a)};return B((u,i)=>B(r,u||{},Y(i)),t)}else return null}function $t(){return performance.now()}function Ee(...e){switch(e.length){case 0:return[];case 1:return e[0];default:return Z(e[0]??[],...f(e[1]))}}function Ft(e,t){return e===t}function F(...e){if(e.length==0||e.length>2)throw new Error(`Invalid arity: ${e.length}`);return{[z]:!0,[ue]:e.length==1?function*(){let t=e[0];for(;;)yield t}:function*(){let[t,n]=e;for(var r=0;r<t;r++)yield n}}}function k(e,t){return s(function*(){let n=e-1;for(const r of f(t))if(n-->=0&&(yield r),n<0)return})}function Re(e,t){return e=c(e),s(function*(){for(const n of f(t))if(m(e(n)))yield n;else return})}function Vt(e,t){return e<=0?F(R(t)):s(function*(){let n=0;for(let r of f(t))n%e===0&&(yield r),n++})}function Wt(e,...t){return e=c(e),function(...n){return e(...t,...n)}}function Jt(e){return s(function*(){for(;;)yield*e})}function T(e,t){return s(function*(){let n=N(f(t));for(let r=0;r<e;r++)n.next();yield*n})}function Ke(e,t){return e=c(e),s(function*(){let n=N(f(t));for(;;){let r=n.next();if(r.done)break;let o=r.value;if(!m(e(o))){yield o;break}}yield*n})}function Dt(e){return s(function*(){let t=new Set;for(const n of f(e))t.has(n)||(yield n),t.add(n)})}function Ut(e,t,n,...r){return n=c(n),v(e,t,n(_(e,t),...r))}function Qe(e,t,n){let r=e;for(const o of t)r=_(r,o);return r===void 0?n:r}function Xt(e,t,n,...r){return n=c(n),X(e,t,n(Qe(e,t),...r))}function V(e,t,...n){return e=c(e),function(r,...o){return r?e(r,...n,...o):e(t,...n,...o)}}function Se(e,t){e=c(e);for(let n of f(t))if(!e(n))return!1;return!0}function Zt(e,t){return!Se(e,t)}function Ht(e,t){return e=c(e),s(function*(){for(const n of f(t)){const r=e(n);m(r)&&(yield r)}})}function en(e){return e instanceof Array?e.reverse():[...e].reverse()}function je(e,t){return t===void 0&&(t=e,e=void 0),e=c(e),[...t].sort(e)}function tn(e){return e===J?e:(t,n)=>{let r=e(t,n);return Le(r)?r:r?-1:e(n,t)?1:0}}function nn(e,t,n){return n===void 0&&(n=t,t=J),e=c(e),t=c(t),je((r,o)=>{let u=tn(t),i=e(r),l=e(o);return u(i,l)},n)}function rn(e){return[...e].sort(function(t,n){return Math.random()-.5})}function Ne(e,t){e=c(e);for(const n of f(t)){const r=e(n);if(m(r))return r}}function on(e,t){return e=c(e),!Ne(e,t)}function un(e,t){return(t instanceof Array?_e:M)(r=>{const o=e[r];return o!==void 0?o:r},t)}function fn(e){return!Y(e)}function Oe(e){return Math.floor(Math.random()*e)}function cn(e){let t=Oe(Q(e));return re(e,t)}function sn(e){return s(function*(){for(;;)yield e()})}function ln(e,t){t===void 0&&(t=e,e=void 0);const n=sn(t);return e?k(e,n):n}function W(e,t,n,...r){const o=_(e,t);return b(e,t,n(o,...r))}function an(e,t){const n={};for(const r of f(t)){const o=e(r);W(n,o,V(P,[]),r)}return n}function pn(e){const t={},n=V(te,0);for(const r of f(e))W(t,r,n);return t}class xn{constructor(t){this.f=t,this.res=void 0}*[Symbol.iterator](){this.res===void 0&&(this.res=this.f(),this.f=null),yield*f(this.res)}}function _n(e){let t=[...f(e)];return t.pop(),t.length>0?t:null}function hn(...e){let[t,n]=e.length>1?e:[1,e[0]];return M((r,o)=>r,n,T(t,n))}function dn(e,t){return[k(e,t),T(e,t)]}function yn(e,t){return[Re(e,t),Ke(e,t)]}function Q(e){if(!e)return 0;const t=e.length||e.size;if(typeof t=="number")return t;let n=0;for(const r of f(e))n++;return n}function wn(e){return e===!0}function mn(e){return e===!1}function gn(e){return e!=null}function bn(e){return!!e}function An(e){return e===0}function vn(e){return e<0}function Mn(e){return e>0}function En(...e){var t=0;let n={};for(;!(t>=e.length);)n[e[t]]=e[t+1],t=t+2;return n}function Rn(e){return e.length}function Kn(e,t,n,...r){if(r.length==0)return e[t]=n,n;{let o=[t,n,...r],u=o[o.length-1],i=e,l=0,a=o.length-2;for(;l<a;l++)i=i[o[l]];return i[o[l]]=u,n}}function Qn(e){for(const t of f(e));return null}function Sn(e){return E(e)}function jn(e){return[...e]}function Nn(e,t,n){return e._add_watch(t,n)}function On(e,t){return e._remove_watch(t)}function In(e,t,n){if(!n)return t;var r=t;for(let o of Object.entries(n))r=e(r,o[0],o[1]);return r}function Ie(e,t,...n){return t==null?e:Math.max(e,t,...n)}function kn(e,t,...n){return t==null?e:Math.min(e,t,...n)}function Tn(e){return e instanceof Object}function Gn(...e){return(...t)=>{for(let n of e)for(let r of t)if(!n(r))return!1;return!0}}function Bn(...e){return(...t)=>{for(let n of e)for(let r of t){let o=n(r);if(o)return o}}}function ke(e,t){return E(t||e)}function Ln(e,t){var n=t;return s(function*(){for(;;)yield n,n=e(n)})}function Pn(...e){return e=e.map(c),(...t)=>{let n=[];for(let r of e)n.push(r(...t));return n}}function Te(e){if(e instanceof Array){let t=e.slice(1);return t.length>0?t:null}else return Te(E(e))}function J(e,t){if(e===t)return 0;if(e==null)return-1;if(t==null)return 1;if(typeof e=="number"){if(typeof t=="number")return e===t?0:e<t?-1:1;throw new Error("comparing number to other type")}else throw new Error("comparing number to other type")}function zn(e){return ke(e)}function m(e){return e!=null&&e!==!1}function Ge(e,t,n){return e.substring(t,n)}function Yn(e){return typeof e=="function"}function*Be(e,t){let n=e.exec(t);if(n){let r=n[0],o=n.length===1?r:E(n);yield*ce(o,s(function*(){let u=n.index+Ie(1,r.length);u<=t.length&&(yield*Be(e,Ge(t,u)))}))}}function qn(e){return Number.isNaN(e)}function Le(e){return typeof e=="number"}function Pe(e){return e?Object.keys(e):null}function Cn(e){return Pe(e)}function $n(e){return e?Object.values(e):null}function ze(e){return typeof e=="string"}function Fn(e){return p(e)!=null}function Vn(e){return e instanceof RegExp}class D extends Error{constructor(t,n,r){super(t),this._data=n,this._cause=r}}function Wn(e){return e instanceof D?e._data:null}function Jn(e){return e instanceof Error?e.message:null}function Dn(e){return e instanceof D?e._cause:null}function Un(e,t,n){return new D(e,t,n)}function Ye(e){return Number.isInteger(e)}const Xn=Ye,qe=Symbol("meta");function Zn(e){return e instanceof Object?e[qe]:null}function Hn(e,t){let n=U(e);return n[qe]=t,n}function er(e){return e===!0||e===!1}function Ce(e){switch(p(e)){case w:return!0}return!1}function tr(e,t){return Ce(t)?Q(t):Q(k(e,t))}function nr(e,t){let n=_(e,t);if(n!==void 0)return[t,n]}function rr(e,t){return(e%t+t)%t}function or(e,t,...n){if(n.length==0)return t;var r=e(t),o=t;return n.forEach(u=>{var i=e(u);i<=r&&(r=i,o=u)}),o}function ur(e,t,...n){if(n.length==0)return t;var r=e(t),o=t;return n.forEach(u=>{var i=e(u);i>=r&&(r=i,o=u)}),o}function ir(e){throw new Error(`Expected string, got: ${typeof e}`)}function fr(e){if(ze(e)){if(/^[+-]?\d+$/.test(e)){let t=parseInt(e);if(Number.MIN_SAFE_INTEGER<=t<=Number.MAX_SAFE_INTEGER)return t}return null}return ir(e)}return De(cr);})();
|
|
1
|
+
var squint;(squint||={}).core=(()=>{var G=Object.defineProperty;var $e=Object.getOwnPropertyDescriptor;var Fe=Object.getOwnPropertyNames;var Ve=Object.prototype.hasOwnProperty;var We=(e,t)=>{for(var n in t)G(e,n,{get:t[n],enumerable:!0})},Je=(e,t,n,r)=>{if(t&&typeof t=="object"||typeof t=="function")for(let o of Fe(t))!Ve.call(e,o)&&o!==n&&G(e,o,{get:()=>t[o],enumerable:!(r=$e(t,o))||r.enumerable});return e};var De=e=>Je(G({},"__esModule",{value:!0}),e);var cr={};We(cr,{Atom:()=>ae,Cons:()=>fe,IIterable:()=>z,IIterable__iterator:()=>ue,LazySeq:()=>xn,NaN_QMARK_:()=>qn,PROTOCOL_SENTINEL:()=>bt,_:()=>Ze,_GT_:()=>Ue,_PLUS_:()=>Xe,_iterator:()=>N,aclone:()=>jn,add_watch:()=>Nn,alength:()=>Rn,apply:()=>Nt,array_QMARK_:()=>ye,aset:()=>Kn,assoc:()=>v,assoc_BANG_:()=>b,assoc_in:()=>X,assoc_in_BANG_:()=>nt,atom:()=>Mt,boolean$:()=>bn,boolean_QMARK_:()=>er,bounded_count:()=>tr,butlast:()=>_n,coll_QMARK_:()=>Fn,comp:()=>rt,compare:()=>J,complement:()=>de,concat:()=>we,conj:()=>Z,conj_BANG_:()=>P,cons:()=>ce,constantly:()=>Ot,contains_QMARK_:()=>ee,count:()=>Q,counted_QMARK_:()=>Ce,cycle:()=>Jt,dec:()=>ft,deref:()=>pe,disj:()=>ot,disj_BANG_:()=>H,dissoc:()=>it,dissoc_BANG_:()=>ut,distinct:()=>Dt,doall:()=>Sn,dorun:()=>Qn,drop:()=>T,drop_last:()=>hn,drop_while:()=>Ke,empty:()=>Ae,empty_QMARK_:()=>fn,es6_iterator:()=>I,even_QMARK_:()=>he,every_QMARK_:()=>Se,every_pred:()=>Gn,ex_cause:()=>Dn,ex_data:()=>Wn,ex_info:()=>Un,ex_message:()=>Jn,false_QMARK_:()=>gn,ffirst:()=>st,filter:()=>C,filterv:()=>ht,find:()=>nr,first:()=>R,fn_QMARK_:()=>Yn,fnil:()=>V,frequencies:()=>pn,get:()=>h,get_in:()=>Qe,group_by:()=>an,identical_QMARK_:()=>Ft,identity:()=>ge,inc:()=>te,int_QMARK_:()=>Ye,integer_QMARK_:()=>Xn,interleave:()=>me,interpose:()=>Bt,into:()=>Ee,into_array:()=>ke,iterable:()=>f,iterate:()=>Ln,js_keys:()=>Cn,js_obj:()=>En,juxt:()=>Pn,keep:()=>Ht,keep_indexed:()=>wt,key:()=>ve,keys:()=>Pe,last:()=>at,lazy:()=>s,list:()=>Tt,list_QMARK_:()=>kt,map:()=>M,map_QMARK_:()=>Tn,map_indexed:()=>yt,mapcat:()=>Gt,mapv:()=>_e,max:()=>Oe,max_key:()=>ur,merge:()=>qt,merge_with:()=>Ct,meta:()=>Zn,min:()=>kn,min_key:()=>or,mod:()=>rr,neg_QMARK_:()=>vn,next:()=>Te,nil_QMARK_:()=>mt,not:()=>se,not_any_QMARK_:()=>on,not_every_QMARK_:()=>Zt,nth:()=>re,number_QMARK_:()=>Le,object_QMARK_:()=>et,odd_QMARK_:()=>It,parse_long:()=>fr,partial:()=>Wt,partition:()=>zt,partition_all:()=>Pt,partition_by:()=>Yt,pos_QMARK_:()=>Mn,pr_str:()=>le,println:()=>ne,prn:()=>vt,rand_int:()=>Ie,rand_nth:()=>cn,range:()=>Rt,re_matches:()=>Kt,re_seq:()=>Be,reduce:()=>B,reduce_kv:()=>On,reduced:()=>pt,reduced_QMARK_:()=>xt,regexp_QMARK_:()=>Vn,remove:()=>dt,remove_watch:()=>In,repeat:()=>F,repeatedly:()=>ln,replace:()=>un,reset_BANG_:()=>xe,rest:()=>lt,reverse:()=>en,satisfies_QMARK_:()=>He,second:()=>ct,select_keys:()=>Lt,seq:()=>Y,seqable_QMARK_:()=>oe,set:()=>jt,shuffle:()=>rn,some:()=>Ne,some_QMARK_:()=>mn,some_fn:()=>Bn,sort:()=>je,sort_by:()=>nn,split_at:()=>dn,split_with:()=>yn,str:()=>gt,string_QMARK_:()=>ze,subs:()=>Ge,subvec:()=>Qt,swap_BANG_:()=>Et,system_time:()=>$t,t:()=>g,take:()=>k,take_nth:()=>Vt,take_while:()=>Re,to_array:()=>zn,true_QMARK_:()=>wn,update:()=>Ut,update_BANG_:()=>W,update_in:()=>Xt,val:()=>Me,vals:()=>$n,vec:()=>E,vector:()=>$,vector_QMARK_:()=>St,warn_on_lazy_reusage_BANG_:()=>_t,with_meta:()=>Hn,zero_QMARK_:()=>An});function c(e){if(e==null||e instanceof Function)return e;let t=typeof e;return t==="string"?(n,r)=>h(n,e,r):t==="object"?(n,r)=>h(e,n,r):e}globalThis.toFn=c;function Ue(e,t){return e>t}function Xe(...e){return e.reduce((t,n)=>t+n,0)}function Ze(...e){return e.length==1?0-e[0]:e.reduce((t,n)=>t-n)}function He(e,t){return t[e]}function b(e,t,n,...r){if(r.length%2!==0)throw new Error("Illegal argument: assoc expects an odd number of arguments.");switch(p(e)){case x:e.set(t,n);for(let o=0;o<r.length;o+=2)e.set(r[o],r[o+1]);break;case _:case y:e[t]=n;for(let o=0;o<r.length;o+=2)e[r[o]]=r[o+1];break;default:throw new Error("Illegal argument: assoc! expects a Map, Array, or Object as the first argument.")}return e}function U(e){switch(p(e)){case x:return new Map(e.entries());case _:return[...e];case y:return{...e};default:throw new Error(`Don't know how to copy object of type ${typeof e}.`)}}function v(e,t,n,...r){e||(e={});let o=U(e);return b(o,t,n,...r),o}const x=1,_=2,y=3,A=4,w=5,S=6;function j(e){switch(e){case x:return new Map;case _:return[];case y:return{};case A:return new O;case w:return new Set;case S:return s(function*(){})}}function L(e){return e.constructor===Object}function et(e){return e!=null&&L(e)}function p(e){if(e!=null){if(L(e))return y;if(e instanceof Map)return x;if(e instanceof Set)return w;if(e instanceof O)return A;if(e instanceof Array)return _;if(e instanceof q)return S}}function tt(e,t,n,r,o){let u=p(n);if(u!==x&&u!==_&&u!==y)throw new Error(`Illegal argument: ${t} expects the first argument to be a Map, Array, or Object.`);const i=[n];let l=n;for(let a=0;a<r.length-1;a+=1){let m=r[a],d;l instanceof Map?d=l.get(m):d=l[m],d||(d=j(u)),i.push(d),l=d}i.push(o);for(let a=i.length-2;a>=0;a-=1)i[a]=e(i[a],r[a],i[a+1]);return i[0]}function X(e,t,n){return tt(v,"assoc-in",e,t,n)}function nt(e,t,n){var r=e;let o=p(e);for(const u of t.splice(0,t.length-1)){let i=h(r,u);i===void 0&&(i=j(o),b(r,u,i)),r=i}return b(r,t[t.length-1],n),e}function rt(...e){if(e=e.map(c),e.length===0)return ge;if(e.length===1)return e[0];let[t,...n]=e.slice().reverse();return function(...r){let o=t(...r);for(const u of n)o=u(o);return o}}function P(...e){if(e.length===0)return $();let[t,...n]=e;switch(t==null&&(t=[]),p(t)){case w:for(const r of n)t.add(r);break;case A:t.unshift(...n.reverse());break;case _:t.push(...n);break;case x:for(const r of n)r instanceof Array?t.set(r[0],r[1]):f(r).forEach(o=>{t.set(o[0],o[1])});break;case y:for(const r of n)r instanceof Array?t[r[0]]=r[1]:Object.assign(t,r);break;default:throw new Error("Illegal argument: conj! expects a Set, Array, List, Map, or Object as the first argument.")}return t}function Z(...e){if(e.length===0)return $();let[t,...n]=e;switch(t==null&&(t=[]),p(t)){case w:return new Set([...t,...n]);case A:return new O(...n.reverse(),...t);case _:return[...t,...n];case x:const r=new Map(t);for(const u of n)u instanceof Array?r.set(u[0],u[1]):f(u).forEach(i=>{r.set(i[0],i[1])});return r;case S:return s(function*(){yield*n,yield*t});case y:const o={...t};for(const u of n)u instanceof Array?o[u[0]]=u[1]:Object.assign(o,u);return o;default:throw new Error("Illegal argument: conj expects a Set, Array, List, Map, or Object as the first argument.")}}function H(e,...t){for(const n of t)e.delete(n);return e}function ot(e,...t){let n=new Set([...e]);return H(n,...t)}function ee(e,t){switch(p(e)){case w:case x:return e.has(t);case void 0:return!1;default:return t in e}}function ut(e,...t){for(const n of t)delete e[n];return e}function it(e,...t){let n={...e};for(const r of t)delete n[r];return n}function te(e){return e+1}function ft(e){return e-1}function ne(...e){console.log(...e)}function re(e,t,n){if(e){var r=void 0;if(e instanceof Array)r=e[t];else{let o=f(e),u=0;for(let i of o)if(u++==t){r=i;break}}if(r!==void 0)return r}return n}function h(e,t,n=void 0){if(e==null)return n;let r;if(L(e))return r=e[t],r===void 0?n:r;switch(p(e)){case w:e.has(t)&&(r=t);break;case x:r=e.get(t);break;case _:r=e[t];break;default:if(e.get instanceof Function){r=e.get(t);break}r=e[t];break}return r!==void 0?r:n}function oe(e){return typeof e=="string"||e===null||e===void 0||e instanceof Object&&Symbol.iterator in e}function f(e){return e==null?[]:oe(e)?e:Object.entries(e)}const z=Symbol("Iterable"),ue=Symbol.iterator;function N(e){return e[Symbol.iterator]()}const I=N;function Y(e){let t=f(e);return t.length===0||t.size===0?null:t}function R(e){let[t]=f(e);return t}function ct(e){let[t,n]=f(e);return n}function st(e){return R(R(e))}function lt(e){return s(function*(){let t=!0;for(const n of f(e))t?t=!1:yield n})}class K{value;constructor(t){this.value=t}_deref(){return this.value}}function at(e){switch(e=f(e),p(e)){case _:return e[e.length-1];default:let t;for(const n of e)t=n;return t}}function pt(e){return new K(e)}function xt(e){return e instanceof K}function B(e,t,n){e=c(e);let r,o;if(n===void 0){let u=f(t)[Symbol.iterator]();o=u.next().value,r=u}else o=t,r=f(n);if(o instanceof K)return o.value;for(const u of r)if(o=e(o,u),o instanceof K){o=o.value;break}return o}var ie=!1;function _t(){ie=!0}class q{constructor(t){this.gen=t,this.usages=0}[Symbol.iterator](){if(this.usages++,this.usages>=2&&ie)try{throw new Error}catch(t){console.warn("Re-use of lazy value",t.stack)}return this.gen()}}q.prototype[z]=!0;function s(e){return new q(e)}class fe{constructor(t,n){this.x=t,this.coll=n}*[Symbol.iterator](){yield this.x,yield*f(this.coll)}}function ce(e,t){return new fe(e,t)}function M(e,...t){switch(e=c(e),t.length){case 0:throw new Error("map with 2 arguments is not supported yet");case 1:return s(function*(){for(const n of f(t[0]))yield e(n)});default:return s(function*(){const n=t.map(r=>I(f(r)));for(;;){let r=[];for(const o of n){const u=o.next();if(u.done)return;r.push(u.value)}yield e(...r)}})}}function C(e,t){return e=c(e),s(function*(){for(const n of f(t))g(e(n))&&(yield n)})}function ht(e,t){return[...C(e,t)]}function dt(e,t){return C(de(e),t)}function yt(e,t){e=c(e);let n=[],r=0;for(const o of f(t))n.push(e(r,o)),r++;return n}function wt(e,t){e=c(e);let n=[],r=0;for(const o of f(t)){let u=e(r,o);g(u)&&n.push(u),r++}return n}function gt(...e){return e.join("")}function se(e){return!e}function mt(e){return e==null}const bt={};function At(e){return e===null?"null":JSON.stringify(e,(t,n)=>{switch(p(n)){case w:case S:return[...n];case x:return Object.fromEntries(n);default:return n}})}function le(...e){return e.map(At).join(" ")}function vt(...e){ne(le(...e))}function ae(e){this.val=e,this._watches={},this._deref=()=>this.val,this._hasWatches=!1,this._reset_BANG_=t=>{let n=this.val;if(this.val=t,this._hasWatches)for(let r of Object.entries(this._watches)){let o=r[0],u=r[1];u(o,this,n,t)}return t},this._add_watch=(t,n)=>{this._watches[t]=n,this._hasWatches=!0},this._remove_watch=t=>{delete this._watches[t]}}function Mt(e){return new ae(e)}function pe(e){return e._deref()}function xe(e,t){e._reset_BANG_(t)}function Et(e,t,...n){t=c(t);const r=t(pe(e),...n);return xe(e,r),r}function Rt(e,t,n){return s(function*(){let r=e,o=t,u=n;t===void 0&&(r=0,o=e);let i=r||0;for(u=n||1;o===void 0||i<o;)yield i,i+=u})}function Kt(e,t){let n=e.exec(t);if(n&&t===n[0])return n.length===1?n[0]:n}function Qt(e,t,n){return e.slice(t,n)}function $(...e){return e}function St(e){return p(e)===_}function _e(...e){return[...M(...e)]}function E(e){return ye(e)?e:[...f(e)]}function jt(e){return new Set(f(e))}function Nt(e,...t){e=c(e);const n=t.slice(0,t.length-1),r=t[t.length-1];return e(...n,...r)}function he(e){return e%2==0}function It(e){return!he(e)}function de(e){return e=c(e),(...t)=>se(e(...t))}function Ot(e){return(...t)=>e}class O extends Array{constructor(...t){super(),this.push(...t)}}function kt(e){return p(e)===A}function Tt(...e){return new O(...e)}function ye(e){return e instanceof Array}function we(...e){return s(function*(){for(const t of e)yield*f(t)})}function Gt(e,...t){return we(...M(e,...t))}function ge(e){return e}function me(...e){return s(function*(){const t=e.map(n=>I(f(n)));for(;;){let n=[];for(const r of t){const o=r.next();if(o.done)return;n.push(o.value)}yield*n}})}function Bt(e,t){return T(1,me(F(e),t))}function Lt(e,t){const n=p(e),r=j(n)||{};for(const o of t){const u=h(e,o);u!=null&&b(r,o,u)}return r}function Pt(e,...t){let n=e,r=t[0];return t.length===2&&([n,r]=t),be(e,n,[],r,!0)}function zt(e,...t){let n=e,r=[],o=t[0];return t.length===2?[n,o]=t:t.length>2&&([n,r,o]=t),be(e,n,r,o,!1)}function be(e,t,n,r,o){return s(function*(){let u=[],i=0;for(let l of f(r))i<e&&(u.push(l),u.length===e&&(yield u,u=t<e?u.slice(t):[])),i++,i===t&&(i=0);u.length>0&&(u.length===e||o?yield u:n.length&&(u.push(...n.slice(0,e-u.length)),yield u))})}function Yt(e,t){return e=c(e),s(function*(){let n=I(t),r=n.next();r.done&&(yield*null);let o=r.value,u=e(o),i=[o],l=[];for(;;){let a=n.next();if(a.done){yield i;break}let m=a.value,d=e(m);u==d?i.push(m):(yield i,l.push(m),i=l,u=d,l=[])}})}function Ae(e){const t=p(e);if(t!=null)return j(t);throw new Error(`Can't create empty of ${typeof e}`)}function qt(...e){const t=e[0];let n;return t==null?n={}:n=Ee(Ae(t),t),P(n,...e.slice(1))}function ve(e){return e[0]}function Me(e){return e[1]}function Ct(e,...t){e=c(e);var n=!1;for(const r of t)if(r!=null){n=!0;break}if(n){let r=(u,i)=>{let l=ve(i),a=Me(i);return ee(u,l)?v(u,l,e(h(u,l),a)):v(u,l,a)};return B((u,i)=>B(r,u||{},Y(i)),t)}else return null}function $t(){return performance.now()}function Ee(...e){switch(e.length){case 0:return[];case 1:return e[0];default:return Z(e[0]??[],...f(e[1]))}}function Ft(e,t){return e===t}function F(...e){if(e.length==0||e.length>2)throw new Error(`Invalid arity: ${e.length}`);return{[z]:!0,[ue]:e.length==1?function*(){let t=e[0];for(;;)yield t}:function*(){let[t,n]=e;for(var r=0;r<t;r++)yield n}}}function k(e,t){return s(function*(){let n=e-1;for(const r of f(t))if(n-->=0&&(yield r),n<0)return})}function Re(e,t){return e=c(e),s(function*(){for(const n of f(t))if(g(e(n)))yield n;else return})}function Vt(e,t){return e<=0?F(R(t)):s(function*(){let n=0;for(let r of f(t))n%e===0&&(yield r),n++})}function Wt(e,...t){return e=c(e),function(...n){return e(...t,...n)}}function Jt(e){return s(function*(){for(;;)yield*e})}function T(e,t){return s(function*(){let n=N(f(t));for(let r=0;r<e;r++)n.next();yield*n})}function Ke(e,t){return e=c(e),s(function*(){let n=N(f(t));for(;;){let r=n.next();if(r.done)break;let o=r.value;if(!g(e(o))){yield o;break}}yield*n})}function Dt(e){return s(function*(){let t=new Set;for(const n of f(e))t.has(n)||(yield n),t.add(n)})}function Ut(e,t,n,...r){return n=c(n),v(e,t,n(h(e,t),...r))}function Qe(e,t,n){let r=e;for(const o of t)r=h(r,o);return r===void 0?n:r}function Xt(e,t,n,...r){return n=c(n),X(e,t,n(Qe(e,t),...r))}function V(e,t,...n){return e=c(e),function(r,...o){return r?e(r,...n,...o):e(t,...n,...o)}}function Se(e,t){e=c(e);for(let n of f(t))if(!e(n))return!1;return!0}function Zt(e,t){return!Se(e,t)}function Ht(e,t){return e=c(e),s(function*(){for(const n of f(t)){const r=e(n);g(r)&&(yield r)}})}function en(e){return e instanceof Array?e.reverse():[...e].reverse()}function je(e,t){return t===void 0&&(t=e,e=void 0),e=c(e),[...t].sort(e)}function tn(e){return e===J?e:(t,n)=>{let r=e(t,n);return Le(r)?r:r?-1:e(n,t)?1:0}}function nn(e,t,n){return n===void 0&&(n=t,t=J),e=c(e),t=c(t),je((r,o)=>{let u=tn(t),i=e(r),l=e(o);return u(i,l)},n)}function rn(e){return[...e].sort(function(t,n){return Math.random()-.5})}function Ne(e,t){e=c(e);for(const n of f(t)){const r=e(n);if(g(r))return r}}function on(e,t){return e=c(e),!Ne(e,t)}function un(e,t){return(t instanceof Array?_e:M)(r=>{const o=e[r];return o!==void 0?o:r},t)}function fn(e){return!Y(e)}function Ie(e){return Math.floor(Math.random()*e)}function cn(e){let t=Ie(Q(e));return re(e,t)}function sn(e){return s(function*(){for(;;)yield e()})}function ln(e,t){t===void 0&&(t=e,e=void 0);const n=sn(t);return e?k(e,n):n}function W(e,t,n,...r){const o=h(e,t);return b(e,t,n(o,...r))}function an(e,t){const n={};for(const r of f(t)){const o=e(r);W(n,o,V(P,[]),r)}return n}function pn(e){const t={},n=V(te,0);for(const r of f(e))W(t,r,n);return t}class xn{constructor(t){this.f=t,this.res=void 0}*[Symbol.iterator](){this.res===void 0&&(this.res=this.f(),this.f=null),yield*f(this.res)}}function _n(e){let t=[...f(e)];return t.pop(),t.length>0?t:null}function hn(...e){let[t,n]=e.length>1?e:[1,e[0]];return M((r,o)=>r,n,T(t,n))}function dn(e,t){return[k(e,t),T(e,t)]}function yn(e,t){return[Re(e,t),Ke(e,t)]}function Q(e){if(!e)return 0;const t=e.length||e.size;if(typeof t=="number")return t;let n=0;for(const r of f(e))n++;return n}function wn(e){return e===!0}function gn(e){return e===!1}function mn(e){return e!=null}function bn(e){return!!e}function An(e){return e===0}function vn(e){return e<0}function Mn(e){return e>0}function En(...e){var t=0;let n={};for(;!(t>=e.length);)n[e[t]]=e[t+1],t=t+2;return n}function Rn(e){return e.length}function Kn(e,t,n,...r){if(r.length==0)return e[t]=n,n;{let o=[t,n,...r],u=o[o.length-1],i=e,l=0,a=o.length-2;for(;l<a;l++)i=i[o[l]];return i[o[l]]=u,n}}function Qn(e){for(const t of f(e));return null}function Sn(e){return E(e)}function jn(e){return[...e]}function Nn(e,t,n){return e._add_watch(t,n)}function In(e,t){return e._remove_watch(t)}function On(e,t,n){if(!n)return t;var r=t;for(let o of Object.entries(n))r=e(r,o[0],o[1]);return r}function Oe(e,t,...n){return t==null?e:Math.max(e,t,...n)}function kn(e,t,...n){return t==null?e:Math.min(e,t,...n)}function Tn(e){return e instanceof Object}function Gn(...e){return(...t)=>{for(let n of e)for(let r of t)if(!n(r))return!1;return!0}}function Bn(...e){return(...t)=>{for(let n of e)for(let r of t){let o=n(r);if(o)return o}}}function ke(e,t){return E(t||e)}function Ln(e,t){var n=t;return s(function*(){for(;;)yield n,n=e(n)})}function Pn(...e){return e=e.map(c),(...t)=>{let n=[];for(let r of e)n.push(r(...t));return n}}function Te(e){if(e instanceof Array){let t=e.slice(1);return t.length>0?t:null}else return Te(E(e))}function J(e,t){if(e===t)return 0;if(e==null)return-1;if(t==null)return 1;if(typeof e=="number"){if(typeof t=="number")return e===t?0:e<t?-1:1;throw new Error("comparing number to other type")}else throw new Error("comparing number to other type")}function zn(e){return ke(e)}function g(e){return e!=null&&e!==!1}function Ge(e,t,n){return e.substring(t,n)}function Yn(e){return typeof e=="function"}function*Be(e,t){let n=e.exec(t);if(n){let r=n[0],o=n.length===1?r:E(n);yield*ce(o,s(function*(){let u=n.index+Oe(1,r.length);u<=t.length&&(yield*Be(e,Ge(t,u)))}))}}function qn(e){return Number.isNaN(e)}function Le(e){return typeof e=="number"}function Pe(e){return e?Object.keys(e):null}function Cn(e){return Pe(e)}function $n(e){return e?Object.values(e):null}function ze(e){return typeof e=="string"}function Fn(e){return p(e)!=null}function Vn(e){return e instanceof RegExp}class D extends Error{constructor(t,n,r){super(t),this._data=n,this._cause=r}}function Wn(e){return e instanceof D?e._data:null}function Jn(e){return e instanceof Error?e.message:null}function Dn(e){return e instanceof D?e._cause:null}function Un(e,t,n){return new D(e,t,n)}function Ye(e){return Number.isInteger(e)}const Xn=Ye,qe=Symbol("meta");function Zn(e){return e instanceof Object?e[qe]:null}function Hn(e,t){let n=U(e);return n[qe]=t,n}function er(e){return e===!0||e===!1}function Ce(e){switch(p(e)){case w:return!0}return!1}function tr(e,t){return Ce(t)?Q(t):Q(k(e,t))}function nr(e,t){let n=h(e,t);if(n!==void 0)return[t,n]}function rr(e,t){return(e%t+t)%t}function or(e,t,...n){if(n.length==0)return t;var r=e(t),o=t;return n.forEach(u=>{var i=e(u);i<=r&&(r=i,o=u)}),o}function ur(e,t,...n){if(n.length==0)return t;var r=e(t),o=t;return n.forEach(u=>{var i=e(u);i>=r&&(r=i,o=u)}),o}function ir(e){throw new Error(`Expected string, got: ${typeof e}`)}function fr(e){if(ze(e)){if(/^[+-]?\d+$/.test(e)){let t=parseInt(e);if(Number.MIN_SAFE_INTEGER<=t<=Number.MAX_SAFE_INTEGER)return t}return null}return ir(e)}return De(cr);})();
|
package/package.json
CHANGED
package/src/squint/core.js
CHANGED
|
@@ -20,7 +20,7 @@ function toFn(x) {
|
|
|
20
20
|
|
|
21
21
|
globalThis.toFn = toFn;
|
|
22
22
|
|
|
23
|
-
export function _GT_(x,y) {
|
|
23
|
+
export function _GT_(x, y) {
|
|
24
24
|
return x > y;
|
|
25
25
|
}
|
|
26
26
|
|
|
@@ -31,7 +31,7 @@ export function _PLUS_(...xs) {
|
|
|
31
31
|
export function _(...xs) {
|
|
32
32
|
if (xs.length == 1) {
|
|
33
33
|
return 0 - xs[0];
|
|
34
|
-
}
|
|
34
|
+
}
|
|
35
35
|
return xs.reduce((x, y) => x - y);
|
|
36
36
|
}
|
|
37
37
|
|
|
@@ -119,11 +119,11 @@ function emptyOfType(type) {
|
|
|
119
119
|
}
|
|
120
120
|
|
|
121
121
|
function isObj(coll) {
|
|
122
|
-
return
|
|
122
|
+
return coll.constructor === Object;
|
|
123
123
|
}
|
|
124
124
|
|
|
125
125
|
export function object_QMARK_(coll) {
|
|
126
|
-
return
|
|
126
|
+
return coll != null && isObj(coll);
|
|
127
127
|
}
|
|
128
128
|
|
|
129
129
|
function typeConst(obj) {
|
|
@@ -139,7 +139,7 @@ function typeConst(obj) {
|
|
|
139
139
|
if (obj instanceof List) return LIST_TYPE;
|
|
140
140
|
if (obj instanceof Array) return ARRAY_TYPE;
|
|
141
141
|
if (obj instanceof LazyIterable) return LAZY_ITERABLE_TYPE;
|
|
142
|
-
if (obj instanceof Object) return OBJECT_TYPE;
|
|
142
|
+
// if (obj instanceof Object) return OBJECT_TYPE;
|
|
143
143
|
return undefined;
|
|
144
144
|
}
|
|
145
145
|
|
|
@@ -181,7 +181,7 @@ export function assoc_in(o, keys, value) {
|
|
|
181
181
|
export function assoc_in_BANG_(o, keys, value) {
|
|
182
182
|
var currObj = o;
|
|
183
183
|
let baseType = typeConst(o);
|
|
184
|
-
for (const k of keys.splice(0,keys.length - 1)) {
|
|
184
|
+
for (const k of keys.splice(0, keys.length - 1)) {
|
|
185
185
|
let v = get(currObj, k);
|
|
186
186
|
if (v === undefined) {
|
|
187
187
|
v = emptyOfType(baseType);
|
|
@@ -405,9 +405,16 @@ export function get(coll, key, otherwise = undefined) {
|
|
|
405
405
|
case MAP_TYPE:
|
|
406
406
|
v = coll.get(key);
|
|
407
407
|
break;
|
|
408
|
-
case
|
|
408
|
+
case ARRAY_TYPE:
|
|
409
|
+
v = coll[key];
|
|
409
410
|
break;
|
|
410
411
|
default:
|
|
412
|
+
// we choose .get as the default implementation, e.g. fetch Headers are not Maps, but do implement a .get method
|
|
413
|
+
let g = coll['get'];
|
|
414
|
+
if (g instanceof Function) {
|
|
415
|
+
v = coll.get(key);
|
|
416
|
+
break;
|
|
417
|
+
}
|
|
411
418
|
v = coll[key];
|
|
412
419
|
break;
|
|
413
420
|
}
|
|
@@ -552,8 +559,7 @@ class LazyIterable {
|
|
|
552
559
|
if (this.usages >= 2 && tolr) {
|
|
553
560
|
try {
|
|
554
561
|
throw new Error();
|
|
555
|
-
}
|
|
556
|
-
catch (e) {
|
|
562
|
+
} catch (e) {
|
|
557
563
|
console.warn('Re-use of lazy value', e.stack);
|
|
558
564
|
}
|
|
559
565
|
}
|
|
@@ -567,7 +573,6 @@ export function lazy(f) {
|
|
|
567
573
|
return new LazyIterable(f);
|
|
568
574
|
}
|
|
569
575
|
|
|
570
|
-
|
|
571
576
|
export class Cons {
|
|
572
577
|
constructor(x, coll) {
|
|
573
578
|
this.x = x;
|
|
@@ -679,7 +684,7 @@ export const PROTOCOL_SENTINEL = {};
|
|
|
679
684
|
|
|
680
685
|
function pr_str_1(x) {
|
|
681
686
|
if (x === null) {
|
|
682
|
-
return
|
|
687
|
+
return 'null';
|
|
683
688
|
}
|
|
684
689
|
return JSON.stringify(x, (_key, value) => {
|
|
685
690
|
switch (typeConst(value)) {
|
|
@@ -688,10 +693,10 @@ function pr_str_1(x) {
|
|
|
688
693
|
return [...value];
|
|
689
694
|
case MAP_TYPE:
|
|
690
695
|
return Object.fromEntries(value);
|
|
691
|
-
|
|
692
|
-
|
|
693
|
-
|
|
694
|
-
|
|
696
|
+
default: {
|
|
697
|
+
// console.log(value);
|
|
698
|
+
return value;
|
|
699
|
+
}
|
|
695
700
|
}
|
|
696
701
|
});
|
|
697
702
|
}
|
|
@@ -963,7 +968,7 @@ export function partition_by(f, coll) {
|
|
|
963
968
|
let fv = f(fst);
|
|
964
969
|
let run = [fst];
|
|
965
970
|
let rst = [];
|
|
966
|
-
while(true) {
|
|
971
|
+
while (true) {
|
|
967
972
|
let next = iter.next();
|
|
968
973
|
if (next.done) {
|
|
969
974
|
yield run;
|
|
@@ -973,8 +978,7 @@ export function partition_by(f, coll) {
|
|
|
973
978
|
let _fv = f(_v);
|
|
974
979
|
if (fv == _fv) {
|
|
975
980
|
run.push(_v);
|
|
976
|
-
}
|
|
977
|
-
else {
|
|
981
|
+
} else {
|
|
978
982
|
yield run;
|
|
979
983
|
rst.push(_v);
|
|
980
984
|
run = rst;
|
|
@@ -1244,12 +1248,14 @@ export function sort(f, coll) {
|
|
|
1244
1248
|
}
|
|
1245
1249
|
|
|
1246
1250
|
function fnToComparator(f) {
|
|
1247
|
-
if (f === compare) {
|
|
1251
|
+
if (f === compare) {
|
|
1252
|
+
return f;
|
|
1253
|
+
}
|
|
1248
1254
|
return (x, y) => {
|
|
1249
1255
|
let r = f(x, y);
|
|
1250
1256
|
if (number_QMARK_(r)) {
|
|
1251
1257
|
return r;
|
|
1252
|
-
}
|
|
1258
|
+
}
|
|
1253
1259
|
if (r) {
|
|
1254
1260
|
return -1;
|
|
1255
1261
|
}
|
|
@@ -1456,8 +1462,8 @@ export function alength(arr) {
|
|
|
1456
1462
|
export function aset(arr, idx, val, ...more) {
|
|
1457
1463
|
if (more.length == 0) {
|
|
1458
1464
|
arr[idx] = val;
|
|
1459
|
-
return val;
|
|
1460
|
-
else {
|
|
1465
|
+
return val;
|
|
1466
|
+
} else {
|
|
1461
1467
|
let path = [idx, val, ...more];
|
|
1462
1468
|
let _val = path[path.length - 1];
|
|
1463
1469
|
let innerArray = arr;
|
|
@@ -1626,7 +1632,7 @@ export function to_array(aseq) {
|
|
|
1626
1632
|
}
|
|
1627
1633
|
|
|
1628
1634
|
export function t(x) {
|
|
1629
|
-
return
|
|
1635
|
+
return x != null && x !== false;
|
|
1630
1636
|
}
|
|
1631
1637
|
|
|
1632
1638
|
export function subs(s, start, end) {
|
|
@@ -1770,7 +1776,7 @@ export function find(m, k) {
|
|
|
1770
1776
|
}
|
|
1771
1777
|
|
|
1772
1778
|
export function mod(x, y) {
|
|
1773
|
-
return (x % y + y) % y;
|
|
1779
|
+
return ((x % y) + y) % y;
|
|
1774
1780
|
}
|
|
1775
1781
|
|
|
1776
1782
|
export function min_key(k, x, ...more) {
|
|
@@ -1806,7 +1812,7 @@ export function max_key(k, x, ...more) {
|
|
|
1806
1812
|
}
|
|
1807
1813
|
|
|
1808
1814
|
function parsing_err(x) {
|
|
1809
|
-
throw new Error(`Expected string, got: ${typeof
|
|
1815
|
+
throw new Error(`Expected string, got: ${typeof x}`);
|
|
1810
1816
|
}
|
|
1811
1817
|
|
|
1812
1818
|
export function parse_long(x) {
|