From 689dae7d0c82f7fd600ce0902d29602505ed2a34 Mon Sep 17 00:00:00 2001 From: giles Date: Mon, 29 Jun 2026 11:09:11 +0000 Subject: [PATCH] host+kernel: blog SPA boost works end-to-end on the WASM OCaml kernel (Playwright 4/4) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Clicking a blog link now fragment-swaps #content with URL push + working back button, no full reload — the SX-htmx engine driving the same OCaml kernel the server runs. Six bugs in the source-load + boost path, found by bisecting in chromium, all fixed: 1. Import double-apply (sx_server.ml x2, sx_browser.ml): the import suspension handlers computed `key = library_name_key lib_spec` then called `library_loaded_p key` — but library_loaded_p applies library_name_key itself, so it ran sx_to_list on a string and crashed ("Expected list, got string"). Only unloaded libs suspend, so it only bit lazy imports. Pass the spec, not the key. 2. Unloaded-import crash (spec/evaluator.sx + sx_ref.ml library_exports): an import of a not-yet-loaded library returned nil exports, and bind-import-set did (keys nil) -> crash. Return an empty dict so the import is a graceful no-op (lazy symbol resolution covers real usage). 3. value_to_js missing Integer (sx_browser.ml): integers passed to host methods were mishandled, so dom-query-all's (host-call node-list "item" i) ignored i and returned node 0 for every index — every element aliased the first, so only one link ever boosted. Add the Integer -> JS number case. 4. browser-same-origin? rejected relative URLs (browser.sx x2): it only did (starts-with? url origin), so "/alpha/" was treated as cross-origin and should-boost-link? refused every relative link. Accept scheme-less, non-protocol-relative URLs. 5. dom-query-in undefined (orchestration.sx x2): the swap path called a function that exists nowhere; it's just dom-query with a container arg. 6. Lazy-deps never loaded under source fallback (sx-platform.js): lazy symbol resolution only fires on the VM GLOBAL_GET path, but source-loaded swap callbacks run on the CEK and raise instead of lazy-loading, so the post-swap hs-boot-subtree!/htmx-boot-subtree! were undefined and aborted URL push. Preload the manifest's lazy-deps. Verified: native host conformance 271/271; lib/host/playwright/spa-check 4/4 (boot, boost, fragment swap + URL push, back button) in real chromium against an ephemeral durable host server. --- hosts/ocaml/bin/sx_server.ml | 11 +- hosts/ocaml/browser/sx_browser.ml | 6 +- hosts/ocaml/lib/sx_ref.ml | 2 +- lib/host/playwright/spa-check.spec.js | 6 +- shared/static/wasm/sx-platform.js | 13 + shared/static/wasm/sx/browser.sx | 5 +- shared/static/wasm/sx/orchestration.sx | 2 +- shared/static/wasm/sx_browser.bc.js | 18292 +++++++++++++++------ shared/static/wasm/sx_browser.bc.wasm.js | 2 +- spec/evaluator.sx | 4 +- web/lib/browser.sx | 5 +- web/orchestration.sx | 2 +- 12 files changed, 12987 insertions(+), 5363 deletions(-) diff --git a/hosts/ocaml/bin/sx_server.ml b/hosts/ocaml/bin/sx_server.ml index 4ecb34c7..4b8a2492 100644 --- a/hosts/ocaml/bin/sx_server.ml +++ b/hosts/ocaml/bin/sx_server.ml @@ -537,8 +537,10 @@ and resolve_io_request request = | "import" -> (* Resolve library locally — load the .sx file *) let lib_spec = Sx_runtime.get_val request (String "library") in - let key = Sx_ref.library_name_key lib_spec in - if Sx_types.sx_truthy (Sx_ref.library_loaded_p key) then + (* library_loaded_p takes the library SPEC and computes the key itself — + passing an already-computed key string double-applies library_name_key + and crashes (sx_to_list on a string). *) + if Sx_types.sx_truthy (Sx_ref.library_loaded_p lib_spec) then (* Already loaded — just resume *) Nil else begin @@ -1815,8 +1817,9 @@ let rec dispatch env cmd = | _ -> "" in let response = if op = "import" then begin let lib_spec = Sx_runtime.get_val request (String "library") in - let key = Sx_ref.library_name_key lib_spec in - if Sx_types.sx_truthy (Sx_ref.library_loaded_p key) then Nil + (* pass the SPEC, not a pre-computed key — library_loaded_p applies + library_name_key itself (a key string would crash sx_to_list). *) + if Sx_types.sx_truthy (Sx_ref.library_loaded_p lib_spec) then Nil else begin (match resolve_library_path lib_spec with | Some path -> load_library_file path | None -> ()); diff --git a/hosts/ocaml/browser/sx_browser.ml b/hosts/ocaml/browser/sx_browser.ml index 34d019ad..451d6ed3 100644 --- a/hosts/ocaml/browser/sx_browser.ml +++ b/hosts/ocaml/browser/sx_browser.ml @@ -73,6 +73,7 @@ let rec value_to_js (v : value) : Js.Unsafe.any = | Nil -> Js.Unsafe.inject Js.null | Bool b -> Js.Unsafe.inject (Js.bool b) | Number n -> Js.Unsafe.inject (Js.number_of_float n) + | Integer n -> Js.Unsafe.inject (Js.number_of_float (float_of_int n)) | String s -> Js.Unsafe.inject (Js.string s) | RawHTML s -> Js.Unsafe.inject (Js.string s) | Symbol s -> @@ -329,8 +330,9 @@ let handle_import_suspension request = let lib_spec = match request with | Dict d -> (match Hashtbl.find_opt d "library" with Some v -> v | _ -> Nil) | _ -> Nil in - let key = Sx_ref.library_name_key lib_spec in - if Sx_types.sx_truthy (Sx_ref.library_loaded_p key) then + (* library_loaded_p takes the SPEC and applies library_name_key itself — + passing a pre-computed key string double-applies it and crashes. *) + if Sx_types.sx_truthy (Sx_ref.library_loaded_p lib_spec) then Some Nil (* Already loaded — resume immediately *) else None (* Not loaded — JS platform must fetch it *) diff --git a/hosts/ocaml/lib/sx_ref.ml b/hosts/ocaml/lib/sx_ref.ml index 2b12cc22..7d1893fb 100644 --- a/hosts/ocaml/lib/sx_ref.ml +++ b/hosts/ocaml/lib/sx_ref.ml @@ -404,7 +404,7 @@ and library_loaded_p spec = (* library-exports *) and library_exports spec = - (get ((get (_library_registry_) ((library_name_key (spec))))) ((String "exports"))) + (let entry = (get (_library_registry_) ((library_name_key (spec)))) in (if sx_truthy (entry) then (get (entry) ((String "exports"))) else (Dict (Hashtbl.create 0)))) (* register-library *) and register_library spec exports = diff --git a/lib/host/playwright/spa-check.spec.js b/lib/host/playwright/spa-check.spec.js index 428481c7..ced6ca42 100644 --- a/lib/host/playwright/spa-check.spec.js +++ b/lib/host/playwright/spa-check.spec.js @@ -33,8 +33,10 @@ test.describe('blog SPA', () => { test('links inside #content get boosted', async ({ page }) => { await page.goto('/'); await waitReady(page); - // the engine marks a boosted element with data-sx-bound containing "boost" - await expect(page.locator(POSTLINK).first()).toHaveAttribute('data-sx-bound', /boost/, { timeout: 15000 }); + // the engine marks a boosted link with the _sxBoundboost JS property + await expect + .poll(() => page.locator(POSTLINK).first().evaluate((a) => !!a._sxBoundboost), { timeout: 15000 }) + .toBe(true); }); test('clicking a link does a fragment swap — no full reload, URL updates', async ({ page }) => { diff --git a/shared/static/wasm/sx-platform.js b/shared/static/wasm/sx-platform.js index 1b873404..8e3588d2 100644 --- a/shared/static/wasm/sx-platform.js +++ b/shared/static/wasm/sx-platform.js @@ -643,6 +643,19 @@ loadLibrary(entry.deps[i], loading); } + // Also eagerly load lazy-deps. Lazy symbol resolution (the _resolve-symbol + // hook) only fires on the VM GLOBAL_GET path, but source-loaded modules run + // their callbacks via the CEK, which raises "Undefined symbol" instead of + // lazy-loading. So when bytecode is unavailable (source fallback), the swap + // post-processing (hs-boot-subtree! / htmx-boot-subtree! in process-elements) + // would fail. Preload them to keep every symbol defined. + var lazyDeps = entry["lazy-deps"] || entry.lazyDeps; + if (lazyDeps) { + for (var li = 0; li < lazyDeps.length; li++) { + loadLibrary(lazyDeps[li], loading); + } + } + // Load entry point itself (boot.sx — not a library, just defines + init) loadBytecodeFile("sx/" + entry.file) || loadSxFile("sx/" + entry.file.replace(/\.sxbc$/, '.sx')); diff --git a/shared/static/wasm/sx/browser.sx b/shared/static/wasm/sx/browser.sx index c3fefe15..0b6c5380 100644 --- a/shared/static/wasm/sx/browser.sx +++ b/shared/static/wasm/sx/browser.sx @@ -49,7 +49,10 @@ (fn () (host-get (host-get (dom-window) "location") "origin"))) (define browser-same-origin? - (fn (url) (starts-with? url (browser-location-origin)))) + ;; A relative URL (no scheme, not protocol-relative "//host") is same-origin + ;; by definition; an absolute URL must start with our origin. The old check + ;; only did the latter, so it wrongly rejected every relative link ("/x"). + (fn (url) (or (starts-with? url (browser-location-origin)) (and (not (string-contains? url "://")) (not (starts-with? url "//")))))) (define url-pathname (fn diff --git a/shared/static/wasm/sx/orchestration.sx b/shared/static/wasm/sx/orchestration.sx index 31cd2a9b..d5c68d03 100644 --- a/shared/static/wasm/sx/orchestration.sx +++ b/shared/static/wasm/sx/orchestration.sx @@ -416,7 +416,7 @@ (post-swap t))) (hoist-head-elements container) (let - ((manifest-el (dom-query-in container "script[data-sx-manifest]"))) + ((manifest-el (dom-query container "script[data-sx-manifest]"))) (when manifest-el (host-call diff --git a/shared/static/wasm/sx_browser.bc.js b/shared/static/wasm/sx_browser.bc.js index a66eb9bd..01e9a5dd 100644 --- a/shared/static/wasm/sx_browser.bc.js +++ b/shared/static/wasm/sx_browser.bc.js @@ -9304,8 +9304,8 @@ (globalThis)); (function(a){"use strict";var -i=a.jsoo_runtime,c=i.caml_get_global_data(),d7="caml_unix_stat_64",d6="unix_lseek",l="caml_unix_inchannel_of_filedescr",d4="caml_unix_stat",d3="caml_unix_write_bigarray",fK="caml_nativeint_format",bh="caml_int64_of_nativeint",d2="caml_unix_closedir",bg="caml_unix_getgrnam",cB="caml_unix_truncate",cA="caml_unix_getcwd",fG="caml_unix_readlink",fH="caml_floatarray_set",be="caml_fill_bytes",bd="unix_error_message",cy="win_inchannel_of_filedescr",bc="caml_unix_time",cv="caml_unix_write",dY="unix_lstat",fC="unix_open",dW="unix_rename",fB="caml_unix_chmod",a_="unix_access",a8="caml_unix_lseek",a9="unix_fsync",dV="caml_unix_findnext",a6="caml_weak_get_copy",h="caml_array_set",dU="caml_unix_opendir",fz="caml_unix_lookup_file",a5="caml_unix_getegid",fy="caml_unix_getgid",cr="caml_js_from_nativeint",a1="caml_unix_gmtime",a2="caml_signbit_float",fw="caml_unix_close",fv="caml_js_from_int32",fu="caml_int64_to_int",cm="caml_check_bound_gen",p="caml_format_int",dO="unix_link",ci="unix_mkdir",aY="unix_rewinddir",aZ="unix_read",dK="caml_unix_unlink",aV="unix_getgid",dI="caml_unix_error_message",fq="caml_unix_findclose",aQ="caml_unix_lseek_64",fo="caml_array_get_float",cd="win_outchannel_of_filedescr",dF="caml_unix_fstat",cb="caml_unix_geteuid",dD="unix_lstat_64",aO="unix_inchannel_of_filedescr",b8="unix_getpwnam",b9="unix_geteuid",aN="caml_unix_getuid",dC="caml_unix_utimes",fi="caml_unix_getpwuid",fj="unix_getpwuid",o="caml_check_bound",fh="unix_ftruncate_64",aK="unix_isatty",b6="caml_unix_times",dA="caml_unix_exit",fg="unix_exit",aH="caml_unix_single_write",b5="caml_ephe_blit_key",dy="caml_nativeint_of_string",aG="unix_write",dw="caml_unix_ftruncate_64",dx="unix_close",fd="caml_js_to_int32",k="caml_sys_getcwd",dv="caml_unix_readdir",b2="win_findclose",aA="%int_mul",dt="caml_int32_format",e9="caml_weak_blit",dr="caml_unix_localtime",ds="unix_times",e8="caml_array_set_addr",dq="caml_unix_inet_addr_of_string",e7="unix_ftruncate",dp="caml_weak_check",e6="caml_unix_symlink",ax="unix_outchannel_of_filedescr",au="caml_unix_has_symlink",dl="unix_mktime",s="caml_int64_to_int32",bY="unix_fstat",e2="caml_unix_link",at="caml_unix_fchmod",bV="unix_symlink",as="unix_localtime",e0="unix_chdir",ar="unix_getgrgid",ap="caml_int32_compare",ao="caml_unix_mkdir",eX="win_startup",eW="caml_int32_bswap",an="caml_weak_get",eU="unix_readlink",al="caml_unix_rmdir",e="caml_array_get",ak="caml_unix_lstat_64",aj="unix_inet_addr_of_string",bO="caml_unix_gettimeofday",r="caml_unix_outchannel_of_filedescr",bL="unix_stat",df="caml_unix_chdir",ah="unix_closedir",ai="win_cleanup",bK="caml_nativeint_bswap",ae="caml_unix_mktime",af="caml_ephe_get_key",ag="%int_mod",bJ="unix_stat_64",db="unix_getegid",dc="caml_unix_access",c$="caml_unix_isatty",ad="caml_int32_mul",c_="caml_nativeint_compare",q="caml_int64_of_int32",ab="caml_unix_fsync",eP="win_findnext",Z="caml_nativeint_mul",eO="unix_single_write",Y="caml_int32_mod",n="caml_js_from_float",c6="unix_truncate_64",c5="caml_ephe_check_key",eM="unix_opendir",bI="caml_array_set_float",eK="caml_ephe_get_key_copy",U="unix_getuid",d="caml_mul",T="caml_fill_string",g="caml_div",c0="caml_int64_of_int",eH="caml_unix_read_bigarray",S="unix_getgrnam",eF="win_findfirst",eE="caml_unix_startup",bF="caml_unix_filedescr_of_fd",eD="caml_unix_ftruncate",f="caml_mod",cZ="caml_check_bound_float",bD="unix_utimes",bE="caml_unix_getgrgid",eB="caml_int64_to_nativeint",bC="unix_time",eA="unix_fstat_64",O="caml_unix_fstat_64",cW="unix_truncate",bA="unix_gmtime",bz="caml_unix_cleanup",ex="unix_getcwd",ew="unix_readdir",j="caml_sys_exit",K="caml_channel_descriptor",bv="unix_lseek_64",t="caml_int_compare",J="caml_array_get_addr",eo="unix_chmod",ep="caml_unix_lstat",en="caml_js_to_nativeint",I="caml_int32_div",cP="caml_unix_findfirst",H="caml_unix_truncate_64",G="caml_unix_rewinddir",F="unix_has_symlink",m="caml_int_of_string",ek="caml_unix_rename",bt="win_filedescr_of_channel",E="unix_gettimeofday",ej="win_handle_fd",b="caml_unix_getpwnam",cK="caml_int32_of_string",eh="caml_nativeint_mod",x="unix_rmdir",cH="caml_unix_read",cI="unix_read_bigarray",ea="caml_floatarray_get",w="unix_unlink",bn="caml_unix_open",d_="caml_signbit",v="unix_fchmod",bl="caml_nativeint_div",d9="%int_div";c.aliases=i.caml_list_of_js_array([[0,cm,o],[0,fu,s],[0,d9,g],[0,fv,n],[0,eF,cP],[0,bl,g],[0,v,at],[0,S,b],[0,ax,r],[0,c0,q],[0,cr,n],[0,d_,a2],[0,dp,c5],[0,T,be],[0,w,dK],[0,e7,eD],[0,ea,e],[0,e8,h],[0,U,aN],[0,cI,eH],[0,x,al],[0,ds,b6],[0,e9,b5],[0,dt,p],[0,fz,d3],[0,bI,h],[0,aA,d],[0,eM,dU],[0,b2,fq],[0,cK,m],[0,eh,f],[0,c6,H],[0,Y,f],[0,a6,eK],[0,Z,d],[0,eO,aH],[0,dx,fw],[0,a9,ab],[0,aG,cv],[0,dy,m],[0,a_,dc],[0,ej,bF],[0,eP,dV],[0,E,bO],[0,bt,K],[0,fg,j],[0,c_,t],[0,ad,d],[0,dA,j],[0,F,au],[0,dW,ek],[0,aK,c$],[0,fh,dw],[0,db,a5],[0,dY,ep],[0,fC,bn],[0,I,g],[0,fj,b],[0,fi,b],[0,bJ,d7],[0,en,fd],[0,ag,f],[0,bK,eW],[0,b9,cb],[0,b8,b],[0,ai,bz],[0,ah,d2],[0,cy,l],[0,eo,fB],[0,bL,d4],[0,J,e],[0,aO,l],[0,aj,dq],[0,dD,ak],[0,fH,h],[0,cA,k],[0,cd,r],[0,fo,e],[0,eU,fG],[0,an,af],[0,bg,b],[0,bv,aQ],[0,eX,eE],[0,ew,dv],[0,aV,fy],[0,dI,bd],[0,ap,t],[0,ex,k],[0,bA,a1],[0,bh,q],[0,ar,b],[0,cW,cB],[0,e0,df],[0,as,dr],[0,fK,p],[0,eA,O],[0,bV,e6],[0,bC,bc],[0,eB,s],[0,aZ,cH],[0,aY,G],[0,ci,ao],[0,bE,b],[0,dO,e2],[0,bD,dC],[0,cZ,o],[0,bY,dF],[0,d6,a8],[0,dl,ae]]);c.prim_count=952;var -d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0="Js_of_ocaml__Dom_svg",d1="Stdlib__Out_channel",fI="Match_failure",dZ=157,bf="Stdlib__Gc",fE="Re__Compile",fF="Stdlib__Unit",cz="Re__Posix_class",fD=136,cx="Jsoo_runtime__Runtime_version",cw="Stdlib__Map",bb="Sx_vm",dX="Stdlib__Parsing",ba="Stdlib__Effect",cu=108,a$="Stdlib__String",fA="Re_pcre",a7="Stdlib__BytesLabels",dT="Stdlib__Condition",ct=148,dS="Stdlib__Filename",a4="Stdlib__In_channel",dQ="Not_found",dR="Re__Fmt",cs=154,a3="CamlinternalLazy",fx="Sx_vm_ref",cq="Division_by_zero",cp="Js_of_ocaml__Effect_js",co="Re__Glob",dP="Re__Parse_buffer",a0=117,cn=104,ft="Js_of_ocaml__",cl="Stdlib__Either",ck=109,cj="Js_of_ocaml__MutationObserver",ch="Js_of_ocaml__Json",dN="Stdlib__Callback",dM=155,aX="Stdlib__Lexing",cg="Undefined_recursive_module",dL="Stdlib__Printf",fs=111,aW="Stdlib__Bool",cf="UnixLabels",dJ="Stdlib__Int",fr=153,dH="Stdlib__MoreLabels",aS=127,aT=103,aU="Sx_render",dG="Sys_error",aR=100,ce="Js_of_ocaml__Dom_events",fp="Stdlib__Digest",dE=101,cc=151,aP="Sx_compiler",ca="Js_of_ocaml__PerformanceObserver",fn="Re__View",b$="Stdlib__Queue",fm=110,b_="Stdlib__Set",fl="Stdlib__Stack",fk="Js_of_ocaml__File",dB="Stdlib__Complex",aM="Re__Dyn",aL="Jsoo_runtime__",b7="Re__Import",dz="Jsoo_runtime",ff=130,aI="Js_of_ocaml__WebSockets",aJ="Stdlib__Nativeint",fe=128,aF=113,b4=146,fc=156,b3="Re__Dense_map",du="Sys_blocked_io",aE="Stdlib__Random",fb="Js_of_ocaml__ResizeObserver",fa="Sx_runtime",aD=135,b1=144,e$="Js_of_ocaml",aB=106,aC="Stdlib__Marshal",az="Js_of_ocaml__Console",e_=140,b0="Sx_primitives",bZ="Stdlib__Ephemeron",ay="CamlinternalMod",dn="Re__Color_map",aw="Js_of_ocaml__Js",av="Js_of_ocaml__Url",e5="Stdlib__Fun",e4="Stdlib__Char",dm=125,e3="Re__Category",bW=138,bX=116,e1=126,aq="Re__Ast",dk="Dune__exe__Sx_browser",dj=150,eZ="CamlinternalFormatBasics",di="Stdlib__Weak",bU=105,dh="Stdlib__Format",eY="Stdlib__StdLabels",dg="Stdlib__Int64",eV="Re__Search",bT="Js_of_ocaml__Dom_html",am="Stdlib__ArrayLabels",bS=129,eT="Re__Cset",bR="Stdlib__Bigarray",bP=137,bQ="Re__Core",bM=132,bN="Re__Emacs",de="Re__Automata",dd="Re__Pmark",da="Js_of_ocaml__IntersectionObserver",ac=115,c9=131,eQ=122,eR="Stdlib",eS="Stdlib__StringLabels",aa="Stdlib__Atomic",$="Sx_cst",c8="Re__",_="Stdlib__ListLabels",c7="Stdlib__Seq",eN="Js_of_ocaml__CSS",X=134,c4="Js_of_ocaml__XmlHttpRequest",eL="Re__Bit_vector",W="Stdlib__Uchar",V=152,c3="Stdlib__Arg",c2="Js_of_ocaml__Form",c1="Stdlib__Scanf",eJ=112,eI="Re__Slice",eG="Js_of_ocaml__Intl",bH=107,bG="Stdlib__Printexc",R="Js_of_ocaml__Sys_js",eC="Js_of_ocaml__Import",Q="Re",cX=147,cY="Js_of_ocaml__Geolocation",ez="Re__Perl",P="Js_of_ocaml__Worker",bB="Stdlib__Dynarray",ey="Assert_failure",N="Re__Pcre",M=141,bx=121,by=118,bw=120,cV="Stdlib__Array",L="Js_of_ocaml__EventSource",cU="Stdlib__Obj",ev="Stdlib__Hashtbl",et="Stdlib__Domain",eu="Stdlib__Option",es=124,er="Std_exit",eq=149,cT="Re__Group",cS="Sx_ref",bu=145,cQ="Invalid_argument",cR="Stack_overflow",cO="End_of_file",cN="Js_of_ocaml__WebGL",em="Sx_types",el="Failure",D="Js_of_ocaml__Jstable",ei="Stdlib__Lazy",bs="Stdlib__Semaphore",cM="Out_of_memory",C="Js_of_ocaml__Lib_version",B="Js_of_ocaml__Regexp",cL="Js_of_ocaml__Dom",A="Stdlib__Bytes",br="Stdlib__Sys",eg=143,ef="CamlinternalOO",bq="Re__Posix",cJ="Stdlib__Int32",ee="Stdlib__Oo",bp=123,y="Re__Replace",z="Unix",eb="Re__Mark_infos",ec="Stdlib__Mutex",ed=119,bo="Stdlib__List",cG=139,bm="Sx_parser",d$="Stdlib__Float",bk=142,cF="CamlinternalFormat",u="Re__Str",d8="Js_of_ocaml__Typed_array",cE="Stdlib__Result";c.symbols=[0,[0,cf,fs],[0,z,fm],[0,cg,11],[0,dG,10],[0,du,9],[0,fx,ed],[0,bb,by],[0,em,eJ],[0,fa,bX],[0,aU,bw],[0,cS,a0],[0,b0,ac],[0,bm,cD],[0,$,aF],[0,aP,bx],[0,di,62],[0,fF,31],[0,W,26],[0,cC,17],[0,br,15],[0,eS,75],[0,a$,30],[0,eY,77],[0,fl,42],[0,b_,40],[0,c7,21],[0,bs,47],[0,c1,64],[0,cE,23],[0,aE,60],[0,b$,43],[0,dL,50],[0,bG,53],[0,dX,39],[0,d1,57],[0,eu,22],[0,ee,67],[0,cU,16],[0,aJ,37],[0,ec,45],[0,dH,76],[0,aC,32],[0,cw,41],[0,_,73],[0,bo,27],[0,aX,38],[0,ei,20],[0,dg,36],[0,cJ,35],[0,dJ,28],[0,a4,56],[0,ev,61],[0,bf,55],[0,e5,54],[0,dh,63],[0,d$,34],[0,dS,70],[0,bZ,69],[0,cl,14],[0,ba,78],[0,bB,51],[0,et,48],[0,fp,58],[0,dT,46],[0,dB,71],[0,e4,25],[0,dN,65],[0,a7,74],[0,A,29],[0,fJ,44],[0,aW,24],[0,bR,59],[0,aa,18],[0,am,72],[0,cV,33],[0,c3,52],[0,eR,13],[0,er,dZ],[0,cR,8],[0,fA,ck],[0,fn,93],[0,u,dE],[0,eI,95],[0,eV,97],[0,y,bj],[0,cz,cn],[0,bq,bH],[0,dd,89],[0,ez,bU],[0,N,aB],[0,dP,99],[0,eb,88],[0,b7,85],[0,bi,87],[0,cT,94],[0,co,aT],[0,dR,80],[0,bN,aR],[0,aM,82],[0,b3,84],[0,eT,86],[0,bQ,98],[0,fE,96],[0,dn,91],[0,e3,83],[0,eL,81],[0,de,90],[0,aq,92],[0,c8,79],[0,Q,cu],[0,cM,7],[0,dQ,6],[0,fI,5],[0,cx,bp],[0,aL,eQ],[0,dz,es],[0,c4,d5],[0,P,X],[0,aI,aD],[0,cN,fD],[0,av,bW],[0,d8,bS],[0,R,e_],[0,fb,M],[0,B,bP],[0,ca,bk],[0,cj,eg],[0,C,cG],[0,D,b1],[0,ch,bu],[0,aw,aS],[0,eG,cs],[0,da,fr],[0,eC,e1],[0,cY,V],[0,c2,bM],[0,fk,ff],[0,L,cc],[0,cp,dj],[0,d0,eq],[0,bT,c9],[0,ce,ct],[0,cL,fe],[0,az,cX],[0,eN,b4],[0,ft,dm],[0,e$,dM],[0,cQ,4],[0,el,3],[0,cO,2],[0,dk,fc],[0,cq,1],[0,ef,66],[0,ay,68],[0,a3,19],[0,eZ,12],[0,cF,49],[0,ey,0]];c.sections=[0,[0,158,[0,[0,[0,[0,[0,[0,[0,0,[0,ey],0,[0,0,[0,cF],49,0,1],2],[0,eZ],12,0,3],[0,a3],19,[0,[0,[0,0,[0,ay],68,0,1],[0,ef],66,0,2],[0,cq],1,[0,[0,0,[0,dk],fc,0,1],[0,cO],2,0,2],3],4],[0,el],3,[0,[0,[0,0,[0,cQ],4,[0,0,[0,e$],dM,0,1],2],[0,ft],dm,[0,0,[0,eN],b4,[0,0,[0,az],cX,0,1],2],3],[0,cL],fe,[0,[0,[0,0,[0,ce],ct,0,1],[0,bT],c9,0,2],[0,d0],eq,[0,[0,0,[0,cp],dj,[0,0,[0,L],cc,0,1],2],[0,fk],ff,[0,0,[0,c2],bM,[0,0,[0,cY],V,0,1],2],3],4],5],6],[0,eC],e1,[0,[0,[0,[0,[0,[0,0,[0,da],fr,[0,0,[0,eG],cs,0,1],2],[0,aw],aS,[0,[0,0,[0,ch],bu,0,1],[0,D],b1,0,2],3],[0,C],cG,[0,[0,0,[0,cj],eg,0,1],[0,ca],bk,0,2],4],[0,B],bP,[0,[0,0,[0,fb],M,0,1],[0,R],e_,0,2],5],[0,d8],bS,[0,[0,[0,[0,0,[0,av],bW,0,1],[0,cN],fD,0,2],[0,aI],aD,0,3],[0,P],X,[0,0,[0,c4],d5,0,1],4],6],[0,dz],es,[0,[0,[0,0,[0,aL],eQ,[0,0,[0,cx],bp,0,1],2],[0,fI],5,[0,0,[0,dQ],6,0,1],3],[0,cM],7,[0,[0,0,[0,Q],cu,0,1],[0,c8],79,[0,[0,0,[0,aq],92,0,1],[0,de],90,0,2],3],4],7],8],[0,eL],81,[0,[0,[0,[0,[0,0,[0,e3],83,0,1],[0,dn],91,[0,0,[0,fE],96,[0,0,[0,bQ],98,0,1],2],3],[0,eT],86,[0,0,[0,b3],84,0,1],4],[0,aM],82,[0,[0,[0,0,[0,bN],aR,0,1],[0,dR],80,[0,[0,[0,0,[0,co],aT,0,1],[0,cT],94,0,2],[0,bi],87,0,3],4],[0,b7],85,[0,[0,[0,0,[0,eb],88,0,1],[0,dP],99,[0,[0,0,[0,N],aB,0,1],[0,ez],bU,0,2],3],[0,dd],89,[0,[0,[0,[0,0,[0,bq],bH,0,1],[0,cz],cn,0,2],[0,y],bj,[0,0,[0,eV],97,0,1],3],[0,eI],95,[0,[0,0,[0,u],dE,0,1],[0,fn],93,[0,[0,0,[0,fA],ck,0,1],[0,cR],8,[0,0,[0,er],dZ,0,1],2],3],4],5],6],7],[0,eR],13,[0,[0,[0,[0,0,[0,c3],52,0,1],[0,cV],33,[0,0,[0,am],72,0,1],2],[0,aa],18,[0,0,[0,bR],59,0,1],3],[0,aW],24,[0,[0,[0,0,[0,fJ],44,0,1],[0,A],29,[0,[0,0,[0,a7],74,0,1],[0,dN],65,0,2],3],[0,e4],25,[0,[0,0,[0,dB],71,0,1],[0,dT],46,[0,[0,0,[0,fp],58,0,1],[0,et],48,[0,0,[0,bB],51,[0,0,[0,ba],78,0,1],2],3],4],5],6],8],9],[0,cl],14,[0,[0,[0,[0,[0,[0,0,[0,bZ],69,[0,0,[0,dS],70,0,1],2],[0,d$],34,[0,0,[0,dh],63,0,1],3],[0,e5],54,[0,0,[0,bf],55,[0,[0,0,[0,ev],61,0,1],[0,a4],56,0,2],3],4],[0,dJ],28,[0,0,[0,cJ],35,[0,0,[0,dg],36,0,1],2],5],[0,ei],20,[0,[0,[0,0,[0,aX],38,0,1],[0,bo],27,[0,[0,0,[0,_],73,0,1],[0,cw],41,0,2],3],[0,aC],32,[0,[0,[0,0,[0,dH],76,0,1],[0,ec],45,0,2],[0,aJ],37,0,3],4],6],[0,cU],16,[0,[0,[0,[0,[0,[0,0,[0,ee],67,0,1],[0,eu],22,[0,0,[0,d1],57,0,1],2],[0,dX],39,[0,[0,0,[0,bG],53,0,1],[0,dL],50,0,2],3],[0,b$],43,[0,[0,0,[0,aE],60,0,1],[0,cE],23,[0,[0,0,[0,c1],64,0,1],[0,bs],47,0,2],3],4],[0,c7],21,[0,[0,0,[0,b_],40,[0,0,[0,fl],42,[0,0,[0,eY],77,0,1],2],3],[0,a$],30,[0,0,[0,eS],75,0,1],4],5],[0,br],15,[0,[0,[0,[0,[0,0,[0,cC],17,0,1],[0,W],26,[0,0,[0,fF],31,0,1],2],[0,di],62,[0,[0,0,[0,aP],bx,0,1],[0,$],aF,0,2],3],[0,bm],cD,[0,[0,0,[0,b0],ac,[0,0,[0,cS],a0,[0,0,[0,aU],bw,0,1],2],3],[0,fa],bX,[0,0,[0,em],eJ,[0,0,[0,bb],by,[0,0,[0,fx],ed,0,1],2],3],4],5],[0,du],9,[0,[0,0,[0,dG],10,0,1],[0,cg],11,[0,0,[0,z],fm,[0,0,[0,cf],fs,0,1],2],3],6],7],8],10]],0,i.caml_list_of_js_array(["%caml_format_int_special","%direct_int_div","%direct_int_mod","%direct_int_mul","%direct_obj_tag","%int_add","%int_and","%int_asr",d9,"%int_lsl","%int_lsr",ag,aA,"%int_neg","%int_or","%int_sub","%int_xor","JsStringReader","MlBytes","MlChanid","MlFakeDevice","MlFakeFd","MlFakeFd_out","MlFakeFile","MlFile","MlInt64","MlMutex","MlNat","MlNodeDevice","MlNodeFd","MlObjectTable","Ml_Bigarray","Ml_Bigarray_c_1_1","UInt8ArrayReader","add_nat","bigstring_of_array_buffer","bigstring_of_typed_array","bigstring_to_array_buffer","bigstring_to_typed_array","blake2b","blit_nat","caml_MD5Final","caml_MD5Init","caml_MD5Transform","caml_MD5Update","caml_abs_float","caml_acos_float","caml_acosh_float","caml_add_float","caml_alloc_dummy","caml_alloc_dummy_float","caml_alloc_dummy_infix","caml_alloc_stack","caml_argv","caml_array_append","caml_array_blit","caml_array_bound_error","caml_array_concat","caml_array_fill",e,J,fo,"caml_array_make","caml_array_of_bytes","caml_array_of_string",h,e8,bI,"caml_array_sub","caml_array_unsafe_get","caml_array_unsafe_get_float","caml_array_unsafe_set","caml_array_unsafe_set_addr","caml_array_unsafe_set_float","caml_asin_float","caml_asinh_float","caml_atan2_float","caml_atan_float","caml_atanh_float","caml_atomic_cas","caml_atomic_exchange","caml_atomic_fetch_add","caml_atomic_load","caml_atomic_make_contended","caml_ba_blit","caml_ba_change_layout","caml_ba_compare","caml_ba_create","caml_ba_create_buffer","caml_ba_create_from","caml_ba_create_unsafe","caml_ba_custom_name","caml_ba_deserialize","caml_ba_dim","caml_ba_dim_1","caml_ba_dim_2","caml_ba_dim_3","caml_ba_fill","caml_ba_from_typed_array","caml_ba_get_1","caml_ba_get_2","caml_ba_get_3","caml_ba_get_generic","caml_ba_get_size","caml_ba_get_size_per_element","caml_ba_hash","caml_ba_init","caml_ba_kind","caml_ba_kind_of_typed_array","caml_ba_layout","caml_ba_map_file","caml_ba_map_file_bytecode","caml_ba_num_dims","caml_ba_reshape","caml_ba_serialize","caml_ba_set_1","caml_ba_set_2","caml_ba_set_3","caml_ba_set_generic","caml_ba_slice","caml_ba_sub","caml_ba_to_typed_array","caml_ba_uint8_get16","caml_ba_uint8_get32","caml_ba_uint8_get64","caml_ba_uint8_set16","caml_ba_uint8_set32","caml_ba_uint8_set64","caml_backtrace_status","caml_bigstring_blit_ba_to_ba","caml_bigstring_blit_ba_to_bytes","caml_bigstring_blit_bytes_to_ba","caml_bigstring_blit_string_to_ba","caml_bigstring_memcmp","caml_blake2_create","caml_blake2_final","caml_blake2_string","caml_blake2_update","caml_blit_bytes","caml_blit_string","caml_bswap16","caml_build_symbols","caml_bytes_bound_error","caml_bytes_compare","caml_bytes_equal","caml_bytes_get","caml_bytes_get16","caml_bytes_get32","caml_bytes_get64","caml_bytes_greaterequal","caml_bytes_greaterthan","caml_bytes_lessequal","caml_bytes_lessthan","caml_bytes_notequal","caml_bytes_of_array","caml_bytes_of_jsbytes","caml_bytes_of_string","caml_bytes_of_uint8_array","caml_bytes_of_utf16_jsstring","caml_bytes_set","caml_bytes_set16","caml_bytes_set32","caml_bytes_set64","caml_bytes_unsafe_get","caml_bytes_unsafe_set","caml_call_gen","caml_callback","caml_cbrt_float","caml_ceil_float",K,o,cZ,cm,"caml_classify_float","caml_compare","caml_compare_val","caml_compare_val_get_custom","caml_compare_val_number_custom","caml_compare_val_tag","caml_continuation_use_and_update_handler_noexc","caml_continuation_use_noexc","caml_convert_bytes_to_array","caml_convert_raw_backtrace","caml_convert_raw_backtrace_slot","caml_convert_string_to_bytes","caml_copysign_float","caml_cos_float","caml_cosh_float","caml_create_bytes","caml_create_file","caml_create_string","caml_current_dir","caml_custom_event_index","caml_custom_identifier","caml_custom_ops","caml_decompress_input",g,"caml_div_float","caml_domain_dls","caml_domain_dls_compare_and_set","caml_domain_dls_get","caml_domain_dls_set","caml_domain_id","caml_domain_spawn","caml_ephe_blit_data",b5,"caml_ephe_check_data",c5,"caml_ephe_create","caml_ephe_data_offset","caml_ephe_get_data","caml_ephe_get_data_copy",af,eK,"caml_ephe_key_offset","caml_ephe_none","caml_ephe_set_data","caml_ephe_set_data_opt","caml_ephe_set_key","caml_ephe_unset_data","caml_ephe_unset_key","caml_eq_float","caml_equal","caml_erf_float","caml_erfc_float","caml_executable_name","caml_exn_with_js_backtrace","caml_exp2_float","caml_exp_float","caml_expm1_float","caml_failwith","caml_fatal_uncaught_exception",be,T,"caml_final_register","caml_final_register_called_without_value","caml_final_release","caml_finish_formatting","caml_float_compare","caml_float_of_bytes","caml_float_of_int","caml_float_of_string","caml_floatarray_blit","caml_floatarray_create",ea,fH,"caml_floatarray_unsafe_get","caml_floatarray_unsafe_set","caml_floor_float","caml_fma_float","caml_fmod_float","caml_format_exception","caml_format_float",p,"caml_fresh_oo_id","caml_frexp_float","caml_fs_init","caml_gc_compaction","caml_gc_counters","caml_gc_full_major","caml_gc_get","caml_gc_major","caml_gc_major_slice","caml_gc_minor","caml_gc_minor_words","caml_gc_quick_stat","caml_gc_set","caml_gc_stat","caml_ge_float","caml_get_cached_method","caml_get_continuation_callstack","caml_get_current_callstack","caml_get_exception_backtrace","caml_get_exception_raw_backtrace","caml_get_global_data","caml_get_minor_free","caml_get_public_method","caml_get_root","caml_global_data","caml_gr_arc_aux","caml_gr_blit_image","caml_gr_clear_graph","caml_gr_close_graph","caml_gr_close_subwindow","caml_gr_create_image","caml_gr_current_x","caml_gr_current_y","caml_gr_display_mode","caml_gr_doc_of_state","caml_gr_draw_arc","caml_gr_draw_char","caml_gr_draw_image","caml_gr_draw_rect","caml_gr_draw_str","caml_gr_draw_string","caml_gr_dump_image","caml_gr_fill_arc","caml_gr_fill_poly","caml_gr_fill_rect","caml_gr_lineto","caml_gr_make_image","caml_gr_moveto","caml_gr_open_graph","caml_gr_open_subwindow","caml_gr_plot","caml_gr_point_color","caml_gr_remember_mode","caml_gr_resize_window","caml_gr_set_color","caml_gr_set_font","caml_gr_set_line_width","caml_gr_set_text_size","caml_gr_set_window_title","caml_gr_sigio_handler","caml_gr_sigio_signal","caml_gr_size_x","caml_gr_size_y","caml_gr_state","caml_gr_state_create","caml_gr_state_get","caml_gr_state_init","caml_gr_state_set","caml_gr_synchronize","caml_gr_text_size","caml_gr_wait_event","caml_gr_window_id","caml_greaterequal","caml_greaterthan","caml_gt_float","caml_hash","caml_hash_mix_bigstring","caml_hash_mix_bytes","caml_hash_mix_bytes_arr","caml_hash_mix_final","caml_hash_mix_float","caml_hash_mix_float16","caml_hash_mix_float32","caml_hash_mix_int","caml_hash_mix_int64","caml_hash_mix_jsbytes","caml_hash_mix_string","caml_hash_nat","caml_hexstring_of_float","caml_hypot_float","caml_input_value","caml_input_value_from_bytes","caml_input_value_from_reader","caml_input_value_to_outside_heap","caml_install_signal_handler","caml_int32_add","caml_int32_and","caml_int32_bits_of_float",eW,ap,I,"caml_int32_float_of_bits",dt,Y,ad,"caml_int32_neg","caml_int32_of_float","caml_int32_of_int",cK,"caml_int32_or","caml_int32_shift_left","caml_int32_shift_right","caml_int32_shift_right_unsigned","caml_int32_sub","caml_int32_to_float","caml_int32_to_int","caml_int32_unmarshal","caml_int32_xor","caml_int64_add","caml_int64_and","caml_int64_bits_of_float","caml_int64_bswap","caml_int64_compare","caml_int64_create_lo_hi","caml_int64_create_lo_mi_hi","caml_int64_div","caml_int64_float_of_bits","caml_int64_format","caml_int64_hash","caml_int64_hi32","caml_int64_is_negative","caml_int64_is_zero","caml_int64_lo32","caml_int64_marshal","caml_int64_mod","caml_int64_mul","caml_int64_neg","caml_int64_of_bytes","caml_int64_of_float",c0,q,bh,"caml_int64_of_string","caml_int64_offset","caml_int64_or","caml_int64_shift_left","caml_int64_shift_right","caml_int64_shift_right_unsigned","caml_int64_sub","caml_int64_to_bytes","caml_int64_to_float",fu,s,eB,"caml_int64_ult","caml_int64_unmarshal","caml_int64_xor",t,"caml_int_of_float",m,"caml_invalid_argument","caml_io_buffer_size","caml_is_continuation_tag","caml_is_js","caml_is_ml_bytes","caml_is_ml_string","caml_is_printable","caml_is_special_exception","caml_js_call","caml_js_delete","caml_js_equals","caml_js_error_of_exception","caml_js_error_option_of_exception","caml_js_eval_string","caml_js_expr","caml_js_from_array","caml_js_from_bool",n,fv,cr,"caml_js_from_string","caml_js_fun_call","caml_js_function_arity","caml_js_get","caml_js_get_console","caml_js_html_entities","caml_js_html_escape","caml_js_instanceof","caml_js_meth_call","caml_js_new","caml_js_object","caml_js_pure_expr","caml_js_set","caml_js_strict_equals","caml_js_to_array","caml_js_to_bool","caml_js_to_byte_string","caml_js_to_float",fd,en,"caml_js_to_string","caml_js_typeof","caml_js_var","caml_js_wrap_callback","caml_js_wrap_callback_arguments","caml_js_wrap_callback_strict","caml_js_wrap_callback_unsafe","caml_js_wrap_meth_callback","caml_js_wrap_meth_callback_arguments","caml_js_wrap_meth_callback_strict","caml_js_wrap_meth_callback_unsafe","caml_jsbytes_of_string","caml_jsoo_flags_effects","caml_jsoo_flags_use_js_string","caml_jsstring_of_string","caml_lazy_make_forward","caml_lazy_read_result","caml_lazy_reset_to_lazy","caml_lazy_update_to_forcing","caml_lazy_update_to_forward","caml_ldexp_float","caml_le_float","caml_lessequal","caml_lessthan","caml_lex_array","caml_lex_engine","caml_list_mount_point","caml_list_of_js_array","caml_list_to_js_array","caml_log10_float","caml_log1p_float","caml_log2_float","caml_log_float","caml_lt_float","caml_lxm_M","caml_lxm_daba","caml_lxm_next","caml_make_float_vect","caml_make_path","caml_make_vect","caml_marshal_constants","caml_marshal_data_size","caml_marshal_header_size","caml_maybe_attach_backtrace","caml_maybe_print_stats","caml_md5_bytes","caml_md5_chan","caml_md5_string","caml_memprof_discard","caml_memprof_start","caml_memprof_stop","caml_method_cache","caml_ml_bytes_content","caml_ml_bytes_length","caml_ml_channel_get","caml_ml_channel_redirect","caml_ml_channel_restore","caml_ml_channel_size","caml_ml_channel_size_64","caml_ml_channels","caml_ml_close_channel","caml_ml_condition_broadcast","caml_ml_condition_new","caml_ml_condition_signal","caml_ml_condition_wait","caml_ml_debug_info_status","caml_ml_domain_cpu_relax","caml_ml_domain_id","caml_ml_enable_runtime_warnings","caml_ml_flush","caml_ml_input","caml_ml_input_bigarray","caml_ml_input_block","caml_ml_input_char","caml_ml_input_int","caml_ml_input_scan_line","caml_ml_is_binary_mode","caml_ml_is_buffered","caml_ml_mutex_lock","caml_ml_mutex_new","caml_ml_mutex_try_lock","caml_ml_mutex_unlock","caml_ml_open_descriptor_in","caml_ml_open_descriptor_in_with_flags","caml_ml_open_descriptor_out","caml_ml_open_descriptor_out_with_flags","caml_ml_out_channels_list","caml_ml_output","caml_ml_output_bigarray","caml_ml_output_bytes","caml_ml_output_char","caml_ml_output_int","caml_ml_output_ta","caml_ml_pos_in","caml_ml_pos_in_64","caml_ml_pos_out","caml_ml_pos_out_64","caml_ml_runtime_events_are_active","caml_ml_runtime_events_pause","caml_ml_runtime_events_resume","caml_ml_runtime_events_start","caml_ml_runtime_warnings_enabled","caml_ml_seek_in","caml_ml_seek_in_64","caml_ml_seek_out","caml_ml_seek_out_64","caml_ml_set_binary_mode","caml_ml_set_buffered","caml_ml_set_channel_name","caml_ml_set_channel_output","caml_ml_set_channel_refill","caml_ml_string_length",f,"caml_modf_float","caml_mount_autoload",d,"caml_mul_float","caml_named_value","caml_named_values","caml_nativeint_add","caml_nativeint_and",bK,c_,bl,fK,eh,Z,"caml_nativeint_neg","caml_nativeint_of_float","caml_nativeint_of_int","caml_nativeint_of_int32",dy,"caml_nativeint_or","caml_nativeint_shift_left","caml_nativeint_shift_right","caml_nativeint_shift_right_unsigned","caml_nativeint_sub","caml_nativeint_to_float","caml_nativeint_to_int","caml_nativeint_to_int32","caml_nativeint_unmarshal","caml_nativeint_xor","caml_neg_float","caml_neq_float","caml_new_lex_engine","caml_new_string","caml_nextafter_float","caml_notequal","caml_obj_add_offset","caml_obj_block","caml_obj_compare_and_swap","caml_obj_dup","caml_obj_is_shared","caml_obj_raw_field","caml_obj_reachable_words","caml_obj_set_raw_field","caml_obj_tag","caml_obj_update_tag","caml_obj_with_tag","caml_ojs_new_arr","caml_oo_cache_id","caml_oo_last_id","caml_output_val","caml_output_value","caml_output_value_to_buffer","caml_output_value_to_bytes","caml_output_value_to_string","caml_packFloat16","caml_parse_digit","caml_parse_engine","caml_parse_format","caml_parse_sign_and_base","caml_parser_trace","caml_pos_in","caml_pos_out","caml_power_float","caml_pure_js_expr","caml_raise_constant","caml_raise_end_of_file","caml_raise_no_such_file","caml_raise_nodejs_error","caml_raise_not_found","caml_raise_sys_error","caml_raise_system_error","caml_raise_with_arg","caml_raise_with_args","caml_raise_with_string","caml_raise_zero_divide","caml_raw_backtrace_length","caml_raw_backtrace_next_slot","caml_raw_backtrace_slot","caml_read_file_content","caml_recommended_domain_count","caml_record_backtrace","caml_record_backtrace_env_flag","caml_record_backtrace_runtime_flag","caml_refill","caml_register_global","caml_register_named_value","caml_restore_raw_backtrace","caml_root","caml_round_float","caml_runtime_events_create_cursor","caml_runtime_events_free_cursor","caml_runtime_events_read_poll","caml_runtime_events_user_register","caml_runtime_events_user_resolve","caml_runtime_events_user_write","caml_runtime_parameters","caml_runtime_variant","caml_runtime_warnings","caml_seek_in","caml_seek_out","caml_set_oo_id","caml_set_parser_trace","caml_set_static_env",d_,a2,"caml_sin_float","caml_sinh_float","caml_sqrt_float","caml_str_repeat","caml_strerror","caml_string_bound_error","caml_string_compare","caml_string_concat","caml_string_equal","caml_string_get","caml_string_get16","caml_string_get32","caml_string_get64","caml_string_greaterequal","caml_string_greaterthan","caml_string_hash","caml_string_lessequal","caml_string_lessthan","caml_string_notequal","caml_string_of_array","caml_string_of_bytes","caml_string_of_jsbytes","caml_string_of_jsstring","caml_string_of_uint8_array","caml_string_set","caml_string_unsafe_get","caml_sub_float","caml_sub_uint8_array_to_jsbytes","caml_subarray_to_jsbytes","caml_sys_argv","caml_sys_chdir","caml_sys_close","caml_sys_const_backend_type","caml_sys_const_big_endian","caml_sys_const_int_size","caml_sys_const_max_wosize","caml_sys_const_naked_pointers_checked","caml_sys_const_ostype_cygwin","caml_sys_const_ostype_unix","caml_sys_const_ostype_win32","caml_sys_const_word_size","caml_sys_executable_name",j,"caml_sys_fds","caml_sys_file_exists","caml_sys_get_argv","caml_sys_get_config",k,"caml_sys_getenv","caml_sys_is_directory","caml_sys_is_regular_file","caml_sys_isatty","caml_sys_mkdir","caml_sys_modify_argv","caml_sys_open","caml_sys_open_for_node","caml_sys_random_seed","caml_sys_read_directory","caml_sys_remove","caml_sys_rename","caml_sys_rmdir","caml_sys_system_command","caml_sys_time","caml_sys_time_include_children","caml_sys_unsafe_getenv","caml_tan_float","caml_tanh_float","caml_throw_js_exception","caml_to_js_string","caml_trailing_slash","caml_trampoline","caml_trampoline_return","caml_trunc_float","caml_uint8_array_of_bytes","caml_uint8_array_of_string",dc,df,fB,bz,fw,d2,dI,dA,at,bF,fq,cP,dV,dF,O,ab,eD,dw,cA,a5,cb,fy,bE,bg,b,fi,bO,aN,a1,au,l,dq,c$,e2,dr,fz,a8,aQ,ep,ak,ao,ae,bn,dU,r,cH,eH,dv,fG,ek,G,al,aH,eE,d4,d7,e6,bc,b6,cB,H,dK,dC,cv,d3,"caml_unmount","caml_unpackFloat16","caml_update_dummy",e9,dp,"caml_weak_create",an,a6,"caml_weak_set","caml_wrap_exception","caml_xdg_defaults","caml_xmlhttprequest_create","caml_zstd_initialize","compare_digits_nat","compare_nat","complement_nat","create_nat","decr_nat","deserialize_nat","div_digit_nat","div_helper","div_nat","fs_node_supported","incr_nat","initialize_nat","is_digit_int","is_digit_normalized","is_digit_odd","is_digit_zero","jsoo_create_file","jsoo_create_file_extern","jsoo_dataview","jsoo_effect_not_supported","jsoo_is_ascii","jsoo_is_win32","jsoo_mount_point","jsoo_static_env","jsoo_sys_getenv","jsoo_text_decoder","jsoo_text_decoder_buff","jsoo_text_encoder","jsoo_toplevel_reloc","land_digit_nat","length_nat","lor_digit_nat","lxor_digit_nat","make_unix_err_args","mult_digit_nat","mult_nat","nat_of_array","nth_digit_nat","nth_digit_nat_native","num_digits_nat","num_leading_zero_bits_in_digit","ocaml_stats_from_node_stats","os_type","path_is_absolute","re_match","re_partial_match","re_replacement_text","re_search_backward","re_search_forward","re_string_match","resolve_fs_device","serialize_nat","set_digit_nat","set_digit_nat_native","set_to_zero_nat","shift_left_nat","shift_right_nat","square_nat","sub_nat",a_,e0,eo,dx,ah,"unix_error",bd,fg,v,bY,eA,a9,e7,fh,ex,db,b9,aV,ar,S,b8,fj,E,U,bA,F,aO,aj,aK,dO,as,d6,bv,dY,dD,ci,dl,fC,eM,ax,aZ,cI,ew,eU,dW,aY,x,eO,bL,bJ,bV,bC,ds,cW,c6,w,bD,aG,ai,bt,b2,eF,eP,ej,cy,cd,eX,"zstd_decompress"]),0];return}(globalThis)); +i=a.jsoo_runtime,c=i.caml_get_global_data(),eo="caml_unix_stat_64",en="unix_lseek",l="caml_unix_inchannel_of_filedescr",el="caml_unix_stat",ek="caml_unix_write_bigarray",f6="caml_nativeint_format",bo="caml_int64_of_nativeint",ej="caml_unix_closedir",bn="caml_unix_getgrnam",cK="caml_unix_truncate",cJ="caml_unix_getcwd",f2="caml_unix_readlink",f3="caml_floatarray_set",bl="caml_fill_bytes",bk="unix_error_message",cH="win_inchannel_of_filedescr",bj="caml_unix_time",cE="caml_unix_write",ee="unix_lstat",fY="unix_open",ec="unix_rename",fX="caml_unix_chmod",bf="unix_access",bd="caml_unix_lseek",be="unix_fsync",eb="caml_unix_findnext",bb="caml_weak_get_copy",h="caml_array_set",ea="caml_unix_opendir",fU="caml_unix_lookup_file",a$="caml_unix_getegid",fT="caml_unix_getgid",cA="caml_js_from_nativeint",a6="caml_unix_gmtime",a7="caml_signbit_float",fR="caml_unix_close",fQ="caml_js_from_int32",fP="caml_int64_to_int",cv="caml_check_bound_gen",p="caml_format_int",d4="unix_link",cr="unix_mkdir",a3="unix_rewinddir",a4="unix_read",dZ="caml_unix_unlink",a0="unix_getgid",dX="caml_unix_error_message",fL="caml_unix_findclose",aU="caml_unix_lseek_64",fJ="caml_array_get_float",cm="win_outchannel_of_filedescr",dU="caml_unix_fstat",ck="caml_unix_geteuid",dS="unix_lstat_64",aS="unix_inchannel_of_filedescr",cf="unix_getpwnam",cg="unix_geteuid",aR="caml_unix_getuid",dQ="caml_unix_utimes",fD="caml_unix_getpwuid",fE="unix_getpwuid",o="caml_check_bound",fC="unix_ftruncate_64",aO="unix_isatty",cd="caml_unix_times",dO="caml_unix_exit",fB="unix_exit",aL="caml_unix_single_write",cc="caml_ephe_blit_key",dM="caml_nativeint_of_string",aK="unix_write",dJ="caml_unix_ftruncate_64",dK="unix_close",fy="caml_js_to_int32",k="caml_sys_getcwd",dI="caml_unix_readdir",b_="win_findclose",aD="%int_mul",dG="caml_int32_format",fs="caml_weak_blit",dE="caml_unix_localtime",dF="unix_times",fr="caml_array_set_addr",dD="caml_unix_inet_addr_of_string",fq="unix_ftruncate",dC="caml_weak_check",fp="caml_unix_symlink",aA="unix_outchannel_of_filedescr",ax="caml_unix_has_symlink",dz="unix_mktime",s="caml_int64_to_int32",b6="unix_fstat",fl="caml_unix_link",aw="caml_unix_fchmod",b3="unix_symlink",av="unix_localtime",fj="unix_chdir",au="unix_getgrgid",as="caml_int32_compare",ar="caml_unix_mkdir",fg="win_startup",ff="caml_int32_bswap",aq="caml_weak_get",fd="unix_readlink",ao="caml_unix_rmdir",e="caml_array_get",am="caml_unix_lstat_64",al="unix_inet_addr_of_string",bW="caml_unix_gettimeofday",r="caml_unix_outchannel_of_filedescr",bT="unix_stat",ds="caml_unix_chdir",aj="unix_closedir",ak="win_cleanup",bS="caml_nativeint_bswap",ag="caml_unix_mktime",ah="caml_ephe_get_key",ai="%int_mod",bR="unix_stat_64",dn="unix_getegid",dp="caml_unix_access",dl="caml_unix_isatty",af="caml_int32_mul",dk="caml_nativeint_compare",q="caml_int64_of_int32",ad="caml_unix_fsync",e_="win_findnext",$="caml_nativeint_mul",e9="unix_single_write",_="caml_int32_mod",n="caml_js_from_float",dg="unix_truncate_64",df="caml_ephe_check_key",e7="unix_opendir",bP="caml_array_set_float",e5="caml_ephe_get_key_copy",W="unix_getuid",d="caml_mul",V="caml_fill_string",g="caml_div",da="caml_int64_of_int",e2="caml_unix_read_bigarray",U="unix_getgrnam",eZ="win_findfirst",eY="caml_unix_startup",bM="caml_unix_filedescr_of_fd",eX="caml_unix_ftruncate",f="caml_mod",c$="caml_check_bound_float",bK="unix_utimes",bL="caml_unix_getgrgid",eV="caml_int64_to_nativeint",bJ="unix_time",eU="unix_fstat_64",P="caml_unix_fstat_64",c8="unix_truncate",bH="unix_gmtime",bG="caml_unix_cleanup",eR="unix_getcwd",eQ="unix_readdir",j="caml_sys_exit",L="caml_channel_descriptor",bC="unix_lseek_64",t="caml_int_compare",J="caml_array_get_addr",eI="unix_chmod",eJ="caml_unix_lstat",eH="caml_js_to_nativeint",I="caml_int32_div",c1="caml_unix_findfirst",H="caml_unix_truncate_64",G="caml_unix_rewinddir",F="unix_has_symlink",m="caml_int_of_string",eE="caml_unix_rename",bA="win_filedescr_of_channel",E="unix_gettimeofday",eD="win_handle_fd",b="caml_unix_getpwnam",cV="caml_int32_of_string",eB="caml_nativeint_mod",x="unix_rmdir",cR="caml_unix_read",cS="unix_read_bigarray",eu="caml_floatarray_get",w="unix_unlink",bu="caml_unix_open",er="caml_signbit",v="unix_fchmod",bs="caml_nativeint_div",eq="%int_div";c.aliases=i.caml_list_of_js_array([[0,cv,o],[0,fP,s],[0,eq,g],[0,fQ,n],[0,eZ,c1],[0,bs,g],[0,v,aw],[0,U,b],[0,aA,r],[0,da,q],[0,cA,n],[0,er,a7],[0,dC,df],[0,V,bl],[0,w,dZ],[0,fq,eX],[0,eu,e],[0,fr,h],[0,W,aR],[0,cS,e2],[0,x,ao],[0,dF,cd],[0,fs,cc],[0,dG,p],[0,fU,ek],[0,bP,h],[0,aD,d],[0,e7,ea],[0,b_,fL],[0,cV,m],[0,eB,f],[0,dg,H],[0,_,f],[0,bb,e5],[0,$,d],[0,e9,aL],[0,dK,fR],[0,be,ad],[0,aK,cE],[0,dM,m],[0,bf,dp],[0,eD,bM],[0,e_,eb],[0,E,bW],[0,bA,L],[0,fB,j],[0,dk,t],[0,af,d],[0,dO,j],[0,F,ax],[0,ec,eE],[0,aO,dl],[0,fC,dJ],[0,dn,a$],[0,ee,eJ],[0,fY,bu],[0,I,g],[0,fE,b],[0,fD,b],[0,bR,eo],[0,eH,fy],[0,ai,f],[0,bS,ff],[0,cg,ck],[0,cf,b],[0,ak,bG],[0,aj,ej],[0,cH,l],[0,eI,fX],[0,bT,el],[0,J,e],[0,aS,l],[0,al,dD],[0,dS,am],[0,f3,h],[0,cJ,k],[0,cm,r],[0,fJ,e],[0,fd,f2],[0,aq,ah],[0,bn,b],[0,bC,aU],[0,fg,eY],[0,eQ,dI],[0,a0,fT],[0,dX,bk],[0,as,t],[0,eR,k],[0,bH,a6],[0,bo,q],[0,au,b],[0,c8,cK],[0,fj,ds],[0,av,dE],[0,f6,p],[0,eU,P],[0,b3,fp],[0,bJ,bj],[0,eV,s],[0,a4,cR],[0,a3,G],[0,cr,ar],[0,bL,b],[0,d4,fl],[0,bK,dQ],[0,c$,o],[0,b6,dU],[0,en,bd],[0,dz,ag]]);c.prim_count=952;var +em=133,bq=102,bp="Re__Hash_set",cM="Stdlib__Type",cN=114,f5="Stdlib__Buffer",eh="Js_of_ocaml__Dom_svg",ei="Stdlib__Out_channel",f4="Match_failure",cL=165,eg=157,bm="Stdlib__Gc",ef="Sx_rsa",f0="Re__Compile",f1="Stdlib__Unit",cI="Re__Posix_class",fZ=136,cG="Jsoo_runtime__Runtime_version",cF="Stdlib__Map",bi="Sx_vm",ed="Stdlib__Parsing",bh="Stdlib__Effect",cD=108,bg="Stdlib__String",fW="Re_pcre",bc="Stdlib__BytesLabels",fV=160,ba=162,d$="Stdlib__Condition",cC=148,d_="Stdlib__Filename",a_="Stdlib__In_channel",d8="Not_found",d9="Re__Fmt",cB=154,d7=164,a9=163,a8="CamlinternalLazy",fS="Sx_vm_ref",cz="Division_by_zero",cy="Js_of_ocaml__Effect_js",cx="Re__Glob",d5=159,d6="Re__Parse_buffer",a5=117,cw=104,fO="Js_of_ocaml__",cu="Stdlib__Either",ct=109,cs="Js_of_ocaml__MutationObserver",d3="Erlang_ext",cq="Js_of_ocaml__Json",d2="Stdlib__Callback",d1=155,a2="Stdlib__Lexing",cp="Undefined_recursive_module",d0="Stdlib__Printf",fN=111,a1="Stdlib__Bool",co="UnixLabels",dY="Stdlib__Int",fM=153,dW="Stdlib__MoreLabels",aX=103,aY="Sx_render",aZ=127,dV="Sys_error",aW=100,aV="Sx_ed25519",cn="Js_of_ocaml__Dom_events",fK="Stdlib__Digest",dT=101,cl=151,aT="Sx_compiler",cj="Js_of_ocaml__PerformanceObserver",fI="Re__View",ci="Stdlib__Queue",dR="Sx_vm_extensions",fH=110,ch="Stdlib__Set",fG="Stdlib__Stack",fF="Js_of_ocaml__File",dP="Stdlib__Complex",aQ="Re__Dyn",aP="Jsoo_runtime__",ce="Re__Import",dN="Jsoo_runtime",fA=130,aM="Js_of_ocaml__WebSockets",aN="Stdlib__Nativeint",fz=128,cb="Sx_cid",dL=167,aJ=113,ca=146,fx=156,b$="Re__Dense_map",dH="Sys_blocked_io",aH=168,aI="Stdlib__Random",fw="Js_of_ocaml__ResizeObserver",fv="Sx_runtime",aG=135,b9=144,fu="Js_of_ocaml",aE=106,aF="Stdlib__Marshal",aC="Js_of_ocaml__Console",ft=140,b8="Sx_primitives",b7="Stdlib__Ephemeron",aB="CamlinternalMod",dB="Re__Color_map",az="Js_of_ocaml__Js",ay="Js_of_ocaml__Url",fo="Stdlib__Fun",fn="Stdlib__Char",dA=125,fm="Re__Category",b4=138,b5=116,fk=126,dy="Sx_vm_extension",at="Re__Ast",dx="Dune__exe__Sx_browser",dw=150,fi="CamlinternalFormatBasics",dv="Stdlib__Weak",b2=105,du="Stdlib__Format",fh="Stdlib__StdLabels",dt="Stdlib__Int64",fe="Re__Search",b1="Js_of_ocaml__Dom_html",ap="Stdlib__ArrayLabels",b0=129,fc="Re__Cset",an="Sx_sha2",bZ="Stdlib__Bigarray",bX=137,bY="Re__Core",bU=132,bV="Re__Emacs",dr="Re__Automata",dq="Re__Pmark",dm="Js_of_ocaml__IntersectionObserver",ae=115,dj=131,e$="Stdlib",fa="Stdlib__StringLabels",fb=122,ac="Stdlib__Atomic",ab="Sx_cst",di="Re__",aa="Stdlib__ListLabels",dh="Stdlib__Seq",bQ=158,e8="Js_of_ocaml__CSS",Z=134,de="Js_of_ocaml__XmlHttpRequest",e6="Re__Bit_vector",Y="Stdlib__Uchar",X=152,dd="Stdlib__Arg",dc="Js_of_ocaml__Form",db="Stdlib__Scanf",e4=112,e3="Re__Slice",e1="Js_of_ocaml__Intl",e0="Sx_sha3",bO=107,bN="Stdlib__Printexc",T="Js_of_ocaml__Sys_js",eW="Js_of_ocaml__Import",S="Re",R="Sx_cbor",c9="Js_of_ocaml__Geolocation",c_=147,eT="Re__Perl",Q="Js_of_ocaml__Worker",bI="Stdlib__Dynarray",eS="Assert_failure",O="Re__Pcre",N=141,bE=118,bF=121,bD=120,c7="Stdlib__Array",M="Js_of_ocaml__EventSource",c6="Stdlib__Obj",eP="Stdlib__Hashtbl",eN="Stdlib__Domain",eO="Stdlib__Option",eM=124,eL="Std_exit",eK=149,c5="Re__Group",K=166,c4="Sx_ref",bB=145,c2="Invalid_argument",c3="Stack_overflow",c0="End_of_file",cZ="Js_of_ocaml__WebGL",eG="Sx_types",eF="Failure",D="Js_of_ocaml__Jstable",cY="Test_ext",eC="Stdlib__Lazy",bz="Stdlib__Semaphore",cX="Out_of_memory",C="Js_of_ocaml__Lib_version",B="Js_of_ocaml__Regexp",cW="Js_of_ocaml__Dom",A="Stdlib__Bytes",by="Stdlib__Sys",eA=143,ez="CamlinternalOO",bx="Re__Posix",cT="Stdlib__Int32",cU="Sx_persist_store",ey="Stdlib__Oo",bw=123,y="Re__Replace",z="Unix",ev="Re__Mark_infos",ew="Stdlib__Mutex",ex=119,bv="Stdlib__List",cQ=139,et=161,bt="Sx_parser",es="Stdlib__Float",br=142,cP="CamlinternalFormat",u="Re__Str",ep="Js_of_ocaml__Typed_array",cO="Stdlib__Result";c.symbols=[0,[0,co,fN],[0,z,fH],[0,cp,11],[0,cY,aZ],[0,dV,10],[0,dH,9],[0,fS,fz],[0,dR,fk],[0,dy,dA],[0,bi,eM],[0,eG,e4],[0,e0,bD],[0,an,cN],[0,fv,fb],[0,ef,ex],[0,aY,b0],[0,c4,bw],[0,b8,bF],[0,cU,fA],[0,bt,bE],[0,aV,a5],[0,ab,b5],[0,aT,dj],[0,cb,ae],[0,R,aJ],[0,dv,62],[0,f1,31],[0,Y,26],[0,cM,17],[0,by,15],[0,fa,75],[0,bg,30],[0,fh,77],[0,fG,42],[0,ch,40],[0,dh,21],[0,bz,47],[0,db,64],[0,cO,23],[0,aI,60],[0,ci,43],[0,d0,50],[0,bN,53],[0,ed,39],[0,ei,57],[0,eO,22],[0,ey,67],[0,c6,16],[0,aN,37],[0,ew,45],[0,dW,76],[0,aF,32],[0,cF,41],[0,aa,73],[0,bv,27],[0,a2,38],[0,eC,20],[0,dt,36],[0,cT,35],[0,dY,28],[0,a_,56],[0,eP,61],[0,bm,55],[0,fo,54],[0,du,63],[0,es,34],[0,d_,70],[0,b7,69],[0,cu,14],[0,bh,78],[0,bI,51],[0,eN,48],[0,fK,58],[0,d$,46],[0,dP,71],[0,fn,25],[0,d2,65],[0,bc,74],[0,A,29],[0,f5,44],[0,a1,24],[0,bZ,59],[0,ac,18],[0,ap,72],[0,c7,33],[0,dd,52],[0,e$,13],[0,eL,aH],[0,c3,8],[0,fW,ct],[0,fI,93],[0,u,dT],[0,e3,95],[0,fe,97],[0,y,bq],[0,cI,cw],[0,bx,bO],[0,dq,89],[0,eT,b2],[0,O,aE],[0,d6,99],[0,ev,88],[0,ce,85],[0,bp,87],[0,c5,94],[0,cx,aX],[0,d9,80],[0,bV,aW],[0,aQ,82],[0,b$,84],[0,fc,86],[0,bY,98],[0,f0,96],[0,dB,91],[0,fm,83],[0,e6,81],[0,dr,90],[0,at,92],[0,di,79],[0,S,cD],[0,cX,7],[0,d8,6],[0,f4,5],[0,cG,Z],[0,aP,em],[0,dN,aG],[0,de,b9],[0,Q,bB],[0,aM,ca],[0,cZ,c_],[0,ay,eK],[0,ep,ft],[0,T,cl],[0,fw,X],[0,B,cC],[0,cj,fM],[0,cs,cB],[0,C,dw],[0,D,d1],[0,cq,fx],[0,az,b4],[0,e1,cL],[0,dm,d7],[0,eW,bX],[0,c9,a9],[0,dc,eA],[0,fF,N],[0,M,ba],[0,cy,et],[0,eh,fV],[0,b1,br],[0,cn,d5],[0,cW,cQ],[0,aC,bQ],[0,e8,eg],[0,fO,fZ],[0,fu,K],[0,c2,4],[0,eF,3],[0,d3,bU],[0,c0,2],[0,dx,dL],[0,cz,1],[0,ez,66],[0,aB,68],[0,a8,19],[0,fi,12],[0,cP,49],[0,eS,0]];c.sections=[0,[0,169,[0,[0,[0,[0,[0,[0,[0,0,[0,eS],0,[0,0,[0,cP],49,0,1],2],[0,fi],12,0,3],[0,a8],19,[0,[0,[0,0,[0,aB],68,0,1],[0,ez],66,0,2],[0,cz],1,[0,[0,0,[0,dx],dL,0,1],[0,c0],2,[0,0,[0,d3],bU,0,1],2],3],4],[0,eF],3,[0,[0,[0,0,[0,c2],4,[0,0,[0,fu],K,0,1],2],[0,fO],fZ,[0,0,[0,e8],eg,[0,0,[0,aC],bQ,0,1],2],3],[0,cW],cQ,[0,[0,[0,0,[0,cn],d5,0,1],[0,b1],br,0,2],[0,eh],fV,[0,[0,0,[0,cy],et,[0,0,[0,M],ba,0,1],2],[0,fF],N,[0,0,[0,dc],eA,[0,0,[0,c9],a9,0,1],2],3],4],5],6],[0,eW],bX,[0,[0,[0,[0,[0,[0,0,[0,dm],d7,[0,0,[0,e1],cL,0,1],2],[0,az],b4,[0,[0,0,[0,cq],fx,0,1],[0,D],d1,0,2],3],[0,C],dw,[0,[0,0,[0,cs],cB,0,1],[0,cj],fM,0,2],4],[0,B],cC,[0,[0,0,[0,fw],X,0,1],[0,T],cl,0,2],5],[0,ep],ft,[0,[0,[0,[0,0,[0,ay],eK,0,1],[0,cZ],c_,0,2],[0,aM],ca,0,3],[0,Q],bB,[0,0,[0,de],b9,0,1],4],6],[0,dN],aG,[0,[0,[0,0,[0,aP],em,[0,0,[0,cG],Z,0,1],2],[0,f4],5,[0,0,[0,d8],6,0,1],3],[0,cX],7,[0,[0,0,[0,S],cD,0,1],[0,di],79,[0,[0,0,[0,at],92,0,1],[0,dr],90,0,2],3],4],7],8],[0,e6],81,[0,[0,[0,[0,[0,0,[0,fm],83,0,1],[0,dB],91,[0,0,[0,f0],96,[0,0,[0,bY],98,0,1],2],3],[0,fc],86,[0,0,[0,b$],84,0,1],4],[0,aQ],82,[0,[0,[0,0,[0,bV],aW,0,1],[0,d9],80,[0,[0,[0,0,[0,cx],aX,0,1],[0,c5],94,0,2],[0,bp],87,0,3],4],[0,ce],85,[0,[0,[0,0,[0,ev],88,0,1],[0,d6],99,[0,[0,0,[0,O],aE,0,1],[0,eT],b2,0,2],3],[0,dq],89,[0,[0,[0,[0,0,[0,bx],bO,0,1],[0,cI],cw,0,2],[0,y],bq,[0,0,[0,fe],97,0,1],3],[0,e3],95,[0,[0,0,[0,u],dT,0,1],[0,fI],93,[0,[0,0,[0,fW],ct,0,1],[0,c3],8,[0,0,[0,eL],aH,0,1],2],3],4],5],6],7],[0,e$],13,[0,[0,[0,[0,0,[0,dd],52,0,1],[0,c7],33,[0,0,[0,ap],72,0,1],2],[0,ac],18,[0,0,[0,bZ],59,0,1],3],[0,a1],24,[0,[0,[0,0,[0,f5],44,0,1],[0,A],29,[0,[0,0,[0,bc],74,0,1],[0,d2],65,0,2],3],[0,fn],25,[0,[0,0,[0,dP],71,0,1],[0,d$],46,[0,[0,0,[0,fK],58,0,1],[0,eN],48,[0,0,[0,bI],51,[0,0,[0,bh],78,0,1],2],3],4],5],6],8],9],[0,cu],14,[0,[0,[0,[0,[0,[0,0,[0,b7],69,[0,0,[0,d_],70,0,1],2],[0,es],34,[0,0,[0,du],63,0,1],3],[0,fo],54,[0,0,[0,bm],55,[0,[0,0,[0,eP],61,0,1],[0,a_],56,0,2],3],4],[0,dY],28,[0,0,[0,cT],35,[0,0,[0,dt],36,0,1],2],5],[0,eC],20,[0,[0,[0,0,[0,a2],38,0,1],[0,bv],27,[0,[0,0,[0,aa],73,0,1],[0,cF],41,0,2],3],[0,aF],32,[0,[0,[0,0,[0,dW],76,0,1],[0,ew],45,0,2],[0,aN],37,0,3],4],6],[0,c6],16,[0,[0,[0,[0,[0,[0,0,[0,ey],67,0,1],[0,eO],22,[0,0,[0,ei],57,0,1],2],[0,ed],39,[0,[0,0,[0,bN],53,0,1],[0,d0],50,0,2],3],[0,ci],43,[0,[0,0,[0,aI],60,0,1],[0,cO],23,[0,[0,0,[0,db],64,0,1],[0,bz],47,0,2],3],4],[0,dh],21,[0,[0,0,[0,ch],40,[0,0,[0,fG],42,[0,0,[0,fh],77,0,1],2],3],[0,bg],30,[0,0,[0,fa],75,0,1],4],5],[0,by],15,[0,[0,[0,[0,[0,0,[0,cM],17,0,1],[0,Y],26,[0,0,[0,f1],31,0,1],2],[0,dv],62,[0,[0,0,[0,R],aJ,0,1],[0,cb],ae,[0,0,[0,aT],dj,0,1],2],3],[0,ab],b5,[0,[0,[0,0,[0,aV],a5,0,1],[0,bt],bE,[0,0,[0,cU],fA,0,1],2],[0,b8],bF,[0,[0,0,[0,c4],bw,[0,0,[0,aY],b0,0,1],2],[0,ef],ex,[0,0,[0,fv],fb,0,1],3],4],5],[0,an],cN,[0,[0,[0,0,[0,e0],bD,0,1],[0,eG],e4,[0,[0,0,[0,bi],eM,0,1],[0,dy],dA,[0,0,[0,dR],fk,[0,0,[0,fS],fz,0,1],2],3],4],[0,dH],9,[0,[0,0,[0,dV],10,[0,0,[0,cY],aZ,0,1],2],[0,cp],11,[0,0,[0,z],fH,[0,0,[0,co],fN,0,1],2],3],5],6],7],8],10]],0,i.caml_list_of_js_array(["%caml_format_int_special","%direct_int_div","%direct_int_mod","%direct_int_mul","%direct_obj_tag","%int_add","%int_and","%int_asr",eq,"%int_lsl","%int_lsr",ai,aD,"%int_neg","%int_or","%int_sub","%int_xor","JsStringReader","MlBytes","MlChanid","MlFakeDevice","MlFakeFd","MlFakeFd_out","MlFakeFile","MlFile","MlInt64","MlMutex","MlNat","MlNodeDevice","MlNodeFd","MlObjectTable","Ml_Bigarray","Ml_Bigarray_c_1_1","UInt8ArrayReader","add_nat","bigstring_of_array_buffer","bigstring_of_typed_array","bigstring_to_array_buffer","bigstring_to_typed_array","blake2b","blit_nat","caml_MD5Final","caml_MD5Init","caml_MD5Transform","caml_MD5Update","caml_abs_float","caml_acos_float","caml_acosh_float","caml_add_float","caml_alloc_dummy","caml_alloc_dummy_float","caml_alloc_dummy_infix","caml_alloc_stack","caml_argv","caml_array_append","caml_array_blit","caml_array_bound_error","caml_array_concat","caml_array_fill",e,J,fJ,"caml_array_make","caml_array_of_bytes","caml_array_of_string",h,fr,bP,"caml_array_sub","caml_array_unsafe_get","caml_array_unsafe_get_float","caml_array_unsafe_set","caml_array_unsafe_set_addr","caml_array_unsafe_set_float","caml_asin_float","caml_asinh_float","caml_atan2_float","caml_atan_float","caml_atanh_float","caml_atomic_cas","caml_atomic_exchange","caml_atomic_fetch_add","caml_atomic_load","caml_atomic_make_contended","caml_ba_blit","caml_ba_change_layout","caml_ba_compare","caml_ba_create","caml_ba_create_buffer","caml_ba_create_from","caml_ba_create_unsafe","caml_ba_custom_name","caml_ba_deserialize","caml_ba_dim","caml_ba_dim_1","caml_ba_dim_2","caml_ba_dim_3","caml_ba_fill","caml_ba_from_typed_array","caml_ba_get_1","caml_ba_get_2","caml_ba_get_3","caml_ba_get_generic","caml_ba_get_size","caml_ba_get_size_per_element","caml_ba_hash","caml_ba_init","caml_ba_kind","caml_ba_kind_of_typed_array","caml_ba_layout","caml_ba_map_file","caml_ba_map_file_bytecode","caml_ba_num_dims","caml_ba_reshape","caml_ba_serialize","caml_ba_set_1","caml_ba_set_2","caml_ba_set_3","caml_ba_set_generic","caml_ba_slice","caml_ba_sub","caml_ba_to_typed_array","caml_ba_uint8_get16","caml_ba_uint8_get32","caml_ba_uint8_get64","caml_ba_uint8_set16","caml_ba_uint8_set32","caml_ba_uint8_set64","caml_backtrace_status","caml_bigstring_blit_ba_to_ba","caml_bigstring_blit_ba_to_bytes","caml_bigstring_blit_bytes_to_ba","caml_bigstring_blit_string_to_ba","caml_bigstring_memcmp","caml_blake2_create","caml_blake2_final","caml_blake2_string","caml_blake2_update","caml_blit_bytes","caml_blit_string","caml_bswap16","caml_build_symbols","caml_bytes_bound_error","caml_bytes_compare","caml_bytes_equal","caml_bytes_get","caml_bytes_get16","caml_bytes_get32","caml_bytes_get64","caml_bytes_greaterequal","caml_bytes_greaterthan","caml_bytes_lessequal","caml_bytes_lessthan","caml_bytes_notequal","caml_bytes_of_array","caml_bytes_of_jsbytes","caml_bytes_of_string","caml_bytes_of_uint8_array","caml_bytes_of_utf16_jsstring","caml_bytes_set","caml_bytes_set16","caml_bytes_set32","caml_bytes_set64","caml_bytes_unsafe_get","caml_bytes_unsafe_set","caml_call_gen","caml_callback","caml_cbrt_float","caml_ceil_float",L,o,c$,cv,"caml_classify_float","caml_compare","caml_compare_val","caml_compare_val_get_custom","caml_compare_val_number_custom","caml_compare_val_tag","caml_continuation_use_and_update_handler_noexc","caml_continuation_use_noexc","caml_convert_bytes_to_array","caml_convert_raw_backtrace","caml_convert_raw_backtrace_slot","caml_convert_string_to_bytes","caml_copysign_float","caml_cos_float","caml_cosh_float","caml_create_bytes","caml_create_file","caml_create_string","caml_current_dir","caml_custom_event_index","caml_custom_identifier","caml_custom_ops","caml_decompress_input",g,"caml_div_float","caml_domain_dls","caml_domain_dls_compare_and_set","caml_domain_dls_get","caml_domain_dls_set","caml_domain_id","caml_domain_spawn","caml_ephe_blit_data",cc,"caml_ephe_check_data",df,"caml_ephe_create","caml_ephe_data_offset","caml_ephe_get_data","caml_ephe_get_data_copy",ah,e5,"caml_ephe_key_offset","caml_ephe_none","caml_ephe_set_data","caml_ephe_set_data_opt","caml_ephe_set_key","caml_ephe_unset_data","caml_ephe_unset_key","caml_eq_float","caml_equal","caml_erf_float","caml_erfc_float","caml_executable_name","caml_exn_with_js_backtrace","caml_exp2_float","caml_exp_float","caml_expm1_float","caml_failwith","caml_fatal_uncaught_exception",bl,V,"caml_final_register","caml_final_register_called_without_value","caml_final_release","caml_finish_formatting","caml_float_compare","caml_float_of_bytes","caml_float_of_int","caml_float_of_string","caml_floatarray_blit","caml_floatarray_create",eu,f3,"caml_floatarray_unsafe_get","caml_floatarray_unsafe_set","caml_floor_float","caml_fma_float","caml_fmod_float","caml_format_exception","caml_format_float",p,"caml_fresh_oo_id","caml_frexp_float","caml_fs_init","caml_gc_compaction","caml_gc_counters","caml_gc_full_major","caml_gc_get","caml_gc_major","caml_gc_major_slice","caml_gc_minor","caml_gc_minor_words","caml_gc_quick_stat","caml_gc_set","caml_gc_stat","caml_ge_float","caml_get_cached_method","caml_get_continuation_callstack","caml_get_current_callstack","caml_get_exception_backtrace","caml_get_exception_raw_backtrace","caml_get_global_data","caml_get_minor_free","caml_get_public_method","caml_get_root","caml_global_data","caml_gr_arc_aux","caml_gr_blit_image","caml_gr_clear_graph","caml_gr_close_graph","caml_gr_close_subwindow","caml_gr_create_image","caml_gr_current_x","caml_gr_current_y","caml_gr_display_mode","caml_gr_doc_of_state","caml_gr_draw_arc","caml_gr_draw_char","caml_gr_draw_image","caml_gr_draw_rect","caml_gr_draw_str","caml_gr_draw_string","caml_gr_dump_image","caml_gr_fill_arc","caml_gr_fill_poly","caml_gr_fill_rect","caml_gr_lineto","caml_gr_make_image","caml_gr_moveto","caml_gr_open_graph","caml_gr_open_subwindow","caml_gr_plot","caml_gr_point_color","caml_gr_remember_mode","caml_gr_resize_window","caml_gr_set_color","caml_gr_set_font","caml_gr_set_line_width","caml_gr_set_text_size","caml_gr_set_window_title","caml_gr_sigio_handler","caml_gr_sigio_signal","caml_gr_size_x","caml_gr_size_y","caml_gr_state","caml_gr_state_create","caml_gr_state_get","caml_gr_state_init","caml_gr_state_set","caml_gr_synchronize","caml_gr_text_size","caml_gr_wait_event","caml_gr_window_id","caml_greaterequal","caml_greaterthan","caml_gt_float","caml_hash","caml_hash_mix_bigstring","caml_hash_mix_bytes","caml_hash_mix_bytes_arr","caml_hash_mix_final","caml_hash_mix_float","caml_hash_mix_float16","caml_hash_mix_float32","caml_hash_mix_int","caml_hash_mix_int64","caml_hash_mix_jsbytes","caml_hash_mix_string","caml_hash_nat","caml_hexstring_of_float","caml_hypot_float","caml_input_value","caml_input_value_from_bytes","caml_input_value_from_reader","caml_input_value_to_outside_heap","caml_install_signal_handler","caml_int32_add","caml_int32_and","caml_int32_bits_of_float",ff,as,I,"caml_int32_float_of_bits",dG,_,af,"caml_int32_neg","caml_int32_of_float","caml_int32_of_int",cV,"caml_int32_or","caml_int32_shift_left","caml_int32_shift_right","caml_int32_shift_right_unsigned","caml_int32_sub","caml_int32_to_float","caml_int32_to_int","caml_int32_unmarshal","caml_int32_xor","caml_int64_add","caml_int64_and","caml_int64_bits_of_float","caml_int64_bswap","caml_int64_compare","caml_int64_create_lo_hi","caml_int64_create_lo_mi_hi","caml_int64_div","caml_int64_float_of_bits","caml_int64_format","caml_int64_hash","caml_int64_hi32","caml_int64_is_negative","caml_int64_is_zero","caml_int64_lo32","caml_int64_marshal","caml_int64_mod","caml_int64_mul","caml_int64_neg","caml_int64_of_bytes","caml_int64_of_float",da,q,bo,"caml_int64_of_string","caml_int64_offset","caml_int64_or","caml_int64_shift_left","caml_int64_shift_right","caml_int64_shift_right_unsigned","caml_int64_sub","caml_int64_to_bytes","caml_int64_to_float",fP,s,eV,"caml_int64_ult","caml_int64_unmarshal","caml_int64_xor",t,"caml_int_of_float",m,"caml_invalid_argument","caml_io_buffer_size","caml_is_continuation_tag","caml_is_js","caml_is_ml_bytes","caml_is_ml_string","caml_is_printable","caml_is_special_exception","caml_js_call","caml_js_delete","caml_js_equals","caml_js_error_of_exception","caml_js_error_option_of_exception","caml_js_eval_string","caml_js_expr","caml_js_from_array","caml_js_from_bool",n,fQ,cA,"caml_js_from_string","caml_js_fun_call","caml_js_function_arity","caml_js_get","caml_js_get_console","caml_js_html_entities","caml_js_html_escape","caml_js_instanceof","caml_js_meth_call","caml_js_new","caml_js_object","caml_js_pure_expr","caml_js_set","caml_js_strict_equals","caml_js_to_array","caml_js_to_bool","caml_js_to_byte_string","caml_js_to_float",fy,eH,"caml_js_to_string","caml_js_typeof","caml_js_var","caml_js_wrap_callback","caml_js_wrap_callback_arguments","caml_js_wrap_callback_strict","caml_js_wrap_callback_unsafe","caml_js_wrap_meth_callback","caml_js_wrap_meth_callback_arguments","caml_js_wrap_meth_callback_strict","caml_js_wrap_meth_callback_unsafe","caml_jsbytes_of_string","caml_jsoo_flags_effects","caml_jsoo_flags_use_js_string","caml_jsstring_of_string","caml_lazy_make_forward","caml_lazy_read_result","caml_lazy_reset_to_lazy","caml_lazy_update_to_forcing","caml_lazy_update_to_forward","caml_ldexp_float","caml_le_float","caml_lessequal","caml_lessthan","caml_lex_array","caml_lex_engine","caml_list_mount_point","caml_list_of_js_array","caml_list_to_js_array","caml_log10_float","caml_log1p_float","caml_log2_float","caml_log_float","caml_lt_float","caml_lxm_M","caml_lxm_daba","caml_lxm_next","caml_make_float_vect","caml_make_path","caml_make_vect","caml_marshal_constants","caml_marshal_data_size","caml_marshal_header_size","caml_maybe_attach_backtrace","caml_maybe_print_stats","caml_md5_bytes","caml_md5_chan","caml_md5_string","caml_memprof_discard","caml_memprof_start","caml_memprof_stop","caml_method_cache","caml_ml_bytes_content","caml_ml_bytes_length","caml_ml_channel_get","caml_ml_channel_redirect","caml_ml_channel_restore","caml_ml_channel_size","caml_ml_channel_size_64","caml_ml_channels","caml_ml_close_channel","caml_ml_condition_broadcast","caml_ml_condition_new","caml_ml_condition_signal","caml_ml_condition_wait","caml_ml_debug_info_status","caml_ml_domain_cpu_relax","caml_ml_domain_id","caml_ml_enable_runtime_warnings","caml_ml_flush","caml_ml_input","caml_ml_input_bigarray","caml_ml_input_block","caml_ml_input_char","caml_ml_input_int","caml_ml_input_scan_line","caml_ml_is_binary_mode","caml_ml_is_buffered","caml_ml_mutex_lock","caml_ml_mutex_new","caml_ml_mutex_try_lock","caml_ml_mutex_unlock","caml_ml_open_descriptor_in","caml_ml_open_descriptor_in_with_flags","caml_ml_open_descriptor_out","caml_ml_open_descriptor_out_with_flags","caml_ml_out_channels_list","caml_ml_output","caml_ml_output_bigarray","caml_ml_output_bytes","caml_ml_output_char","caml_ml_output_int","caml_ml_output_ta","caml_ml_pos_in","caml_ml_pos_in_64","caml_ml_pos_out","caml_ml_pos_out_64","caml_ml_runtime_events_are_active","caml_ml_runtime_events_pause","caml_ml_runtime_events_resume","caml_ml_runtime_events_start","caml_ml_runtime_warnings_enabled","caml_ml_seek_in","caml_ml_seek_in_64","caml_ml_seek_out","caml_ml_seek_out_64","caml_ml_set_binary_mode","caml_ml_set_buffered","caml_ml_set_channel_name","caml_ml_set_channel_output","caml_ml_set_channel_refill","caml_ml_string_length",f,"caml_modf_float","caml_mount_autoload",d,"caml_mul_float","caml_named_value","caml_named_values","caml_nativeint_add","caml_nativeint_and",bS,dk,bs,f6,eB,$,"caml_nativeint_neg","caml_nativeint_of_float","caml_nativeint_of_int","caml_nativeint_of_int32",dM,"caml_nativeint_or","caml_nativeint_shift_left","caml_nativeint_shift_right","caml_nativeint_shift_right_unsigned","caml_nativeint_sub","caml_nativeint_to_float","caml_nativeint_to_int","caml_nativeint_to_int32","caml_nativeint_unmarshal","caml_nativeint_xor","caml_neg_float","caml_neq_float","caml_new_lex_engine","caml_new_string","caml_nextafter_float","caml_notequal","caml_obj_add_offset","caml_obj_block","caml_obj_compare_and_swap","caml_obj_dup","caml_obj_is_shared","caml_obj_raw_field","caml_obj_reachable_words","caml_obj_set_raw_field","caml_obj_tag","caml_obj_update_tag","caml_obj_with_tag","caml_ojs_new_arr","caml_oo_cache_id","caml_oo_last_id","caml_output_val","caml_output_value","caml_output_value_to_buffer","caml_output_value_to_bytes","caml_output_value_to_string","caml_packFloat16","caml_parse_digit","caml_parse_engine","caml_parse_format","caml_parse_sign_and_base","caml_parser_trace","caml_pos_in","caml_pos_out","caml_power_float","caml_pure_js_expr","caml_raise_constant","caml_raise_end_of_file","caml_raise_no_such_file","caml_raise_nodejs_error","caml_raise_not_found","caml_raise_sys_error","caml_raise_system_error","caml_raise_with_arg","caml_raise_with_args","caml_raise_with_string","caml_raise_zero_divide","caml_raw_backtrace_length","caml_raw_backtrace_next_slot","caml_raw_backtrace_slot","caml_read_file_content","caml_recommended_domain_count","caml_record_backtrace","caml_record_backtrace_env_flag","caml_record_backtrace_runtime_flag","caml_refill","caml_register_global","caml_register_named_value","caml_restore_raw_backtrace","caml_root","caml_round_float","caml_runtime_events_create_cursor","caml_runtime_events_free_cursor","caml_runtime_events_read_poll","caml_runtime_events_user_register","caml_runtime_events_user_resolve","caml_runtime_events_user_write","caml_runtime_parameters","caml_runtime_variant","caml_runtime_warnings","caml_seek_in","caml_seek_out","caml_set_oo_id","caml_set_parser_trace","caml_set_static_env",er,a7,"caml_sin_float","caml_sinh_float","caml_sqrt_float","caml_str_repeat","caml_strerror","caml_string_bound_error","caml_string_compare","caml_string_concat","caml_string_equal","caml_string_get","caml_string_get16","caml_string_get32","caml_string_get64","caml_string_greaterequal","caml_string_greaterthan","caml_string_hash","caml_string_lessequal","caml_string_lessthan","caml_string_notequal","caml_string_of_array","caml_string_of_bytes","caml_string_of_jsbytes","caml_string_of_jsstring","caml_string_of_uint8_array","caml_string_set","caml_string_unsafe_get","caml_sub_float","caml_sub_uint8_array_to_jsbytes","caml_subarray_to_jsbytes","caml_sys_argv","caml_sys_chdir","caml_sys_close","caml_sys_const_backend_type","caml_sys_const_big_endian","caml_sys_const_int_size","caml_sys_const_max_wosize","caml_sys_const_naked_pointers_checked","caml_sys_const_ostype_cygwin","caml_sys_const_ostype_unix","caml_sys_const_ostype_win32","caml_sys_const_word_size","caml_sys_executable_name",j,"caml_sys_fds","caml_sys_file_exists","caml_sys_get_argv","caml_sys_get_config",k,"caml_sys_getenv","caml_sys_is_directory","caml_sys_is_regular_file","caml_sys_isatty","caml_sys_mkdir","caml_sys_modify_argv","caml_sys_open","caml_sys_open_for_node","caml_sys_random_seed","caml_sys_read_directory","caml_sys_remove","caml_sys_rename","caml_sys_rmdir","caml_sys_system_command","caml_sys_time","caml_sys_time_include_children","caml_sys_unsafe_getenv","caml_tan_float","caml_tanh_float","caml_throw_js_exception","caml_to_js_string","caml_trailing_slash","caml_trampoline","caml_trampoline_return","caml_trunc_float","caml_uint8_array_of_bytes","caml_uint8_array_of_string",dp,ds,fX,bG,fR,ej,dX,dO,aw,bM,fL,c1,eb,dU,P,ad,eX,dJ,cJ,a$,ck,fT,bL,bn,b,fD,bW,aR,a6,ax,l,dD,dl,fl,dE,fU,bd,aU,eJ,am,ar,ag,bu,ea,r,cR,e2,dI,f2,eE,G,ao,aL,eY,el,eo,fp,bj,cd,cK,H,dZ,dQ,cE,ek,"caml_unmount","caml_unpackFloat16","caml_update_dummy",fs,dC,"caml_weak_create",aq,bb,"caml_weak_set","caml_wrap_exception","caml_xdg_defaults","caml_xmlhttprequest_create","caml_zstd_initialize","compare_digits_nat","compare_nat","complement_nat","create_nat","decr_nat","deserialize_nat","div_digit_nat","div_helper","div_nat","fs_node_supported","incr_nat","initialize_nat","is_digit_int","is_digit_normalized","is_digit_odd","is_digit_zero","jsoo_create_file","jsoo_create_file_extern","jsoo_dataview","jsoo_effect_not_supported","jsoo_is_ascii","jsoo_is_win32","jsoo_mount_point","jsoo_static_env","jsoo_sys_getenv","jsoo_text_decoder","jsoo_text_decoder_buff","jsoo_text_encoder","jsoo_toplevel_reloc","land_digit_nat","length_nat","lor_digit_nat","lxor_digit_nat","make_unix_err_args","mult_digit_nat","mult_nat","nat_of_array","nth_digit_nat","nth_digit_nat_native","num_digits_nat","num_leading_zero_bits_in_digit","ocaml_stats_from_node_stats","os_type","path_is_absolute","re_match","re_partial_match","re_replacement_text","re_search_backward","re_search_forward","re_string_match","resolve_fs_device","serialize_nat","set_digit_nat","set_digit_nat_native","set_to_zero_nat","shift_left_nat","shift_right_nat","square_nat","sub_nat",bf,fj,eI,dK,aj,"unix_error",bk,fB,v,b6,eU,be,fq,fC,eR,dn,cg,a0,au,U,cf,fE,E,W,bH,F,aS,al,aO,d4,av,en,bC,ee,dS,cr,dz,fY,e7,aA,a4,cS,eQ,fd,ec,a3,x,e9,bT,bR,b3,bJ,dF,c8,dg,w,bK,aK,ak,bA,b_,eZ,e_,eD,cH,cm,fg,"zstd_decompress"]),0];return}(globalThis)); //# 4 "../.js/default/stdlib/stdlib.cma.js" //# shape: CamlinternalFormatBasics:[F(2),F(1),F(2)] @@ -28215,6 +28215,1669 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); +//# 21918 "../.js/default/stdlib/stdlib.cma.js" +//# shape: Stdlib__Scanf:[N,N,F(2),F(2),F(2),F(2),F(1),F(1),F(3),F(3),F(3),F(3),F(2),F(1)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_bytes_get = runtime.caml_bytes_get, + caml_int_of_string = runtime.caml_int_of_string, + caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace, + caml_ml_string_length = runtime.caml_ml_string_length, + caml_string_get = runtime.caml_string_get, + caml_trampoline = runtime.caml_trampoline, + caml_trampoline_return = runtime.caml_trampoline_return, + caml_wrap_exception = runtime.caml_wrap_exception; + function caml_call1(f, a0){ + return (f.l >= 0 ? f.l : f.l = f.length) === 1 + ? f(a0) + : runtime.caml_call_gen(f, [a0]); + } + function caml_call2(f, a0, a1){ + return (f.l >= 0 ? f.l : f.l = f.length) === 2 + ? f(a0, a1) + : runtime.caml_call_gen(f, [a0, a1]); + } + function caml_call3(f, a0, a1, a2){ + return (f.l >= 0 ? f.l : f.l = f.length) === 3 + ? f(a0, a1, a2) + : runtime.caml_call_gen(f, [a0, a1, a2]); + } + var + global_data = runtime.caml_get_global_data(), + CamlinternalFormat = global_data.CamlinternalFormat, + CamlinternalFormatBasics = global_data.CamlinternalFormatBasics, + Stdlib_String = global_data.Stdlib__String, + Stdlib = global_data.Stdlib, + Assert_failure = global_data.Assert_failure, + Stdlib_Printf = global_data.Stdlib__Printf, + Stdlib_Int = global_data.Stdlib__Int, + Stdlib_Buffer = global_data.Stdlib__Buffer, + null_char = 0; + function next_char(ib){ + try{ + var c = caml_call1(ib[7], 0); + ib[2] = c; + ib[3] = 1; + ib[4] = ib[4] + 1 | 0; + if(10 === c) ib[5] = ib[5] + 1 | 0; + return c; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn !== Stdlib[12]) throw caml_maybe_attach_backtrace(exn, 0); + ib[2] = null_char; + ib[3] = 0; + ib[1] = 1; + return null_char; + } + } + function peek_char(ib){return ib[3] ? ib[2] : next_char(ib);} + function checked_peek_char(ib){ + var c = peek_char(ib); + if(ib[1]) throw caml_maybe_attach_backtrace(Stdlib[12], 1); + return c; + } + function end_of_input(ib){peek_char(ib); return ib[1];} + function beginning_of_input(ib){return 0 === ib[4] ? 1 : 0;} + function name_of_input(ib){ + var match = ib[9]; + if(typeof match === "number") + return 0 === match ? "unnamed function" : "unnamed character string"; + if(0 === match[0]) return "unnamed Stdlib input channel"; + var fname = match[1]; + return fname; + } + function char_count(ib){return ib[3] ? ib[4] - 1 | 0 : ib[4];} + function invalidate_current_char(ib){ib[3] = 0; return 0;} + function token_string(ib){ + var token_buffer = ib[8], tok = Stdlib_Buffer[2].call(null, token_buffer); + Stdlib_Buffer[8].call(null, token_buffer); + ib[6] = ib[6] + 1 | 0; + return tok; + } + function ignore_char(width, ib){ + var width$0 = width - 1 | 0; + invalidate_current_char(ib); + return width$0; + } + function store_char(width, ib, c){ + Stdlib_Buffer[12].call(null, ib[8], c); + return ignore_char(width, ib); + } + function create(iname, next){ + return [0, + 0, + null_char, + 0, + 0, + 0, + 0, + next, + Stdlib_Buffer[1].call(null, 1024), + iname]; + } + function from_string(s){ + var len = caml_ml_string_length(s), i = [0, 0]; + function next(param){ + if(len <= i[1]) throw caml_maybe_attach_backtrace(Stdlib[12], 1); + var c = caml_string_get(s, i[1]); + i[1]++; + return c; + } + return create(1, next); + } + function from_function(a){return create(0, a);} + function scan_close_at_end(ic){ + Stdlib[93].call(null, ic); + throw caml_maybe_attach_backtrace(Stdlib[12], 1); + } + function scan_raise_at_end(ic){ + throw caml_maybe_attach_backtrace(Stdlib[12], 1); + } + function from_ic(scan_close_ic, iname, ic){ + var + buf = runtime.caml_create_bytes(1024), + i = [0, 0], + lim = [0, 0], + eof = [0, 0]; + function next(param){ + if(i[1] < lim[1]){var c = caml_bytes_get(buf, i[1]); i[1]++; return c;} + if(eof[1]) throw caml_maybe_attach_backtrace(Stdlib[12], 1); + lim[1] = Stdlib[84].call(null, ic, buf, 0, 1024); + return 0 === lim[1] + ? (eof[1] = 1, caml_call1(scan_close_ic, ic)) + : (i[1] = 1, caml_bytes_get(buf, 0)); + } + return create(iname, next); + } + var + cst$0 = "-", + stdin = from_ic(scan_raise_at_end, [1, cst$0, Stdlib[38]], Stdlib[38]); + function open_in_file(open_in, fname){ + if(fname === cst$0) return stdin; + var ic = caml_call1(open_in, fname); + return from_ic(scan_close_at_end, [1, fname, ic], ic); + } + var a = Stdlib[79]; + function open_in(b){return open_in_file(a, b);} + var b = Stdlib[80]; + function open_in_bin(a){return open_in_file(b, a);} + function from_channel(ic){return from_ic(scan_raise_at_end, [0, ic], ic);} + function close_in(ib){ + var match = ib[9]; + if(typeof match === "number") return 0; + if(0 === match[0]){var ic = match[1]; return Stdlib[93].call(null, ic);} + var ic$0 = match[2]; + return Stdlib[93].call(null, ic$0); + } + var + Scan_failure = + [248, "Stdlib.Scanf.Scan_failure", runtime.caml_fresh_oo_id(0)]; + function bad_input(s){ + throw caml_maybe_attach_backtrace([0, Scan_failure, s], 1); + } + var + c = + [0, + [11, "illegal escape character ", [1, 0]], + "illegal escape character %C"]; + function bad_input_escape(c$0){ + return bad_input(caml_call1(Stdlib_Printf[4].call(null, c), c$0)); + } + var + cst_scanning_of = "scanning of ", + d = + [0, + [11, + cst_scanning_of, + [2, + 0, + [11, " failed: the specified length was too short for token", 0]]], + "scanning of %s failed: the specified length was too short for token"]; + function bad_token_length(message){ + return bad_input(caml_call1(Stdlib_Printf[4].call(null, d), message)); + } + var + cst_not_a_valid_float_in_hexad = + "not a valid float in hexadecimal notation"; + function bad_hex_float(param){ + return bad_input(cst_not_a_valid_float_in_hexad); + } + var + f = + [0, + [11, "looking for ", [1, [11, ", found ", [1, 0]]]], + "looking for %C, found %C"]; + function character_mismatch(c, ci){ + return bad_input(caml_call2(Stdlib_Printf[4].call(null, f), c, ci)); + } + function check_char(ib, c$0){ + if(10 === c$0){ + var ci = checked_peek_char(ib); + return 10 === ci + ? invalidate_current_char(ib) + : 13 + === ci + ? (invalidate_current_char(ib), check_this_char(ib, 10)) + : character_mismatch(10, ci); + } + if(32 !== c$0) return check_this_char(ib, c$0); + for(;;){ + var c = peek_char(ib), b = 1 - ib[1]; + if(! b) return b; + var a = c - 9 | 0; + a: + { + if(4 < a >>> 0){ + if(23 !== a) break a; + } + else if(1 >= a - 2 >>> 0) break a; + invalidate_current_char(ib); + continue; + } + return 0; + } + } + function check_this_char(ib, c){ + var ci = checked_peek_char(ib); + return ci === c ? invalidate_current_char(ib) : character_mismatch(c, ci); + } + function token_char(ib){return caml_string_get(token_string(ib), 0);} + var + g = + [0, + [11, "invalid boolean '", [2, 0, [12, 39, 0]]], + "invalid boolean '%s'"]; + function token_bool(ib){ + var s = token_string(ib); + return s !== "false" + ? s + !== "true" + ? bad_input(caml_call1(Stdlib_Printf[4].call(null, g), s)) + : 1 + : 0; + } + var cst_scanf_ml = "scanf.ml", h = [0, cst_scanf_ml, 516, 9]; + function integer_conversion_of_char(param){ + var switcher = param - 88 | 0; + if(32 >= switcher >>> 0) + switch(switcher){ + case 10: + return 0; + case 12: + return 1; + case 17: + return 2; + case 23: + return 3; + case 29: + return 4; + case 0: + case 32: + return 5; + } + throw caml_maybe_attach_backtrace([0, Assert_failure, h], 1); + } + function token_int_literal(conv, ib){ + switch(conv){ + case 0: + var a = token_string(ib), tok = Stdlib[28].call(null, "0b", a); break; + case 3: + var b = token_string(ib), tok = Stdlib[28].call(null, "0o", b); break; + case 4: + var c = token_string(ib), tok = Stdlib[28].call(null, "0u", c); break; + case 5: + var d = token_string(ib), tok = Stdlib[28].call(null, "0x", d); break; + default: var tok = token_string(ib); + } + var l = caml_ml_string_length(tok); + if(0 !== l && 43 === caml_string_get(tok, 0)) + return Stdlib_String[16].call(null, tok, 1, l - 1 | 0); + return tok; + } + function token_float(ib){ + return runtime.caml_float_of_string(token_string(ib)); + } + function scan_decimal_digit_star(width$2, ib){ + var width = width$2; + for(;;){ + if(0 === width) return width; + var c = peek_char(ib); + if(ib[1]) return width; + if(58 <= c){ + if(95 === c){ + var width$0 = ignore_char(width, ib); + width = width$0; + continue; + } + } + else if(48 <= c){ + var width$1 = store_char(width, ib, c); + width = width$1; + continue; + } + return width; + } + } + var + cst_character = "character ", + i = + [0, + [11, cst_character, [1, [11, " is not a decimal digit", 0]]], + "character %C is not a decimal digit"]; + function scan_decimal_digit_plus(width, ib){ + if(0 === width) return bad_token_length("decimal digits"); + var c = checked_peek_char(ib); + if(9 < c - 48 >>> 0) + return bad_input(caml_call1(Stdlib_Printf[4].call(null, i), c)); + var width$0 = store_char(width, ib, c); + return scan_decimal_digit_star(width$0, ib); + } + var + j = + [0, + [11, + cst_character, + [1, [11, " is not a valid ", [2, 0, [11, " digit", 0]]]]], + "character %C is not a valid %s digit"]; + function scan_digit_plus(basis, digitp, width$2, ib){ + if(0 === width$2) return bad_token_length("digits"); + var c$0 = checked_peek_char(ib); + if(! caml_call1(digitp, c$0)) + return bad_input(caml_call2(Stdlib_Printf[4].call(null, j), c$0, basis)); + var width$3 = store_char(width$2, ib, c$0), width = width$3; + for(;;){ + if(0 === width) return width; + var c = peek_char(ib); + if(ib[1]) return width; + if(caml_call1(digitp, c)){ + var width$0 = store_char(width, ib, c); + width = width$0; + } + else{ + if(95 !== c) return width; + var width$1 = ignore_char(width, ib); + width = width$1; + } + } + } + function is_binary_digit(param){return 1 < param - 48 >>> 0 ? 0 : 1;} + function is_octal_digit(param){return 7 < param - 48 >>> 0 ? 0 : 1;} + function is_hexa_digit(param){ + var a = param - 48 | 0; + a: + { + if(22 < a >>> 0){ + if(5 < a - 49 >>> 0) break a; + } + else if(6 >= a - 10 >>> 0) break a; + return 1; + } + return 0; + } + function scan_sign(width, ib){ + var c = checked_peek_char(ib), switcher = c - 43 | 0; + if(2 >= switcher >>> 0 && 1 !== switcher) return store_char(width, ib, c); + return width; + } + function scan_optionally_signed_decimal(width, ib){ + var width$0 = scan_sign(width, ib); + return scan_decimal_digit_plus(width$0, ib); + } + var cst_hexadecimal = "hexadecimal"; + function scan_int_conversion(conv, width$1, ib){ + var cst_binary = "binary", cst_octal = "octal"; + switch(conv){ + case 0: + return scan_digit_plus(cst_binary, is_binary_digit, width$1, ib); + case 1: + return scan_optionally_signed_decimal(width$1, ib); + case 2: + var width$0 = scan_sign(width$1, ib), c = checked_peek_char(ib); + if(48 !== c) return scan_decimal_digit_plus(width$0, ib); + var width = store_char(width$0, ib, c); + if(0 === width) return width; + var c$0 = peek_char(ib); + if(ib[1]) return width; + a: + { + if(99 <= c$0){ + if(111 === c$0) + return scan_digit_plus + (cst_octal, is_octal_digit, store_char(width, ib, c$0), ib); + if(120 !== c$0) break a; + } + else if(88 !== c$0){ + if(98 <= c$0) + return scan_digit_plus + (cst_binary, + is_binary_digit, + store_char(width, ib, c$0), + ib); + break a; + } + return scan_digit_plus + (cst_hexadecimal, + is_hexa_digit, + store_char(width, ib, c$0), + ib); + } + return scan_decimal_digit_star(width, ib); + case 3: + return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib); + case 4: + return scan_decimal_digit_plus(width$1, ib); + default: + return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib); + } + } + function scan_fractional_part(width, ib){ + if(0 === width) return width; + var c = peek_char(ib); + return ib[1] + ? width + : 9 + < c - 48 >>> 0 + ? width + : scan_decimal_digit_star(store_char(width, ib, c), ib); + } + function scan_exponent_part(width, ib){ + if(0 === width) return width; + var c = peek_char(ib); + if(ib[1]) return width; + if(69 !== c && 101 !== c) return width; + return scan_optionally_signed_decimal(store_char(width, ib, c), ib); + } + function scan_float(width$1, precision, ib){ + var + width = scan_sign(width$1, ib), + width$0 = scan_decimal_digit_star(width, ib); + if(0 === width$0) return [0, width$0, precision]; + var c = peek_char(ib); + if(ib[1]) return [0, width$0, precision]; + if(46 !== c) return [0, scan_exponent_part(width$0, ib), precision]; + var + width$2 = store_char(width$0, ib, c), + precision$0 = Stdlib_Int[10].call(null, width$2, precision), + width$3 = + width$2 - (precision$0 - scan_fractional_part(precision$0, ib) | 0) | 0; + return [0, scan_exponent_part(width$3, ib), precision$0]; + } + function check_case_insensitive_string(width, ib, error, str){ + function lowercase(c){ + return 25 < c - 65 >>> 0 + ? c + : Stdlib[29].call(null, (c - 65 | 0) + 97 | 0); + } + var len = caml_ml_string_length(str), a = len - 1 | 0; + if(a < 0) + var width$1 = width; + else{ + var width$0 = width, i = 0; + for(;;){ + var c = peek_char(ib), d = lowercase(caml_string_get(str, i)); + if(lowercase(c) !== d) caml_call1(error, 0); + if(0 === width$0) caml_call1(error, 0); + var b = store_char(width$0, ib, c), e = i + 1 | 0; + if(a === i){var width$1 = b; break;} + width$0 = b; + i = e; + } + } + return width$1; + } + function scan_hex_float(width, precision, ib){ + var b = 0 === width, d = b || end_of_input(ib); + if(d) bad_input(cst_not_a_valid_float_in_hexad); + var + width$0 = scan_sign(width, ib), + e = 0 === width$0, + f = e || end_of_input(ib); + if(f) bad_input(cst_not_a_valid_float_in_hexad); + var c = peek_char(ib); + a: + { + if(78 <= c){ + var switcher = c - 79 | 0; + if(30 < switcher >>> 0){ + if(32 <= switcher) break a; + var + width$1 = store_char(width$0, ib, c), + g = 0 === width$1, + h = g || end_of_input(ib); + if(h) bad_input(cst_not_a_valid_float_in_hexad); + return check_case_insensitive_string(width$1, ib, bad_hex_float, "an"); + } + if(26 !== switcher) break a; + } + else{ + if(48 === c){ + var + width$3 = store_char(width$0, ib, c), + k = 0 === width$3, + l = k || end_of_input(ib); + if(l) bad_input(cst_not_a_valid_float_in_hexad); + var + width$4 = + check_case_insensitive_string(width$3, ib, bad_hex_float, "x"); + if(0 !== width$4 && ! end_of_input(ib)){ + var a = peek_char(ib) - 46 | 0; + b: + { + if(34 < a >>> 0){ + if(66 === a){var width$5 = width$4; break b;} + } + else if(32 < a - 1 >>> 0){var width$5 = width$4; break b;} + var + width$5 = + scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$4, ib); + } + if(0 !== width$5 && ! end_of_input(ib)){ + var c$0 = peek_char(ib); + if(46 === c$0){ + var width$6 = store_char(width$5, ib, c$0); + if(0 === width$6) + var width$7 = width$6; + else if(end_of_input(ib)) + var width$7 = width$6; + else{ + var match = peek_char(ib); + if(80 === match || 112 === match) + var width$7 = width$6; + else + var + precision$0 = Stdlib_Int[10].call(null, width$6, precision), + width$7 = + width$6 + - + (precision$0 + - + scan_digit_plus + (cst_hexadecimal, is_hexa_digit, precision$0, ib) + | 0) + | 0; + } + } + else + var width$7 = width$5; + if(0 !== width$7 && ! end_of_input(ib)){ + var c$1 = peek_char(ib); + if(80 !== c$1 && 112 !== c$1) return width$7; + var + width$8 = store_char(width$7, ib, c$1), + m = 0 === width$8, + n = m || end_of_input(ib); + if(n) bad_input(cst_not_a_valid_float_in_hexad); + return scan_optionally_signed_decimal(width$8, ib); + } + return width$7; + } + return width$5; + } + return width$4; + } + if(73 !== c) break a; + } + var + width$2 = store_char(width$0, ib, c), + i = 0 === width$2, + j = i || end_of_input(ib); + if(j) bad_input(cst_not_a_valid_float_in_hexad); + return check_case_insensitive_string + (width$2, ib, bad_hex_float, "nfinity"); + } + return bad_input(cst_not_a_valid_float_in_hexad); + } + var + cst_no_dot_or_exponent_part_fo = + "no dot or exponent part found in float token"; + function scan_caml_float_rest(width, precision, ib){ + var a = 0 === width, b = a || end_of_input(ib); + if(b) bad_input(cst_no_dot_or_exponent_part_fo); + var + width$0 = scan_decimal_digit_star(width, ib), + d = 0 === width$0, + e = d || end_of_input(ib); + if(e) bad_input(cst_no_dot_or_exponent_part_fo); + var c = peek_char(ib), switcher = c - 69 | 0; + if(32 < switcher >>> 0){ + if(-23 === switcher){ + var + width$1 = store_char(width$0, ib, c), + precision$0 = Stdlib_Int[10].call(null, width$1, precision), + width_precision = scan_fractional_part(precision$0, ib), + frac_width = precision$0 - width_precision | 0, + width$2 = width$1 - frac_width | 0; + return scan_exponent_part(width$2, ib); + } + } + else if(30 < switcher - 1 >>> 0) return scan_exponent_part(width$0, ib); + return bad_input(cst_no_dot_or_exponent_part_fo); + } + function scan_caml_float(width, precision, ib){ + var a = 0 === width, b = a || end_of_input(ib); + if(b) bad_input(cst_no_dot_or_exponent_part_fo); + var + width$0 = scan_sign(width, ib), + d = 0 === width$0, + e = d || end_of_input(ib); + if(e) bad_input(cst_no_dot_or_exponent_part_fo); + var c = peek_char(ib); + if(49 <= c){ + if(58 > c){ + var + width$1 = store_char(width$0, ib, c), + f = 0 === width$1, + g = f || end_of_input(ib); + if(g) bad_input(cst_no_dot_or_exponent_part_fo); + return scan_caml_float_rest(width$1, precision, ib); + } + } + else if(48 <= c){ + var + width$2 = store_char(width$0, ib, c), + h = 0 === width$2, + i = h || end_of_input(ib); + if(i) bad_input(cst_no_dot_or_exponent_part_fo); + var c$0 = peek_char(ib); + if(88 !== c$0 && 120 !== c$0) + return scan_caml_float_rest(width$2, precision, ib); + var + width$3 = store_char(width$2, ib, c$0), + j = 0 === width$3, + k = j || end_of_input(ib); + if(k) bad_input(cst_no_dot_or_exponent_part_fo); + var + width$7 = scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$3, ib), + l = 0 === width$7, + m = l || end_of_input(ib); + if(m) bad_input(cst_no_dot_or_exponent_part_fo); + var c$1 = peek_char(ib), switcher = c$1 - 80 | 0; + a: + { + if(32 < switcher >>> 0){ + if(-34 === switcher){ + var width$4 = store_char(width$7, ib, c$1); + if(0 === width$4){var width$5 = width$4; break a;} + if(end_of_input(ib)){var width$5 = width$4; break a;} + var match = peek_char(ib); + if(80 === match){var width$5 = width$4; break a;} + if(112 === match){var width$5 = width$4; break a;} + var + precision$0 = Stdlib_Int[10].call(null, width$4, precision), + width$5 = + width$4 + - + (precision$0 + - scan_digit_plus(cst_hexadecimal, is_hexa_digit, precision$0, ib) + | 0) + | 0; + break a; + } + } + else if(30 < switcher - 1 >>> 0){var width$5 = width$7; break a;} + var width$5 = bad_input(cst_no_dot_or_exponent_part_fo); + } + if(0 !== width$5 && ! end_of_input(ib)){ + var c$2 = peek_char(ib); + if(80 !== c$2 && 112 !== c$2) return width$5; + var + width$6 = store_char(width$5, ib, c$2), + n = 0 === width$6, + o = n || end_of_input(ib); + if(o) bad_input(cst_not_a_valid_float_in_hexad); + return scan_optionally_signed_decimal(width$6, ib); + } + return width$5; + } + return bad_input(cst_no_dot_or_exponent_part_fo); + } + function scan_string(stp, width, ib){ + var width$0 = width; + for(;;){ + if(0 === width$0) return width$0; + var c = peek_char(ib); + if(ib[1]) return width$0; + if(stp){ + var c$0 = stp[1]; + if(c === c$0){invalidate_current_char(ib); return width$0;} + var width$1 = store_char(width$0, ib, c); + width$0 = width$1; + } + else{ + var a = c - 9 | 0; + a: + { + if(4 < a >>> 0){ + if(23 !== a) break a; + } + else if(1 >= a - 2 >>> 0) break a; + return width$0; + } + var width$2 = store_char(width$0, ib, c); + width$0 = width$2; + } + } + } + function hexadecimal_value_of_char(c){ + return 97 <= c ? c - 87 | 0 : 65 <= c ? c - 55 | 0 : c - 48 | 0; + } + var + e = + [0, + [11, + cst_scanning_of, + [2, + 0, + [11, + " failed: premature end of file occurred before end of token", + 0]]], + "scanning of %s failed: premature end of file occurred before end of token"]; + function check_next_char(message, width, ib){ + if(0 === width) return bad_token_length(message); + var c = peek_char(ib); + return ib[1] + ? bad_input(caml_call1(Stdlib_Printf[4].call(null, e), message)) + : c; + } + var + cst_a_Char = "a Char", + k = + [0, + [11, "bad character decimal encoding \\", [0, [0, [0, 0]]]], + "bad character decimal encoding \\%c%c%c"], + l = + [0, + [11, "bad character hexadecimal encoding \\", [0, [0, 0]]], + "bad character hexadecimal encoding \\%c%c"]; + function scan_backslash_char(width, ib){ + var c0 = check_next_char(cst_a_Char, width, ib); + a: + { + if(40 <= c0){ + if(58 > c0){ + if(48 > c0) break a; + var + get_digit$0 = + function(param){ + var c = next_char(ib); + return 9 < c - 48 >>> 0 ? bad_input_escape(c) : c; + }, + c1$0 = get_digit$0(0), + c2$0 = get_digit$0(0), + c = + ((100 * (c0 - 48 | 0) | 0) + (10 * (c1$0 - 48 | 0) | 0) | 0) + + (c2$0 - 48 | 0) + | 0; + b: + { + if(0 <= c && 255 >= c){var d = Stdlib[29].call(null, c); break b;} + var + d = + bad_input + (caml_call3(Stdlib_Printf[4].call(null, k), c0, c1$0, c2$0)); + } + return store_char(width - 2 | 0, ib, d); + } + var switcher = c0 - 92 | 0; + if(28 < switcher >>> 0) break a; + switch(switcher){ + case 28: + var + get_digit = + function(param){ + var c = next_char(ib), a = c - 48 | 0; + a: + { + if(22 < a >>> 0){ + if(5 < a - 49 >>> 0) break a; + } + else if(6 >= a - 10 >>> 0) break a; + return c; + } + return bad_input_escape(c); + }, + c1 = get_digit(0), + c2 = get_digit(0), + e = hexadecimal_value_of_char(c2), + c$0 = (16 * hexadecimal_value_of_char(c1) | 0) + e | 0; + b: + { + if(0 <= c$0 && 255 >= c$0){ + var b = Stdlib[29].call(null, c$0); + break b; + } + var + b = bad_input(caml_call2(Stdlib_Printf[4].call(null, l), c1, c2)); + } + return store_char(width - 2 | 0, ib, b); + case 0: + case 6: + case 18: + case 22: + case 24: break; + default: break a; + } + } + else if(34 !== c0 && 39 > c0) break a; + if(110 <= c0) + if(117 <= c0) + var a = c0; + else + switch(c0 - 110 | 0){ + case 0: + var a = 10; break; + case 4: + var a = 13; break; + case 6: + var a = 9; break; + default: var a = c0; + } + else + var a = 98 === c0 ? 8 : c0; + return store_char(width, ib, a); + } + return bad_input_escape(c0); + } + function scan_caml_string(width, ib){ + var cst_a_String = "a String"; + function find_stop$0(counter, width$5){ + var width = width$5; + for(;;){ + var c = check_next_char(cst_a_String, width, ib); + if(34 === c) return ignore_char(width, ib); + if(92 === c){ + var + width$0 = ignore_char(width, ib), + match = check_next_char(cst_a_String, width$0, ib); + if(10 === match){ + var a = ignore_char(width$0, ib); + return counter < 50 + ? skip_spaces(counter + 1 | 0, a) + : caml_trampoline_return(skip_spaces, [0, a]); + } + if(13 === match){ + var width$2 = ignore_char(width$0, ib); + if(10 === check_next_char(cst_a_String, width$2, ib)){ + var b = ignore_char(width$2, ib); + return counter < 50 + ? skip_spaces(counter + 1 | 0, b) + : caml_trampoline_return(skip_spaces, [0, b]); + } + var width$4 = store_char(width$2, ib, 13); + width = width$4; + } + else{var width$3 = scan_backslash_char(width$0, ib); width = width$3;} + } + else{var width$1 = store_char(width, ib, c); width = width$1;} + } + } + function find_stop(width){return caml_trampoline(find_stop$0(0, width));} + function skip_spaces(counter, width$1){ + var width = width$1; + for(;;){ + if(32 !== check_next_char(cst_a_String, width, ib)) + return counter < 50 + ? find_stop$0(counter + 1 | 0, width) + : caml_trampoline_return(find_stop$0, [0, width]); + var width$0 = ignore_char(width, ib); + width = width$0; + } + } + var c = checked_peek_char(ib); + return 34 === c + ? find_stop(ignore_char(width, ib)) + : character_mismatch(34, c); + } + function scan_chars_in_char_set(char_set, scan_indic, width, ib){ + function scan_chars(i$1, stp){ + var i = i$1; + for(;;){ + var c = peek_char(ib), b = 0 < i ? 1 : 0; + if(b){ + var d = 1 - ib[1]; + if(d) + var + e = CamlinternalFormat[1].call(null, char_set, c), + a = e ? c !== stp ? 1 : 0 : e; + else + var a = d; + } + else + var a = b; + if(! a) return a; + store_char(Stdlib[19], ib, c); + var i$0 = i - 1 | 0; + i = i$0; + } + } + if(! scan_indic) return scan_chars(width, -1); + var c = scan_indic[1]; + scan_chars(width, c); + var a = 1 - ib[1]; + if(! a) return a; + var ci = peek_char(ib); + return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci); + } + var + n = + [0, + [11, + "scanf: bad input at char number ", + [4, 3, 0, 0, [11, ": ", [2, 0, 0]]]], + "scanf: bad input at char number %i: %s"]; + function scanf_bad_input(ib, x){ + if(x[1] === Scan_failure) + var s = x[2]; + else{ + if(x[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(x, 1); + var s = x[2]; + } + var i = char_count(ib); + return bad_input(caml_call2(Stdlib_Printf[4].call(null, n), i, s)); + } + function width_of_pad_opt(pad_opt){ + if(! pad_opt) return Stdlib[19]; + var width = pad_opt[1]; + return width; + } + var o = [0, 37, ""]; + function stopper_of_formatting_lit(fmting){ + if(6 === fmting) return o; + var + str = CamlinternalFormat[17].call(null, fmting), + stp = caml_string_get(str, 1), + sub_str = + Stdlib_String[16].call + (null, str, 2, caml_ml_string_length(str) - 2 | 0); + return [0, stp, sub_str]; + } + function take_format_readers$0(counter, k, fmt$4){ + a: + { + var fmt = fmt$4; + b: + for(;;){ + if(typeof fmt === "number") return caml_call1(k, 0); + switch(fmt[0]){ + case 14: + var + rest$3 = fmt[3], + fmtty = fmt[2], + c = CamlinternalFormat[21].call(null, fmtty), + b = CamlinternalFormatBasics[2].call(null, c); + return counter < 50 + ? take_fmtty_format_readers$0(counter + 1 | 0, k, b, rest$3) + : caml_trampoline_return + (take_fmtty_format_readers$0, [0, k, b, rest$3]); + case 18: + var a = fmt[1]; + if(0 === a[0]){ + var + rest$4 = fmt[2], + fmt$0 = a[1][1], + fmt$1 = CamlinternalFormatBasics[3].call(null, fmt$0, rest$4); + fmt = fmt$1; + } + else{ + var + rest$5 = fmt[2], + fmt$2 = a[1][1], + fmt$3 = CamlinternalFormatBasics[3].call(null, fmt$2, rest$5); + fmt = fmt$3; + } + break; + case 19: + break a; + case 23: + var rest$6 = fmt[2], ign = fmt[1]; + if(typeof ign === "number"){ + if(2 === ign) break b; + fmt = rest$6; + } + else{ + if(9 === ign[0]){ + var fmtty$0 = ign[2]; + return counter < 50 + ? take_fmtty_format_readers$0 + (counter + 1 | 0, k, fmtty$0, rest$6) + : caml_trampoline_return + (take_fmtty_format_readers$0, [0, k, fmtty$0, rest$6]); + } + fmt = rest$6; + } + break; + case 13: + case 20: + case 24: + var rest$2 = fmt[3]; fmt = rest$2; break; + case 4: + case 5: + case 6: + case 7: + case 8: + var rest$1 = fmt[4]; fmt = rest$1; break; + case 0: + case 1: + case 10: + case 15: + case 16: + case 22: + var rest = fmt[1]; fmt = rest; break; + default: var rest$0 = fmt[2]; fmt = rest$0; + } + } + return function(reader){ + function new_k(readers_rest){ + return caml_call1(k, [0, reader, readers_rest]); + } + return take_format_readers(new_k, rest$6);}; + } + var fmt_rest = fmt[1]; + return function(reader){ + function new_k(readers_rest){ + return caml_call1(k, [0, reader, readers_rest]); + } + return take_format_readers(new_k, fmt_rest);}; + } + function take_format_readers(k, fmt){ + return caml_trampoline(take_format_readers$0(0, k, fmt)); + } + function take_fmtty_format_readers$0(counter, k, fmtty$3, fmt){ + a: + { + var fmtty = fmtty$3; + b: + for(;;){ + if(typeof fmtty === "number") + return counter < 50 + ? take_format_readers$0(counter + 1 | 0, k, fmt) + : caml_trampoline_return(take_format_readers$0, [0, k, fmt]); + switch(fmtty[0]){ + case 8: + var fmtty$1 = fmtty[2]; fmtty = fmtty$1; break; + case 9: + var + rest = fmtty[3], + ty2 = fmtty[2], + ty1 = fmtty[1], + a = CamlinternalFormat[21].call(null, ty1), + ty = CamlinternalFormat[22].call(null, a, ty2), + fmtty$2 = CamlinternalFormatBasics[1].call(null, ty, rest); + fmtty = fmtty$2; + break; + case 13: + break a; + case 14: + break b; + default: var fmtty$0 = fmtty[1]; fmtty = fmtty$0; + } + } + var fmt_rest$0 = fmtty[1]; + return function(reader){ + function new_k(readers_rest){ + return caml_call1(k, [0, reader, readers_rest]); + } + return take_fmtty_format_readers(new_k, fmt_rest$0, fmt);}; + } + var fmt_rest = fmtty[1]; + return function(reader){ + function new_k(readers_rest){ + return caml_call1(k, [0, reader, readers_rest]); + } + return take_fmtty_format_readers(new_k, fmt_rest, fmt);}; + } + function take_fmtty_format_readers(k, fmtty, fmt){ + return caml_trampoline(take_fmtty_format_readers$0(0, k, fmtty, fmt)); + } + var + m = + [0, + [11, "the character ", [1, [11, " cannot start a boolean", 0]]], + "the character %C cannot start a boolean"], + p = [0, 123], + q = [0, 91], + r = [0, cst_scanf_ml, 1414, 13]; + function make_scanf(ib, fmt$13, readers){ + a: + { + b: + { + c: + { + d: + { + e: + { + f: + { + g: + { + h: + { + i: + { + var fmt = fmt$13; + j: + for(;;){ + if(typeof fmt === "number") return 0; + switch(fmt[0]){ + case 0: + var rest = fmt[1]; + store_char(0, ib, checked_peek_char(ib)); + var c$0 = token_char(ib); + return [0, c$0, make_scanf(ib, rest, readers)]; + case 1: + break a; + case 2: + break b; + case 3: + break c; + case 4: + break d; + case 5: + break e; + case 6: + break f; + case 7: + break g; + case 8: + switch(fmt[1][2]){ + case 5: + case 8: + var rest$11 = fmt[4], prec$4 = fmt[3], pad$6 = fmt[2]; + return pad_prec_scanf + (ib, + rest$11, + readers, + pad$6, + prec$4, + scan_caml_float, + token_float); + case 6: + case 7: + var rest$12 = fmt[4], prec$5 = fmt[3], pad$7 = fmt[2]; + return pad_prec_scanf + (ib, + rest$12, + readers, + pad$7, + prec$5, + scan_hex_float, + token_float); + default: + var rest$10 = fmt[4], prec$3 = fmt[3], pad$5 = fmt[2]; + return pad_prec_scanf + (ib, + rest$10, + readers, + pad$5, + prec$3, + scan_float, + token_float); + } + case 9: + break h; + case 10: + var rest$14 = fmt[1]; + if(! end_of_input(ib)) + return bad_input("end of input not found"); + fmt = rest$14; + break; + case 11: + var rest$15 = fmt[2], str$0 = fmt[1]; + Stdlib_String[30].call + (null, function(a){return check_char(ib, a);}, str$0); + fmt = rest$15; + break; + case 12: + var rest$16 = fmt[2], chr = fmt[1]; + check_char(ib, chr); + fmt = rest$16; + break; + case 13: + var rest$17 = fmt[3], fmtty = fmt[2], pad_opt = fmt[1]; + scan_caml_string(width_of_pad_opt(pad_opt), ib); + var s = token_string(ib); + try{ + var + e = CamlinternalFormat[14].call(null, s, fmtty), + fmt$2 = e; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Stdlib[7]) + throw caml_maybe_attach_backtrace(exn, 0); + var msg = exn[2], fmt$2 = bad_input(msg); + } + return [0, fmt$2, make_scanf(ib, rest$17, readers)]; + case 14: + break i; + case 15: + return Stdlib[1].call(null, 'scanf: bad conversion "%a"'); + case 16: + return Stdlib[1].call(null, 'scanf: bad conversion "%t"'); + case 17: + var + rest$19 = fmt[2], + formatting_lit = fmt[1], + j = CamlinternalFormat[17].call(null, formatting_lit); + Stdlib_String[30].call + (null, function(a){return check_char(ib, a);}, j); + fmt = rest$19; + break; + case 18: + var b = fmt[1]; + if(0 === b[0]){ + var rest$20 = fmt[2], fmt$8 = b[1][1]; + check_char(ib, 64); + check_char(ib, 123); + var + fmt$9 = + CamlinternalFormatBasics[3].call(null, fmt$8, rest$20); + fmt = fmt$9; + } + else{ + var rest$21 = fmt[2], fmt$10 = b[1][1]; + check_char(ib, 64); + check_char(ib, 91); + var + fmt$11 = + CamlinternalFormatBasics[3].call(null, fmt$10, rest$21); + fmt = fmt$11; + } + break; + case 19: + var fmt_rest = fmt[1]; + if(! readers) + return Stdlib[1].call(null, "scanf: missing reader"); + var + readers_rest = readers[2], + reader = readers[1], + x = caml_call1(reader, ib); + return [0, x, make_scanf(ib, fmt_rest, readers_rest)]; + case 20: + break j; + case 21: + var rest$24 = fmt[2], counter = fmt[1]; + switch(counter){ + case 0: + var count = ib[5]; break; + case 1: + var count = char_count(ib); break; + default: var count = ib[6]; + } + return [0, count, make_scanf(ib, rest$24, readers)]; + case 22: + var rest$25 = fmt[1], c$2 = checked_peek_char(ib); + return [0, c$2, make_scanf(ib, rest$25, readers)]; + case 23: + var + rest$26 = fmt[2], + ign = fmt[1], + fmt$12 = CamlinternalFormat[6].call(null, ign, rest$26)[1], + match$3 = make_scanf(ib, fmt$12, readers); + if(! match$3) + throw caml_maybe_attach_backtrace([0, Assert_failure, r], 1); + var arg_rest = match$3[2]; + return arg_rest; + default: + return Stdlib[1].call + (null, 'scanf: bad conversion "%?" (custom converter)'); + } + } + var width_opt = fmt[1], match$1 = fmt[3]; + if(typeof match$1 !== "number" && 17 === match$1[0]){ + var + rest$23 = match$1[2], + fmting_lit$0 = match$1[1], + char_set$0 = fmt[2], + match$2 = stopper_of_formatting_lit(fmting_lit$0), + str$1 = match$2[2], + stp$0 = match$2[1], + width$1 = width_of_pad_opt(width_opt); + scan_chars_in_char_set(char_set$0, [0, stp$0], width$1, ib); + var s$2 = token_string(ib); + return [0, s$2, make_scanf(ib, [11, str$1, rest$23], readers)]; + } + var + rest$22 = fmt[3], + char_set = fmt[2], + width$0 = width_of_pad_opt(width_opt); + scan_chars_in_char_set(char_set, 0, width$0, ib); + var s$1 = token_string(ib); + return [0, s$1, make_scanf(ib, rest$22, readers)]; + } + var rest$18 = fmt[3], fmtty$0 = fmt[2], pad_opt$0 = fmt[1]; + scan_caml_string(width_of_pad_opt(pad_opt$0), ib); + var s$0 = token_string(ib); + try{ + var + fmt$5 = CamlinternalFormat[13].call(null, 0, s$0)[1], + fmt$6 = CamlinternalFormat[13].call(null, 0, s$0)[1], + f = CamlinternalFormat[21].call(null, fmtty$0), + g = CamlinternalFormatBasics[2].call(null, f), + fmt$7 = CamlinternalFormat[12].call(null, fmt$6, g), + h = CamlinternalFormatBasics[2].call(null, fmtty$0), + i = CamlinternalFormat[12].call(null, fmt$5, h), + fmt$4 = fmt$7, + fmt$3 = i; + } + catch(exn){ + var exn$0 = caml_wrap_exception(exn); + if(exn$0[1] !== Stdlib[7]) + throw caml_maybe_attach_backtrace(exn$0, 0); + var + msg$0 = exn$0[2], + d = bad_input(msg$0), + fmt$4 = d[2], + fmt$3 = d[1]; + } + return [0, + [0, fmt$3, s$0], + make_scanf + (ib, + CamlinternalFormatBasics[3].call(null, fmt$4, rest$18), + readers)]; + } + var + rest$13 = fmt[2], + pad$8 = fmt[1], + scan$8 = + function(a, param, ib){ + var + c = checked_peek_char(ib), + m$0 = + 102 === c + ? 5 + : 116 + === c + ? 4 + : bad_input(caml_call1(Stdlib_Printf[4].call(null, m), c)); + return scan_string(0, m$0, ib); + }; + return pad_prec_scanf + (ib, rest$13, readers, pad$8, 0, scan$8, token_bool); + } + var + rest$9 = fmt[4], + prec$2 = fmt[3], + pad$4 = fmt[2], + iconv$2 = fmt[1], + conv$2 = + integer_conversion_of_char + (CamlinternalFormat[16].call(null, iconv$2)), + scan$7 = + function(width, param, ib){ + return scan_int_conversion(conv$2, width, ib); + }; + return pad_prec_scanf + (ib, + rest$9, + readers, + pad$4, + prec$2, + scan$7, + function(ib){ + return runtime.caml_int64_of_string + (token_int_literal(conv$2, ib)); + }); + } + var + rest$8 = fmt[4], + prec$1 = fmt[3], + pad$3 = fmt[2], + iconv$1 = fmt[1], + conv$1 = + integer_conversion_of_char + (CamlinternalFormat[16].call(null, iconv$1)), + scan$6 = + function(width, param, ib){ + return scan_int_conversion(conv$1, width, ib); + }; + return pad_prec_scanf + (ib, + rest$8, + readers, + pad$3, + prec$1, + scan$6, + function(ib){ + return caml_int_of_string(token_int_literal(conv$1, ib)); + }); + } + var + rest$7 = fmt[4], + prec$0 = fmt[3], + pad$2 = fmt[2], + iconv$0 = fmt[1], + conv$0 = + integer_conversion_of_char + (CamlinternalFormat[16].call(null, iconv$0)), + scan$5 = + function(width, param, ib){ + return scan_int_conversion(conv$0, width, ib); + }; + return pad_prec_scanf + (ib, + rest$7, + readers, + pad$2, + prec$0, + scan$5, + function(ib){ + return caml_int_of_string(token_int_literal(conv$0, ib)); + }); + } + var + rest$6 = fmt[4], + prec = fmt[3], + pad$1 = fmt[2], + iconv = fmt[1], + conv = + integer_conversion_of_char(CamlinternalFormat[16].call(null, iconv)), + scan$4 = + function(width, param, ib){ + return scan_int_conversion(conv, width, ib); + }; + return pad_prec_scanf + (ib, + rest$6, + readers, + pad$1, + prec, + scan$4, + function(ib){ + return caml_int_of_string(token_int_literal(conv, ib)); + }); + } + var + rest$5 = fmt[2], + pad$0 = fmt[1], + scan$3 = + function(width, param, ib){return scan_caml_string(width, ib);}; + return pad_prec_scanf + (ib, rest$5, readers, pad$0, 0, scan$3, token_string); + } + var pad = fmt[1], match = fmt[2]; + if(typeof match !== "number") + switch(match[0]){ + case 17: + var + rest$2 = match[2], + fmting_lit = match[1], + match$0 = stopper_of_formatting_lit(fmting_lit), + str = match$0[2], + stp = match$0[1], + scan$0 = + function(width, param, ib){ + return scan_string([0, stp], width, ib); + }; + return pad_prec_scanf + (ib, + [11, str, rest$2], + readers, + pad, + 0, + scan$0, + token_string); + case 18: + var a = match[1]; + if(0 === a[0]){ + var + rest$3 = match[2], + fmt$0 = a[1][1], + scan$1 = + function(width, param, ib){return scan_string(p, width, ib);}; + return pad_prec_scanf + (ib, + CamlinternalFormatBasics[3].call(null, fmt$0, rest$3), + readers, + pad, + 0, + scan$1, + token_string); + } + var + rest$4 = match[2], + fmt$1 = a[1][1], + scan$2 = + function(width, param, ib){return scan_string(q, width, ib);}; + return pad_prec_scanf + (ib, + CamlinternalFormatBasics[3].call(null, fmt$1, rest$4), + readers, + pad, + 0, + scan$2, + token_string); + } + var + rest$1 = fmt[2], + scan = function(width, param, ib){return scan_string(0, width, ib);}; + return pad_prec_scanf(ib, rest$1, readers, pad, 0, scan, token_string); + } + var rest$0 = fmt[1]; + function find_stop(width){ + var c = check_next_char(cst_a_Char, width, ib); + return 39 === c ? ignore_char(width, ib) : character_mismatch(39, c); + } + var c = checked_peek_char(ib); + if(39 === c){ + var + width = ignore_char(0, ib), + c$3 = check_next_char(cst_a_Char, width, ib); + if(92 === c$3) + find_stop(scan_backslash_char(ignore_char(width, ib), ib)); + else + find_stop(store_char(width, ib, c$3)); + } + else + character_mismatch(39, c); + var c$1 = token_char(ib); + return [0, c$1, make_scanf(ib, rest$0, readers)]; + } + function pad_prec_scanf(ib, fmt, readers, pad, prec, scan, token){ + var cst_scanf_bad_conversion = 'scanf: bad conversion "%*"'; + if(typeof pad === "number"){ + if(typeof prec !== "number"){ + var p = prec[1]; + caml_call3(scan, Stdlib[19], p, ib); + var x$0 = caml_call1(token, ib); + return [0, x$0, make_scanf(ib, fmt, readers)]; + } + if(prec) return Stdlib[1].call(null, cst_scanf_bad_conversion); + caml_call3(scan, Stdlib[19], Stdlib[19], ib); + var x = caml_call1(token, ib); + return [0, x, make_scanf(ib, fmt, readers)]; + } + if(0 !== pad[0]) return Stdlib[1].call(null, cst_scanf_bad_conversion); + if(! pad[1]) return Stdlib[1].call(null, 'scanf: bad conversion "%-"'); + var w = pad[2]; + if(typeof prec !== "number"){ + var p$0 = prec[1]; + caml_call3(scan, w, p$0, ib); + var x$2 = caml_call1(token, ib); + return [0, x$2, make_scanf(ib, fmt, readers)]; + } + if(prec) return Stdlib[1].call(null, cst_scanf_bad_conversion); + caml_call3(scan, w, Stdlib[19], ib); + var x$1 = caml_call1(token, ib); + return [0, x$1, make_scanf(ib, fmt, readers)]; + } + var cst = '"'; + function kscanf_gen(ib, ef, af, param){ + var str = param[2], fmt = param[1]; + function k(readers, f$1){ + Stdlib_Buffer[9].call(null, ib[8]); + try{var args$1 = make_scanf(ib, fmt, readers), f = f$1, args = args$1;} + catch(exc$0){ + var exc = caml_wrap_exception(exc$0); + if + (exc[1] !== Scan_failure && exc[1] !== Stdlib[7] && exc !== Stdlib[12]){ + if(exc[1] !== Stdlib[6]) throw caml_maybe_attach_backtrace(exc, 0); + var + msg = exc[2], + a = Stdlib_String[25].call(null, str), + b = Stdlib[28].call(null, a, cst), + c = Stdlib[28].call(null, ' in format "', b), + d = Stdlib[28].call(null, msg, c); + return Stdlib[1].call(null, d); + } + return caml_call2(ef, ib, exc); + } + for(;;){ + if(! args) return caml_call1(af, f); + var args$0 = args[2], x = args[1], f$0 = caml_call1(f, x); + f = f$0; + args = args$0; + } + } + return take_format_readers(k, fmt); + } + function kscanf(ib, ef, fmt){ + return kscanf_gen(ib, ef, function(x){return x;}, fmt); + } + function kscanf_opt(ib, fmt){ + return kscanf_gen + (ib, + function(a, param){return 0;}, + function(x){return [0, x];}, + fmt); + } + function bscanf(ib, fmt){return kscanf(ib, scanf_bad_input, fmt);} + function bscanf_opt(ib, fmt){return kscanf_opt(ib, fmt);} + function ksscanf(s, ef, fmt){return kscanf(from_string(s), ef, fmt);} + function sscanf(s, fmt){ + return kscanf(from_string(s), scanf_bad_input, fmt); + } + function sscanf_opt(s, fmt){return kscanf_opt(from_string(s), fmt);} + function scanf(fmt){return kscanf(stdin, scanf_bad_input, fmt);} + function scanf_opt(fmt){return kscanf_opt(stdin, fmt);} + function bscanf_format(ib, format, f){ + scan_caml_string(Stdlib[19], ib); + var str = token_string(ib); + try{var a = CamlinternalFormat[15].call(null, str, format), fmt = a;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0); + var msg = exn[2], fmt = bad_input(msg); + } + return caml_call1(f, fmt); + } + function sscanf_format(s, format, f){ + return bscanf_format(from_string(s), format, f); + } + function format_from_string(s, fmt){ + var + a = Stdlib_String[25].call(null, s), + b = Stdlib[28].call(null, a, cst); + return sscanf_format + (Stdlib[28].call(null, cst, b), fmt, function(x){return x;}); + } + var s = [0, [3, 0, [10, 0]], "%S%!"]; + function unescaped(s$0){ + var a = Stdlib[28].call(null, s$0, cst); + return caml_call1 + (sscanf(Stdlib[28].call(null, cst, a), s), function(x){return x;}); + } + runtime.caml_register_global + (64, + [0, + [0, + stdin, + open_in, + open_in_bin, + close_in, + open_in, + open_in_bin, + from_string, + from_function, + from_channel, + end_of_input, + beginning_of_input, + name_of_input], + Scan_failure, + bscanf, + bscanf_opt, + sscanf, + sscanf_opt, + scanf, + scanf_opt, + kscanf, + ksscanf, + bscanf_format, + sscanf_format, + format_from_string, + unescaped], + "Stdlib__Scanf"); + return; + } + (globalThis)); + //# 23582 "../.js/default/stdlib/stdlib.cma.js" //# shape: Stdlib__Callback:[F(2),F(2)] (function @@ -36757,7 +38420,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (globalThis)); //# 5 "../lib/.sx.objs/jsoo/default/sx.cma.js" -//# shape: Sx_types:[N,N,N,F(1),F(1),N,N,N,N,N,N,N,N,N,N,N,N,N,N,F(1),F(1),N,N,N,N,F(3),F(2),F(2),F(3),F(2),F(3),F(3),F(2),F(1),F(1),F(1),F(1)*,F(1)*,F(1),N,F(1),F(3),N,N,N,N,N,N,N,F(1)*,F(6),F(5),F(5),F(2),F(1),F(1),F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1),F(1)*,F(1)*,F(1)*,F(1),F(1),F(1),F(1),F(1),F(1),F(2),F(1),F(1)*,F(2),F(2),F(1),F(1),F(1),F(1),F(1)*,F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(3),F(2),F(2),F(3),F(2),F(1)*,F(1),F(1),F(1),F(1),F(1)*,F(1),F(1),F(1),F(1),F(2),F(2),F(3),F(2),F(1),F(1),F(1)] +//# shape: Sx_types:[N,N,N,F(1),F(1),N,N,N,N,N,N,N,N,N,N,N,N,N,N,F(1),F(1),N,N,N,N,F(3),F(2),F(2),F(3),F(2),F(3),F(3),F(2),F(1),F(1),F(1),F(1)*,F(1)*,F(1),N,F(1),F(3),N,N,N,N,N,N,F(1),N,N,N,N,F(1)*,F(6),F(5),F(5),F(2),F(1),F(1),F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1),F(1)*,F(1)*,F(1)*,F(1),F(1),F(1),F(1),F(1),F(1),F(2),F(1),F(1)*,F(2),F(2),F(1),F(1),F(1),F(1),F(1)*,F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(3),F(2),F(2),F(3),F(2),F(1)*,F(1),F(1),F(1),F(1),F(1)*,F(1),F(1),F(1),F(1),F(2),F(2),F(3),F(2),F(1),F(1),F(2),F(1)] (function (globalThis){ "use strict"; @@ -36787,9 +38450,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= global_data = runtime.caml_get_global_data(), Stdlib_Hashtbl = global_data.Stdlib__Hashtbl, Stdlib = global_data.Stdlib, - Stdlib_Printf = global_data.Stdlib__Printf, Stdlib_Buffer = global_data.Stdlib__Buffer, Stdlib_String = global_data.Stdlib__String, + Stdlib_Printf = global_data.Stdlib__Printf, Stdlib_List = global_data.Stdlib__List, Stdlib_Array = global_data.Stdlib__Array, Stdlib_Uchar = global_data.Stdlib__Uchar, @@ -36969,11 +38632,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ? caml_call1(Stdlib_Printf[4].call(null, a), n) : caml_call1(Stdlib_Printf[4].call(null, b), n); } - var cst$1 = "", cst_false = "false", cst_true = "true"; + var cst = "", cst_false = "false", cst_true = "true"; function value_to_string(param){ - if(typeof param === "number"){ - if(0 === param) return cst$1; - } + if(typeof param === "number"){if(0 === param) return cst;} else switch(param[0]){ case 0: @@ -37037,7 +38698,38 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = next_lambda_uid(0); return [8, [0, ps, body, unwrap_env_val(closure), 0, 0, 0, a]]; } - var jit_cache_queue = Stdlib_Queue[2].call(null, 0); + var + jit_excluded = Stdlib_Hashtbl[1].call(null, 0, 64), + jit_excluded_prefixes = [0, 0]; + function jit_name_excluded(name){ + var a = Stdlib_Hashtbl[9].call(null, jit_excluded, name); + return a + ? a + : Stdlib_List + [34].call + (null, + function(p){ + var + a = + caml_ml_string_length(p) <= caml_ml_string_length(name) + ? 1 + : 0, + b = + a + ? Stdlib_String + [16].call + (null, name, 0, caml_ml_string_length(p)) + === p + ? 1 + : 0 + : a; + return b; + }, + jit_excluded_prefixes[1]); + } + var + jit_excluded_caller_names = Stdlib_Hashtbl[1].call(null, 0, 16), + jit_cache_queue = Stdlib_Queue[2].call(null, 0); function jit_cache_size(param){ return Stdlib_Queue[14].call(null, jit_cache_queue); } @@ -37152,6 +38844,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return "regexp"; case 37: return "bytevector"; + case 38: + var a = param[1]; return a[1]; default: return "list"; } } @@ -37781,80 +39475,52 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, function(param, v, acc){return [0, v, acc];}, d, 0); } var - cst = ")>", - cst_s_s = "<%s(%s)>", - cst$0 = '>"', - p = [0, [12, 58, [2, 0, [12, 32, [2, 0, 0]]]], ":%s %s"], - q = [0, [12, 60, [2, 0, [12, 40, [2, 0, [11, cst, 0]]]]], cst_s_s], - r = - [0, - [11, ""], - s = - [0, - [11, ""], - t = [0, [12, 60, [2, 0, [12, 40, [2, 0, [11, cst, 0]]]]], cst_s_s], - u = [0, [11, ""], - v = - [0, - [11, '""'], - w = - [0, [11, '""'], - x = [0, [11, ""], - y = [0, [11, ""], - z = + p = [0, [11, ""], - A = + q = [0, [11, ""], - B = [0, [2, 0, [12, 61, [2, 0, 0]]], "%s=%s"], - C = - [0, - [11, ""], - D = [0, [11, ""], - E = [0, [11, "#(", [2, 0, [12, 41, 0]]], "#(%s)"], - F = + r = [0, [11, ""], - G = + s = [0, [11, ""], - H = + t = [0, [11, ""], - I = + u = [0, [11, ""], - J = [0, [4, 0, 0, 0, [12, 47, [4, 0, 0, 0, 0]]], "%d/%d"], - K = [0, [11, ""], - L = [0, [11, "#/", [2, 0, [12, 47, [2, 0, 0]]]], "#/%s/%s"], - M = [0, [11, "#u8(", [2, 0, [12, 41, 0]]], "#u8(%s)"]; - function inspect(param){ - if(typeof param === "number") return 0 === param ? cst_nil : "#!eof"; - var cst = " ", cst$0 = ", "; + v = [0, [11, ""]; + function inspect_into(buf, param){ + if(typeof param === "number") + return 0 === param + ? Stdlib_Buffer[16].call(null, buf, cst_nil) + : Stdlib_Buffer[16].call(null, buf, "#!eof"); + var cst$1 = ")>", cst$0 = ", ", cst$2 = '>"'; switch(param[0]){ case 0: - return param[1] ? cst_true : cst_false; + return param[1] + ? Stdlib_Buffer[16].call(null, buf, cst_true) + : Stdlib_Buffer[16].call(null, buf, cst_false); case 1: - var n = param[1]; return Stdlib[33].call(null, n); + var n = param[1], h = Stdlib[33].call(null, n); + return Stdlib_Buffer[16].call(null, buf, h); case 2: - var n$0 = param[1]; return format_number(n$0); + var n$0 = param[1], j = format_number(n$0); + return Stdlib_Buffer[16].call(null, buf, j); case 3: - var - s$0 = param[1], - buf = Stdlib_Buffer[1].call(null, caml_ml_string_length(s$0) + 2 | 0); + var s$0 = param[1]; Stdlib_Buffer[12].call(null, buf, 34); Stdlib_String[30].call (null, @@ -37875,205 +39541,287 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return Stdlib_Buffer[12].call(null, buf, c); }, s$0); - Stdlib_Buffer[12].call(null, buf, 34); - return Stdlib_Buffer[2].call(null, buf); + return Stdlib_Buffer[12].call(null, buf, 34); case 4: - var s$1 = param[1]; return s$1; + var s$1 = param[1]; return Stdlib_Buffer[16].call(null, buf, s$1); case 5: - var k = param[1]; return Stdlib[28].call(null, ":", k); + var k = param[1]; + Stdlib_Buffer[12].call(null, buf, 58); + return Stdlib_Buffer[16].call(null, buf, k); case 6: var items = param[1]; break; case 7: - var - d = param[1], - pairs = - Stdlib_Hashtbl[14].call - (null, - function(k, v, acc){ - var a = inspect(v); - return [0, caml_call2(Stdlib_Printf[4].call(null, p), k, a), acc]; - }, - d, - 0), - j = Stdlib_String[7].call(null, cst, pairs), - o = Stdlib[28].call(null, j, "}"); - return Stdlib[28].call(null, "{", o); + var d = param[1]; + Stdlib_Buffer[12].call(null, buf, 123); + var first = [0, 1]; + Stdlib_Hashtbl[12].call + (null, + function(k, v){ + if(first[1]) + first[1] = 0; + else + Stdlib_Buffer[12].call(null, buf, 32); + Stdlib_Buffer[12].call(null, buf, 58); + Stdlib_Buffer[16].call(null, buf, k); + Stdlib_Buffer[12].call(null, buf, 32); + return inspect_into(buf, v); + }, + d); + return Stdlib_Buffer[12].call(null, buf, 125); case 8: var l = param[1], match = l[4]; if(match) var n$1 = match[1], tag = n$1; else var tag = cst_lambda; - var N = Stdlib_String[7].call(null, cst$0, l[1]); - return caml_call2(Stdlib_Printf[4].call(null, q), tag, N); + Stdlib_Buffer[12].call(null, buf, 60); + Stdlib_Buffer[16].call(null, buf, tag); + Stdlib_Buffer[12].call(null, buf, 40); + var o = Stdlib_String[7].call(null, cst$0, l[1]); + Stdlib_Buffer[16].call(null, buf, o); + return Stdlib_Buffer[16].call(null, buf, cst$1); case 9: - var - c = param[1], - O = Stdlib_String[7].call(null, cst$0, c[2]), - P = c[1]; - return caml_call2(Stdlib_Printf[4].call(null, r), P, O); + var c = param[1]; + Stdlib_Buffer[16].call(null, buf, ""; + return Stdlib_Buffer[16].call(null, buf, ""); case 13: - return ""; + return Stdlib_Buffer[16].call(null, buf, ""); case 14: - return ""; + return Stdlib_Buffer[16].call(null, buf, ""); case 15: var name = param[1]; - return caml_call1(Stdlib_Printf[4].call(null, u), name); + Stdlib_Buffer[16].call(null, buf, ""; + return Stdlib_Buffer[16].call(null, buf, ""); case 17: var s$2 = param[1]; - return caml_call1 - (Stdlib_Printf[4].call(null, v), caml_ml_string_length(s$2)); + Stdlib_Buffer[16].call(null, buf, '""; + return Stdlib_Buffer[16].call(null, buf, ""); case 19: var s$3 = param[1]; - return caml_call1 - (Stdlib_Printf[4].call(null, w), caml_ml_string_length(s$3)); + Stdlib_Buffer[16].call(null, buf, '""; + return Stdlib_Buffer[16].call(null, buf, ""); case 21: var items = param[1][1]; break; case 22: - return ""; + return Stdlib_Buffer[16].call(null, buf, ""); case 23: - var f = param[1], T = f[1]; - return caml_call1(Stdlib_Printf[4].call(null, x), T); + var f = param[1]; + Stdlib_Buffer[16].call(null, buf, "= 0){ + var i$0 = 0; + for(;;){ + if(0 < i$0) Stdlib_Buffer[12].call(null, buf, 32); + var + X = runtime.caml_bytes_get(b$1, i$0), + Y = Stdlib[33].call(null, X); + Stdlib_Buffer[16].call(null, buf, Y); + var Z = i$0 + 1 | 0; + if(g === i$0) break; + i$0 = Z; + } + } + return Stdlib_Buffer[12].call(null, buf, 41); default: - var - b = param[1], - ak = - Stdlib_List[11].call - (null, - runtime.caml_ml_bytes_length(b), - function(i){ - var a = runtime.caml_bytes_get(b, i); - return Stdlib[33].call(null, a); - }), - al = Stdlib_String[7].call(null, cst, ak); - return caml_call1(Stdlib_Printf[4].call(null, M), al); + var a = param[1]; + Stdlib_Buffer[12].call(null, buf, 40); + Stdlib_Buffer[16].call(null, buf, a[2]); + Stdlib_Array[12].call + (null, + function(v){ + Stdlib_Buffer[12].call(null, buf, 32); + return inspect_into(buf, v); + }, + a[3]); + return Stdlib_Buffer[12].call(null, buf, 41); } - var - e = Stdlib_List[20].call(null, inspect, items), - g = Stdlib_String[7].call(null, cst, e), - h = Stdlib[28].call(null, g, ")"); - return Stdlib[28].call(null, "(", h); + Stdlib_Buffer[12].call(null, buf, 40); + if(items){ + var rest = items[2], x = items[1]; + inspect_into(buf, x); + Stdlib_List[18].call + (null, + function(v){ + Stdlib_Buffer[12].call(null, buf, 32); + return inspect_into(buf, v); + }, + rest); + } + return Stdlib_Buffer[12].call(null, buf, 41); + } + function inspect(v){ + var buf = Stdlib_Buffer[1].call(null, 64); + inspect_into(buf, v); + return Stdlib_Buffer[2].call(null, buf); } runtime.caml_register_global - (188, + (179, [0, sym_to_id, id_to_sym, @@ -38121,6 +39869,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= [0, 0], [0, 0], [0, 0], + jit_excluded, + jit_excluded_prefixes, + jit_name_excluded, + jit_excluded_caller_names, [0, 5000], [0, 0], jit_cache_queue, @@ -38186,13 +39938,932 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= dict_delete, dict_keys, dict_vals, + inspect_into, inspect], "Sx_types"); return; } (globalThis)); -//# 1442 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# 1532 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_cbor:[N,F(3),F(2)*,F(2),F(1),F(1)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_int64_create_lo_mi_hi = runtime.caml_int64_create_lo_mi_hi, + caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace, + caml_ml_string_length = runtime.caml_ml_string_length, + global_data = runtime.caml_get_global_data(), + Stdlib_Buffer = global_data.Stdlib__Buffer, + Stdlib_Hashtbl = global_data.Stdlib__Hashtbl, + Stdlib_List = global_data.Stdlib__List, + Sx_types = global_data.Sx_types, + Stdlib = global_data.Stdlib, + Stdlib_String = global_data.Stdlib__String, + Stdlib_Char = global_data.Stdlib__Char, + Stdlib_Int64 = global_data.Stdlib__Int64, + Cbor_error = [248, "Sx_cbor.Cbor_error", runtime.caml_fresh_oo_id(0)], + a = caml_int64_create_lo_mi_hi(255, 0, 0), + b = caml_int64_create_lo_mi_hi(0, 256, 0); + function write_head(buf, major, v){ + var m = major << 5, v64 = runtime.caml_int64_of_int32(v); + function put_be(nbytes){ + var b = nbytes - 1 | 0; + if(b >= 0){ + var i = b; + for(;;){ + var + c = + Stdlib_Char[1].call + (null, + runtime.caml_int64_to_int32 + (runtime.caml_int64_and + (runtime.caml_int64_shift_right_unsigned(v64, 8 * i | 0), a))); + Stdlib_Buffer[12].call(null, buf, c); + var d = i - 1 | 0; + if(0 === i) break; + i = d; + } + } + return 0; + } + if(24 > v){ + var g = Stdlib_Char[1].call(null, m | v); + return Stdlib_Buffer[12].call(null, buf, g); + } + if(256 > v){ + var f = Stdlib_Char[1].call(null, m | 24); + Stdlib_Buffer[12].call(null, buf, f); + return put_be(1); + } + if(65536 > v){ + var e = Stdlib_Char[1].call(null, m | 25); + Stdlib_Buffer[12].call(null, buf, e); + return put_be(2); + } + if(0 <= Stdlib_Int64[15].call(null, v64, b)){ + var c = Stdlib_Char[1].call(null, m | 27); + Stdlib_Buffer[12].call(null, buf, c); + return put_be(8); + } + var d = Stdlib_Char[1].call(null, m | 26); + Stdlib_Buffer[12].call(null, buf, d); + return put_be(4); + } + function key_order(a, b){ + var la = caml_ml_string_length(a), lb = caml_ml_string_length(b); + return la !== lb + ? runtime.caml_int_compare(la, lb) + : runtime.caml_string_compare(a, b); + } + function encode_into(buf, v){ + if(typeof v === "number"){ + if(0 === v) return Stdlib_Buffer[12].call(null, buf, 246); + } + else + switch(v[0]){ + case 0: + return v[1] + ? Stdlib_Buffer[12].call(null, buf, 245) + : Stdlib_Buffer[12].call(null, buf, 244); + case 1: + var n = v[1]; + return 0 <= n ? write_head(buf, 0, n) : write_head(buf, 1, -1 - n | 0); + case 2: + throw caml_maybe_attach_backtrace + ([0, + Cbor_error, + "cbor-encode: floats unsupported (dag-cbor subset)"], + 1); + case 3: + var s = v[1]; + write_head(buf, 3, caml_ml_string_length(s)); + return Stdlib_Buffer[16].call(null, buf, s); + case 6: + var items = v[1]; + write_head(buf, 4, Stdlib_List[1].call(null, items)); + return Stdlib_List[18].call + (null, function(a){return encode_into(buf, a);}, items); + case 7: + var + d = v[1], + keys = + Stdlib_Hashtbl[14].call + (null, function(k, param, acc){return [0, k, acc];}, d, 0), + keys$0 = Stdlib_List[62].call(null, key_order, keys); + write_head(buf, 5, Stdlib_List[1].call(null, keys$0)); + return Stdlib_List[18].call + (null, + function(k){ + write_head(buf, 3, caml_ml_string_length(k)); + Stdlib_Buffer[16].call(null, buf, k); + return encode_into(buf, Stdlib_Hashtbl[6].call(null, d, k)); + }, + keys$0); + case 4: + case 5: + var s$0 = v[1]; + write_head(buf, 3, caml_ml_string_length(s$0)); + return Stdlib_Buffer[16].call(null, buf, s$0); + } + var a = Sx_types[61].call(null, v); + throw caml_maybe_attach_backtrace + ([0, + Cbor_error, + Stdlib[28].call(null, "cbor-encode: unencodable value ", a)], + 1); + } + function encode(v){ + var buf = Stdlib_Buffer[1].call(null, 64); + encode_into(buf, v); + return Stdlib_Buffer[2].call(null, buf); + } + var c = [0, 0], d = [0, 1]; + function decode(s){ + var + len = caml_ml_string_length(s), + cst_cbor_decode_truncated = "cbor-decode: truncated", + pos = [0, 0]; + function byte(param){ + if(len <= pos[1]) + throw caml_maybe_attach_backtrace + ([0, Cbor_error, cst_cbor_decode_truncated], 1); + var c = runtime.caml_string_get(s, pos[1]); + pos[1]++; + return c; + } + function read_uint(ai){ + if(24 > ai) return ai; + if(24 === ai) return byte(0); + if(25 === ai){var a = byte(0), b = byte(0); return a << 8 | b;} + if(26 === ai){ + var v$1 = 0, for$ = 0; + for(;;){ + var v = v$1 << 8 | byte(0), c = for$ + 1 | 0; + if(3 === for$) return v; + v$1 = v; + for$ = c; + } + } + else{ + if(27 !== ai) + throw caml_maybe_attach_backtrace + ([0, Cbor_error, "cbor-decode: bad additional info"], 1); + var v$2 = 0, for$0 = 0; + for(;;){ + var v$0 = v$2 << 8 | byte(0), d = for$0 + 1 | 0; + if(7 === for$0) return v$0; + v$2 = v$0; + for$0 = d; + } + } + } + function item(param){ + a: + { + b: + for(;;){ + var b = byte(0), major = b >>> 5 | 0, ai = b & 31; + if(7 < major >>> 0) + throw caml_maybe_attach_backtrace + ([0, Cbor_error, "cbor-decode: bad major type"], 1); + switch(major){ + case 0: + return [1, read_uint(ai)]; + case 1: + return [1, -1 - read_uint(ai) | 0]; + case 4: + break a; + case 5: + break b; + case 6: + read_uint(ai); break; + case 7: + var switcher = ai - 20 | 0; + if(3 < switcher >>> 0) + throw caml_maybe_attach_backtrace + ([0, + Cbor_error, + "cbor-decode: floats/simple unsupported (dag-cbor subset)"], + 1); + switch(switcher){ + case 0: + return c; + case 1: + return d; + default: return 0; + } + default: + var n = read_uint(ai); + if(len < (pos[1] + n | 0)) + throw caml_maybe_attach_backtrace + ([0, Cbor_error, cst_cbor_decode_truncated], 1); + var r = Stdlib_String[16].call(null, s, pos[1], n); + pos[1] = pos[1] + n | 0; + return [3, r]; + } + } + var n$1 = read_uint(ai), d$0 = Sx_types[109].call(null, 0); + if(n$1 >= 1){ + var for$ = 1; + for(;;){ + var match = item(0); + if(typeof match !== "number" && 3 === match[0]){ + var k = match[1], a = item(0); + Stdlib_Hashtbl[11].call(null, d$0, k, a); + var e = for$ + 1 | 0; + if(n$1 === for$) break; + for$ = e; + continue; + } + throw caml_maybe_attach_backtrace + ([0, Cbor_error, "cbor-decode: non-string map key"], 1); + } + } + return [7, d$0]; + } + var n$0 = read_uint(ai); + return [6, + Stdlib_List[11].call(null, n$0, function(param){return item(0);})]; + } + var v = item(0); + return v; + } + runtime.caml_register_global + (21, + [0, Cbor_error, write_head, key_order, encode_into, encode, decode], + "Sx_cbor"); + return; + } + (globalThis)); + +//# 1787 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_sha2:[N,F(2)*,F(1),N,F(2)*,F(2)*,F(2)*,F(2)*,F(1)*,F(2)*,F(1)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_bytes_get = runtime.caml_bytes_get, + caml_bytes_set = runtime.caml_bytes_set, + caml_check_bound = runtime.caml_check_bound, + caml_int64_add = runtime.caml_int64_add, + caml_int64_and = runtime.caml_int64_and, + caml_int64_create_lo_mi_hi = runtime.caml_int64_create_lo_mi_hi, + caml_int64_mul = runtime.caml_int64_mul, + caml_int64_of_int32 = runtime.caml_int64_of_int32, + caml_int64_or = runtime.caml_int64_or, + caml_int64_shift_left = runtime.caml_int64_shift_left, + caml_int64_shift_right_unsigne = runtime.caml_int64_shift_right_unsigned, + caml_int64_to_int32 = runtime.caml_int64_to_int32, + caml_int64_xor = runtime.caml_int64_xor, + caml_make_vect = runtime.caml_make_vect, + caml_ml_string_length = runtime.caml_ml_string_length, + caml_obj_dup = runtime.caml_obj_dup; + function caml_call1(f, a0){ + return (f.l >= 0 ? f.l : f.l = f.length) === 1 + ? f(a0) + : runtime.caml_call_gen(f, [a0]); + } + var + global_data = runtime.caml_get_global_data(), + Stdlib_Printf = global_data.Stdlib__Printf, + Stdlib_Buffer = global_data.Stdlib__Buffer, + Stdlib_Bytes = global_data.Stdlib__Bytes, + Stdlib_Char = global_data.Stdlib__Char, + Stdlib_Array = global_data.Stdlib__Array, + Stdlib_Int32 = global_data.Stdlib__Int32, + Stdlib_Int64 = global_data.Stdlib__Int64, + k256 = + caml_obj_dup + ([0, + 1116352408, + 1899447441, + -1245643825, + -373957723, + 961987163, + 1508970993, + -1841331548, + -1424204075, + -670586216, + 310598401, + 607225278, + 1426881987, + 1925078388, + -2132889090, + -1680079193, + -1046744716, + -459576895, + -272742522, + 264347078, + 604807628, + 770255983, + 1249150122, + 1555081692, + 1996064986, + -1740746414, + -1473132947, + -1341970488, + -1084653625, + -958395405, + -710438585, + 113926993, + 338241895, + 666307205, + 773529912, + 1294757372, + 1396182291, + 1695183700, + 1986661051, + -2117940946, + -1838011259, + -1564481375, + -1474664885, + -1035236496, + -949202525, + -778901479, + -694614492, + -200395387, + 275423344, + 430227734, + 506948616, + 659060556, + 883997877, + 958139571, + 1322822218, + 1537002063, + 1747873779, + 1955562222, + 2024104815, + -2067236844, + -1933114872, + -1866530822, + -1538233109, + -1090935817, + -965641998]), + b = caml_int64_create_lo_mi_hi(8, 0, 0), + d = caml_int64_create_lo_mi_hi(255, 0, 0); + function rotr32(x, n){return x >>> n | 0 | x << (32 - n | 0);} + var + a = + [0, + 1779033703, + -1150833019, + 1013904242, + -1521486534, + 1359893119, + -1694144372, + 528734635, + 1541459225], + c = [0, [5, 6, [0, 2, 8], 0, 0], "%08lx"]; + function sha256_hex(msg){ + var + h = caml_obj_dup(a), + len = caml_ml_string_length(msg), + bitlen = caml_int64_mul(caml_int64_of_int32(len), b), + r = (len + 1 | 0) % 64 | 0, + padlen = 56 < r ? 120 - r | 0 : 56 - r | 0, + total = ((len + 1 | 0) + padlen | 0) + 8 | 0, + buf = Stdlib_Bytes[1].call(null, total, 0); + Stdlib_Bytes[12].call(null, msg, 0, buf, 0, len); + caml_bytes_set(buf, len, 128); + var i = 0; + for(;;){ + caml_bytes_set + (buf, + (total - 1 | 0) - i | 0, + Stdlib_Char[1].call + (null, + caml_int64_to_int32 + (caml_int64_and + (caml_int64_shift_right_unsigne(bitlen, 8 * i | 0), d)))); + var V = i + 1 | 0; + if(7 === i) break; + i = V; + } + function byte(i){return caml_bytes_get(buf, i);} + var + w = caml_make_vect(64, 0), + nblocks = total / 64 | 0, + g = nblocks - 1 | 0; + if(g >= 0){ + var b$0 = 0; + for(;;){ + var base = b$0 * 64 | 0, t$1 = 0; + for(;;){ + var + o = base + (t$1 * 4 | 0) | 0, + Q = byte(o + 3 | 0), + R = byte(o + 2 | 0) << 8 | Q, + S = byte(o + 1 | 0) << 16, + T = byte(o) << 24 | S | R; + caml_check_bound(w, t$1)[t$1 + 1] = T; + var U = t$1 + 1 | 0; + if(15 === t$1) break; + t$1 = U; + } + var t$0 = 16; + for(;;){ + var + j = t$0 - 15 | 0, + k = t$0 - 15 | 0, + J = caml_check_bound(w, j)[j + 1] >>> 3 | 0, + l = t$0 - 15 | 0, + K = rotr32(caml_check_bound(w, k)[k + 1], 18), + s0$0 = rotr32(caml_check_bound(w, l)[l + 1], 7) ^ K ^ J, + m = t$0 - 2 | 0, + n = t$0 - 2 | 0, + L = caml_check_bound(w, m)[m + 1] >>> 10 | 0, + p = t$0 - 2 | 0, + M = rotr32(caml_check_bound(w, n)[n + 1], 19), + s1$0 = rotr32(caml_check_bound(w, p)[p + 1], 17) ^ M ^ L, + q = t$0 - 7 | 0, + s = t$0 - 16 | 0, + N = caml_check_bound(w, q)[q + 1] + s1$0 | 0, + O = (caml_check_bound(w, s)[s + 1] + s0$0 | 0) + N | 0; + caml_check_bound(w, t$0)[t$0 + 1] = O; + var P = t$0 + 1 | 0; + if(63 === t$0) break; + t$0 = P; + } + var + u = caml_check_bound(h, 0)[1], + v = caml_check_bound(h, 1)[2], + x = caml_check_bound(h, 2)[3], + y = caml_check_bound(h, 3)[4], + z = caml_check_bound(h, 4)[5], + A = caml_check_bound(h, 5)[6], + B = caml_check_bound(h, 6)[7], + hh$0 = caml_check_bound(h, 7)[8], + hh = B, + f = A, + e$0 = z, + d$0 = y, + c$0 = x, + bb$0 = v, + bb = u, + t = 0; + for(;;){ + var + D = rotr32(e$0, 25), + E = rotr32(e$0, 11), + s1 = rotr32(e$0, 6) ^ E ^ D, + ch = e$0 & f ^ Stdlib_Int32[11].call(null, e$0) & hh, + F = caml_check_bound(w, t)[t + 1], + t1 = + ((hh$0 + s1 | 0) + (ch + caml_check_bound(k256, t)[t + 1] | 0) | 0) + + F + | 0, + G = rotr32(bb, 22), + H = rotr32(bb, 13), + s0 = rotr32(bb, 2) ^ H ^ G, + maj = bb & bb$0 ^ bb & c$0 ^ bb$0 & c$0, + t2 = s0 + maj | 0, + e = d$0 + t1 | 0, + a$0 = t1 + t2 | 0, + I = t + 1 | 0; + if(63 === t) break; + hh$0 = hh; + hh = f; + f = e$0; + e$0 = e; + d$0 = c$0; + c$0 = bb$0; + bb$0 = bb; + bb = a$0; + t = I; + } + h[1] = caml_check_bound(h, 0)[1] + a$0 | 0; + h[2] = caml_check_bound(h, 1)[2] + bb | 0; + h[3] = caml_check_bound(h, 2)[3] + bb$0 | 0; + h[4] = caml_check_bound(h, 3)[4] + c$0 | 0; + h[5] = caml_check_bound(h, 4)[5] + e | 0; + h[6] = caml_check_bound(h, 5)[6] + e$0 | 0; + h[7] = caml_check_bound(h, 6)[7] + f | 0; + h[8] = caml_check_bound(h, 7)[8] + hh | 0; + var C = b$0 + 1 | 0; + if(g === b$0) break; + b$0 = C; + } + } + var out = Stdlib_Buffer[1].call(null, 64); + Stdlib_Array[12].call + (null, + function(x){ + var a = caml_call1(Stdlib_Printf[4].call(null, c), x); + return Stdlib_Buffer[16].call(null, out, a); + }, + h); + return Stdlib_Buffer[2].call(null, out); + } + var + k512 = + caml_obj_dup + ([0, + caml_int64_create_lo_mi_hi(2666018, 3119319, 17034), + caml_int64_create_lo_mi_hi(15689165, 4493603, 28983), + caml_int64_create_lo_mi_hi(5061423, 16502764, 46528), + caml_int64_create_lo_mi_hi(9034684, 14394753, 59829), + caml_int64_create_lo_mi_hi(4764984, 12737523, 14678), + caml_int64_create_lo_mi_hi(380953, 1175990, 23025), + caml_int64_create_lo_mi_hi(1658779, 8561839, 37439), + caml_int64_create_lo_mi_hi(7176472, 6215130, 43804), + caml_int64_create_lo_mi_hi(197186, 11180195, 55303), + caml_int64_create_lo_mi_hi(7368638, 5964101, 4739), + caml_int64_create_lo_mi_hi(14987916, 8765006, 9265), + caml_int64_create_lo_mi_hi(16757986, 8242133, 21772), + caml_int64_create_lo_mi_hi(8096111, 6124786, 29374), + caml_int64_create_lo_mi_hi(1480369, 11664955, 32990), + caml_int64_create_lo_mi_hi(13046325, 436005, 39900), + caml_int64_create_lo_mi_hi(6891156, 15824079, 49563), + caml_int64_create_lo_mi_hi(15813330, 6930846, 58523), + caml_int64_create_lo_mi_hi(5187043, 4687416, 61374), + caml_int64_create_lo_mi_hi(9229749, 10339979, 4033), + caml_int64_create_lo_mi_hi(11312229, 10603639, 9228), + caml_int64_create_lo_mi_hi(2818677, 2912089, 11753), + caml_int64_create_lo_mi_hi(10937475, 8694382, 19060), + caml_int64_create_lo_mi_hi(4324308, 11132093, 23728), + caml_int64_create_lo_mi_hi(1135541, 8968835, 30457), + caml_int64_create_lo_mi_hi(6741931, 5329646, 38974), + caml_int64_create_lo_mi_hi(11809296, 13004077, 43057), + caml_int64_create_lo_mi_hi(16458047, 2607256, 45059), + caml_int64_create_lo_mi_hi(15666916, 8374206, 48985), + caml_int64_create_lo_mi_hi(11046850, 783165, 50912), + caml_int64_create_lo_mi_hi(698149, 9521043, 54695), + caml_int64_create_lo_mi_hi(229999, 6509024, 1738), + caml_int64_create_lo_mi_hi(945776, 2713354, 5161), + caml_int64_create_lo_mi_hi(13774844, 689478, 10167), + caml_int64_create_lo_mi_hi(2541862, 2177116, 11803), + caml_int64_create_lo_mi_hi(12856045, 7208026, 19756), + caml_int64_create_lo_mi_hi(9810911, 856989, 21304), + caml_int64_create_lo_mi_hi(11494366, 7558283, 25866), + caml_int64_create_lo_mi_hi(7844520, 703292, 30314), + caml_int64_create_lo_mi_hi(15576806, 13184583, 33218), + caml_int64_create_lo_mi_hi(8533307, 2917652, 37490), + caml_int64_create_lo_mi_hi(15795044, 15245644, 41663), + caml_int64_create_lo_mi_hi(4337665, 6704060, 43034), + caml_int64_create_lo_mi_hi(16291729, 9138384, 49739), + caml_int64_create_lo_mi_hi(5553712, 5350150, 51052), + caml_int64_create_lo_mi_hi(15684120, 15210966, 53650), + caml_int64_create_lo_mi_hi(6662416, 402517, 54937), + caml_int64_create_lo_mi_hi(7413802, 3507543, 62478), + caml_int64_create_lo_mi_hi(12308920, 10514482, 4202), + caml_int64_create_lo_mi_hi(13816008, 12654264, 6564), + caml_int64_create_lo_mi_hi(4303699, 7080017, 7735), + caml_int64_create_lo_mi_hi(9366425, 7818463, 10056), + caml_int64_create_lo_mi_hi(10176680, 12367329, 13488), + caml_int64_create_lo_mi_hi(13195875, 832453, 14620), + caml_int64_create_lo_mi_hi(4295371, 11160291, 20184), + caml_int64_create_lo_mi_hi(6546291, 13258615, 23452), + caml_int64_create_lo_mi_hi(11712675, 7336918, 26670), + caml_int64_create_lo_mi_hi(15708924, 8580701, 29839), + caml_int64_create_lo_mi_hi(1519456, 6516547, 30885), + caml_int64_create_lo_mi_hi(15772530, 7869601, 33992), + caml_int64_create_lo_mi_hi(6568428, 133146, 36039), + caml_int64_create_lo_mi_hi(6495784, 16775715, 37054), + caml_int64_create_lo_mi_hi(8568297, 7138270, 42064), + caml_int64_create_lo_mi_hi(13007125, 10745778, 48889), + caml_int64_create_lo_mi_hi(7492395, 7926499, 50801), + caml_int64_create_lo_mi_hi(2515356, 4116202, 51751), + caml_int64_create_lo_mi_hi(12632583, 12109601, 53638), + caml_int64_create_lo_mi_hi(14740254, 8246989, 60122), + caml_int64_create_lo_mi_hi(7262584, 5210094, 62845), + caml_int64_create_lo_mi_hi(1535930, 6793842, 1776), + caml_int64_create_lo_mi_hi(13146278, 8242594, 2659), + caml_int64_create_lo_mi_hi(16321966, 9962686, 4415), + caml_int64_create_lo_mi_hi(1853211, 734483, 7025), + caml_int64_create_lo_mi_hi(294276, 7861539, 10459), + caml_int64_create_lo_mi_hi(13051027, 11238208, 13002), + caml_int64_create_lo_mi_hi(13221564, 12454421, 15518), + caml_int64_create_lo_mi_hi(1051980, 6800540, 17181), + caml_int64_create_lo_mi_hi(4080310, 13942475, 19653), + caml_int64_create_lo_mi_hi(6651434, 2727164, 22911), + caml_int64_create_lo_mi_hi(14088940, 7318330, 24523), + caml_int64_create_lo_mi_hi(4675607, 1674314, 27716)]), + lnot64 = Stdlib_Int64[11], + e = + [0, + caml_int64_create_lo_mi_hi(12372232, 15099891, 27145), + caml_int64_create_lo_mi_hi(13281083, 11437444, 47975), + caml_int64_create_lo_mi_hi(9762859, 15954686, 15470), + caml_int64_create_lo_mi_hi(1914609, 16071263, 42319), + caml_int64_create_lo_mi_hi(15106769, 5406637, 20750), + caml_int64_create_lo_mi_hi(4090911, 6851627, 39685), + caml_int64_create_lo_mi_hi(4308331, 14265339, 8067), + caml_int64_create_lo_mi_hi(8266105, 13441299, 23520)], + f = caml_int64_create_lo_mi_hi(8, 0, 0), + g = caml_int64_create_lo_mi_hi(0, 0, 0), + i = caml_int64_create_lo_mi_hi(0, 0, 0), + j = caml_int64_create_lo_mi_hi(255, 0, 0); + function rotr64(x, n){ + return caml_int64_or + (caml_int64_shift_right_unsigne(x, n), + caml_int64_shift_left(x, 64 - n | 0)); + } + var h = [0, [7, 6, [0, 2, 16], 0, 0], "%016Lx"]; + function sha512_hex(msg){ + var + h$0 = caml_obj_dup(e), + len = caml_ml_string_length(msg), + bitlen = caml_int64_mul(caml_int64_of_int32(len), f), + r = (len + 1 | 0) % 128 | 0, + padlen = 112 < r ? 240 - r | 0 : 112 - r | 0, + total = ((len + 1 | 0) + padlen | 0) + 16 | 0, + buf = Stdlib_Bytes[1].call(null, total, 0); + Stdlib_Bytes[12].call(null, msg, 0, buf, 0, len); + caml_bytes_set(buf, len, 128); + var i$0 = 0; + for(;;){ + caml_bytes_set + (buf, + (total - 1 | 0) - i$0 | 0, + Stdlib_Char[1].call + (null, + caml_int64_to_int32 + (caml_int64_and + (caml_int64_shift_right_unsigne(bitlen, 8 * i$0 | 0), j)))); + var Q = i$0 + 1 | 0; + if(7 === i$0) break; + i$0 = Q; + } + var + w = caml_make_vect(80, g), + nblocks = total / 128 | 0, + k = nblocks - 1 | 0; + if(k >= 0){ + var b = 0; + for(;;){ + var base = b * 128 | 0, t$1 = 0; + for(;;){ + var o = base + (t$1 * 8 | 0) | 0, v$0 = i, j$0 = 0; + for(;;){ + var + v = + caml_int64_or + (caml_int64_shift_left(v$0, 8), + caml_int64_of_int32(caml_bytes_get(buf, o + j$0 | 0))), + P = j$0 + 1 | 0; + if(7 === j$0) break; + v$0 = v; + j$0 = P; + } + caml_check_bound(w, t$1)[t$1 + 1] = v; + var O = t$1 + 1 | 0; + if(15 === t$1) break; + t$1 = O; + } + var t$0 = 16; + for(;;){ + var + l = t$0 - 15 | 0, + m = t$0 - 15 | 0, + K = caml_int64_shift_right_unsigne(caml_check_bound(w, l)[l + 1], 7), + n = t$0 - 15 | 0, + V = caml_int64_xor(rotr64(caml_check_bound(w, m)[m + 1], 8), K), + s0$0 = caml_int64_xor(rotr64(caml_check_bound(w, n)[n + 1], 1), V), + p = t$0 - 2 | 0, + q = t$0 - 2 | 0, + L = caml_int64_shift_right_unsigne(caml_check_bound(w, p)[p + 1], 6), + s = t$0 - 2 | 0, + U = caml_int64_xor(rotr64(caml_check_bound(w, q)[q + 1], 61), L), + s1$0 = caml_int64_xor(rotr64(caml_check_bound(w, s)[s + 1], 19), U), + u = t$0 - 7 | 0, + x = t$0 - 16 | 0, + M = caml_check_bound(w, u)[u + 1], + T = + caml_int64_add + (caml_int64_add + (caml_int64_add(caml_check_bound(w, x)[x + 1], s0$0), M), + s1$0); + caml_check_bound(w, t$0)[t$0 + 1] = T; + var N = t$0 + 1 | 0; + if(79 === t$0) break; + t$0 = N; + } + var + y = caml_check_bound(h$0, 0)[1], + z = caml_check_bound(h$0, 1)[2], + A = caml_check_bound(h$0, 2)[3], + B = caml_check_bound(h$0, 3)[4], + C = caml_check_bound(h$0, 4)[5], + D = caml_check_bound(h$0, 5)[6], + E = caml_check_bound(h$0, 6)[7], + hh$0 = caml_check_bound(h$0, 7)[8], + hh = E, + f$0 = D, + e$1 = C, + d = B, + c = A, + bb$0 = z, + bb = y, + t = 0; + for(;;){ + var + G = rotr64(e$1, 41), + S = caml_int64_xor(rotr64(e$1, 18), G), + s1 = caml_int64_xor(rotr64(e$1, 14), S), + ch = + caml_int64_xor + (caml_int64_and(e$1, f$0), caml_int64_and(lnot64(e$1), hh)), + H = caml_check_bound(w, t)[t + 1], + t1 = + caml_int64_add + (caml_int64_add + (caml_int64_add(caml_int64_add(hh$0, s1), ch), + caml_check_bound(k512, t)[t + 1]), + H), + I = rotr64(bb, 39), + R = caml_int64_xor(rotr64(bb, 34), I), + s0 = caml_int64_xor(rotr64(bb, 28), R), + maj = + caml_int64_xor + (caml_int64_and(bb, bb$0), + caml_int64_xor(caml_int64_and(bb, c), caml_int64_and(bb$0, c))), + t2 = caml_int64_add(s0, maj), + e$0 = caml_int64_add(d, t1), + a = caml_int64_add(t1, t2), + J = t + 1 | 0; + if(79 === t) break; + hh$0 = hh; + hh = f$0; + f$0 = e$1; + e$1 = e$0; + d = c; + c = bb$0; + bb$0 = bb; + bb = a; + t = J; + } + h$0[1] = caml_int64_add(caml_check_bound(h$0, 0)[1], a); + h$0[2] = caml_int64_add(caml_check_bound(h$0, 1)[2], bb); + h$0[3] = caml_int64_add(caml_check_bound(h$0, 2)[3], bb$0); + h$0[4] = caml_int64_add(caml_check_bound(h$0, 3)[4], c); + h$0[5] = caml_int64_add(caml_check_bound(h$0, 4)[5], e$0); + h$0[6] = caml_int64_add(caml_check_bound(h$0, 5)[6], e$1); + h$0[7] = caml_int64_add(caml_check_bound(h$0, 6)[7], f$0); + h$0[8] = caml_int64_add(caml_check_bound(h$0, 7)[8], hh); + var F = b + 1 | 0; + if(k === b) break; + b = F; + } + } + var out = Stdlib_Buffer[1].call(null, 128); + Stdlib_Array[12].call + (null, + function(x){ + var a = caml_call1(Stdlib_Printf[4].call(null, h), x); + return Stdlib_Buffer[16].call(null, out, a); + }, + h$0); + return Stdlib_Buffer[2].call(null, out); + } + runtime.caml_register_global + (20, + [0, + k256, + rotr32, + sha256_hex, + k512, + caml_int64_and, + caml_int64_or, + caml_int64_xor, + caml_int64_add, + lnot64, + rotr64, + sha512_hex], + "Sx_sha2"); + return; + } + (globalThis)); + +//# 2327 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_cid:[F(1),N,F(1),F(1),F(2),F(2),N,N,F(1)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_ml_string_length = runtime.caml_ml_string_length, + caml_string_get = runtime.caml_string_get, + global_data = runtime.caml_get_global_data(), + Sx_cbor = global_data.Sx_cbor, + Sx_sha2 = global_data.Sx_sha2, + Stdlib = global_data.Stdlib, + Stdlib_String = global_data.Stdlib__String, + Stdlib_Char = global_data.Stdlib__Char, + Stdlib_Bytes = global_data.Stdlib__Bytes, + Stdlib_Buffer = global_data.Stdlib__Buffer; + function varint(n){ + var buf = Stdlib_Buffer[1].call(null, 4), cont = 1, n$1 = n; + for(;;){ + if(! cont) return Stdlib_Buffer[2].call(null, buf); + var b = n$1 & 127, n$0 = n$1 >>> 7 | 0; + if(0 === n$0){ + var a = Stdlib_Char[1].call(null, b); + Stdlib_Buffer[12].call(null, buf, a); + cont = 0; + n$1 = n$0; + } + else{ + var c = Stdlib_Char[1].call(null, b | 128); + Stdlib_Buffer[12].call(null, buf, c); + n$1 = n$0; + } + } + } + var cst_abcdefghijklmnopqrstuvwxyz = "abcdefghijklmnopqrstuvwxyz234567"; + function base32_lower(s){ + var + buf = + Stdlib_Buffer[1].call + (null, ((caml_ml_string_length(s) * 8 | 0) + 4 | 0) / 5 | 0), + acc = [0, 0], + bits = [0, 0]; + Stdlib_String[30].call + (null, + function(c){ + acc[1] = acc[1] << 8 | c; + bits[1] = bits[1] + 8 | 0; + for(;;){ + if(5 > bits[1]){acc[1] = acc[1] & ((1 << bits[1]) - 1 | 0); return 0;} + bits[1] = bits[1] - 5 | 0; + var + a = + caml_string_get + (cst_abcdefghijklmnopqrstuvwxyz, (acc[1] >>> bits[1] | 0) & 31); + Stdlib_Buffer[12].call(null, buf, a); + } + }, + s); + if(0 < bits[1]){ + var + a = + caml_string_get + (cst_abcdefghijklmnopqrstuvwxyz, acc[1] << (5 - bits[1] | 0) & 31); + Stdlib_Buffer[12].call(null, buf, a); + } + return Stdlib_Buffer[2].call(null, buf); + } + function unhex(h){ + var + n = caml_ml_string_length(h) / 2 | 0, + b = runtime.caml_create_bytes(n), + a = n - 1 | 0; + if(a >= 0){ + var i = 0; + for(;;){ + var + c = Stdlib_String[16].call(null, h, 2 * i | 0, 2), + d = runtime.caml_int_of_string(Stdlib[28].call(null, "0x", c)); + runtime.caml_bytes_set(b, i, Stdlib_Char[1].call(null, d)); + var e = i + 1 | 0; + if(a === i) break; + i = e; + } + } + return Stdlib_Bytes[44].call(null, b); + } + function multihash(code, digest){ + var + a = varint(caml_ml_string_length(digest)), + b = Stdlib[28].call(null, a, digest), + c = varint(code); + return Stdlib[28].call(null, c, b); + } + function cidv1(codec, mh){ + var + a = varint(codec), + b = Stdlib[28].call(null, a, mh), + c = base32_lower(Stdlib[28].call(null, "\x01", b)); + return Stdlib[28].call(null, "b", c); + } + var codec_dag_cbor = 113, mh_sha2_256 = 18; + function cid_from_sx(v){ + var + cbor = Sx_cbor[5].call(null, v), + digest = unhex(Sx_sha2[3].call(null, cbor)); + return cidv1(codec_dag_cbor, multihash(mh_sha2_256, digest)); + } + runtime.caml_register_global + (11, + [0, + varint, + cst_abcdefghijklmnopqrstuvwxyz, + base32_lower, + unhex, + multihash, + cidv1, + codec_dag_cbor, + mh_sha2_256, + cid_from_sx], + "Sx_cid"); + return; + } + (globalThis)); + +//# 2453 "../lib/.sx.objs/jsoo/default/sx.cma.js" //# shape: Sx_cst:[F(1),F(1),F(1),F(2),F(1),F(2),F(2),F(3)] (function (globalThis){ @@ -38291,7 +40962,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= default: var children$0 = param[2], - d = Sx_types[105].call(null, 0), + d = Sx_types[109].call(null, 0), param$0 = children$0; for(;;){ if(param$0){ @@ -38307,7 +40978,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else var k$0 = match$0[1], key_str = k$0; var a = cst_to_ast(v); - Sx_types[108].call(null, d, key_str, a); + Sx_types[112].call(null, d, key_str, a); param$0 = rest; continue; } @@ -38354,10 +41025,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= match = offset_to_loc(src, span$0[1]), col = match[2], line = match[1], - d = Sx_types[105].call(null, 0); - Sx_types[108].call(null, d, "form", value); - Sx_types[108].call(null, d, "line", [2, line]); - Sx_types[108].call(null, d, "col", [2, col]); + d = Sx_types[109].call(null, 0); + Sx_types[112].call(null, d, "form", value); + Sx_types[112].call(null, d, "line", [2, line]); + Sx_types[112].call(null, d, "col", [2, col]); return [7, d]; }, nodes); @@ -38440,7 +41111,517 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 1691 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# 2702 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_ed25519:[N,N,N,F(1),N,F(1),F(1),F(2),F(2),F(2),F(2),F(1),F(2),F(2),F(2),F(3),F(1),F(2),N,F(1),F(2),F(2),F(2),F(2),F(1),N,N,N,N,F(2),F(2),F(1),F(1),F(1),N,F(1),F(1),F(3)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_bytes_set = runtime.caml_bytes_set, + caml_check_bound = runtime.caml_check_bound, + caml_int64_add = runtime.caml_int64_add, + caml_int64_create_lo_mi_hi = runtime.caml_int64_create_lo_mi_hi, + caml_int64_of_int32 = runtime.caml_int64_of_int32, + caml_int64_to_int32 = runtime.caml_int64_to_int32, + caml_int_compare = runtime.caml_int_compare, + caml_make_vect = runtime.caml_make_vect, + caml_ml_string_length = runtime.caml_ml_string_length, + caml_string_get = runtime.caml_string_get, + global_data = runtime.caml_get_global_data(), + b = caml_int64_create_lo_mi_hi(0, 0, 0), + Stdlib_String = global_data.Stdlib__String, + Stdlib = global_data.Stdlib, + Sx_sha2 = global_data.Sx_sha2, + Stdlib_Char = global_data.Stdlib__Char, + Stdlib_Bytes = global_data.Stdlib__Bytes, + Stdlib_List = global_data.Stdlib__List, + Stdlib_Array = global_data.Stdlib__Array; + function norm(a){ + var n = a.length - 1; + for(;;){ + if(1 < n){ + var b = n - 1 | 0; + if(0 === caml_check_bound(a, b)[b + 1]){ + var n$0 = n - 1 | 0; + n = n$0; + continue; + } + } + return n === a.length - 1 ? a : Stdlib_Array[6].call(null, a, 0, n); + } + } + var c = caml_int64_create_lo_mi_hi(0, 0, 0), bzero = [0, 0]; + function of_int(n){ + if(0 === n) return bzero; + var n$0 = n, r = 0; + for(;;){ + if(0 >= n$0){ + var b = Stdlib_List[10].call(null, r); + return norm(Stdlib_Array[11].call(null, b)); + } + var a = [0, n$0 & 67108863, r]; + n$0 = n$0 >>> 26 | 0; + r = a; + } + } + function is_zero(a){ + var + b = 1 === a.length - 1 ? 1 : 0, + c = b ? 0 === caml_check_bound(a, 0)[1] ? 1 : 0 : b; + return c; + } + function cmp(a, b){ + var + a$0 = norm(a), + b$0 = norm(b), + la = a$0.length - 1, + lb = b$0.length - 1; + if(la !== lb) return caml_int_compare(la, lb); + var i = la - 1 | 0, r = 0; + for(;;){ + if(0 === r && 0 <= i){ + var c = caml_check_bound(b$0, i)[i + 1]; + if(caml_check_bound(a$0, i)[i + 1] !== c) + var + d = caml_check_bound(b$0, i)[i + 1], + r$0 = caml_int_compare(caml_check_bound(a$0, i)[i + 1], d); + else + var r$0 = r; + var i$0 = i - 1 | 0; + i = i$0; + r = r$0; + continue; + } + return r; + } + } + function add(a, b){ + var + la = a.length - 1, + lb = b.length - 1, + n = Stdlib[17].call(null, la, lb) + 1 | 0, + r = caml_make_vect(n, 0), + c = n - 1 | 0; + if(c >= 0){ + var carry = 0, i = 0; + for(;;){ + var + d = i < lb ? caml_check_bound(b, i)[i + 1] : 0, + e = i < la ? caml_check_bound(a, i)[i + 1] : 0, + s = (carry + e | 0) + d | 0; + caml_check_bound(r, i)[i + 1] = s & 67108863; + var f = s >>> 26 | 0, g = i + 1 | 0; + if(c === i) break; + carry = f; + i = g; + } + } + return norm(r); + } + function sub(a, b){ + var + la = a.length - 1, + lb = b.length - 1, + r = caml_make_vect(la, 0), + c = la - 1 | 0; + if(c >= 0){ + var borrow = 0, i = 0; + for(;;){ + var + d = i < lb ? caml_check_bound(b, i)[i + 1] : 0, + s = (caml_check_bound(a, i)[i + 1] - borrow | 0) - d | 0, + borrow$0 = + 0 <= s + ? (caml_check_bound(r, i)[i + 1] = s, 0) + : (caml_check_bound(r, i)[i + 1] = s + 67108864 | 0, 1), + e = i + 1 | 0; + if(c === i) break; + borrow = borrow$0; + i = e; + } + } + return norm(r); + } + function mul(a, b$0){ + var + la = a.length - 1, + lb = b$0.length - 1, + r = caml_make_vect(la + lb | 0, 0), + maskL = caml_int64_create_lo_mi_hi(16777215, 3, 0), + c = la - 1 | 0; + if(c >= 0){ + var i = 0; + for(;;){ + var + ai = caml_int64_of_int32(caml_check_bound(a, i)[i + 1]), + d = lb - 1 | 0; + if(d < 0) + var carry$0 = b; + else{ + var carry = b, j = 0; + for(;;){ + var + g = i + j | 0, + n = + runtime.caml_int64_mul + (ai, caml_int64_of_int32(caml_check_bound(b$0, j)[j + 1])), + s = + caml_int64_add + (caml_int64_add + (caml_int64_of_int32(caml_check_bound(r, g)[g + 1]), n), + carry), + h = i + j | 0; + caml_check_bound(r, h)[h + 1] = + caml_int64_to_int32(runtime.caml_int64_and(s, maskL)); + var k = runtime.caml_int64_shift_right_unsigned(s, 26), o = j + 1 | 0; + if(d === j){var carry$0 = k; break;} + carry = k; + j = o; + } + } + var + e = i + lb | 0, + f = i + lb | 0, + l = caml_check_bound(r, e)[e + 1] + caml_int64_to_int32(carry$0) | 0; + caml_check_bound(r, f)[f + 1] = l; + var m = i + 1 | 0; + if(c === i) break; + i = m; + } + } + return norm(r); + } + function numbits(a){ + var a$0 = norm(a), hi = a$0.length - 2 | 0; + if(0 === hi && 0 === caml_check_bound(a$0, 0)[1]) return 0; + var v = caml_check_bound(a$0, hi)[hi + 1], b = 0; + for(;;){ + if(0 >= v) return (hi * 26 | 0) + b | 0; + var b$0 = b + 1 | 0; + v = v >>> 1 | 0; + b = b$0; + } + } + function bit(a, i){ + var limb = i / 26 | 0, off = i % 26 | 0; + return a.length - 1 <= limb + ? 0 + : (caml_check_bound(a, limb)[limb + 1] >>> off | 0) & 1; + } + function bn_mod(a, m){ + if(0 > cmp(a, m)) return norm(a); + var b = numbits(a) - 1 | 0; + if(b < 0) + var r$3 = bzero; + else{ + var r$0 = bzero, i = b; + for(;;){ + var + r = add(r$0, r$0), + r$1 = 1 === bit(a, i) ? add(r, [0, 1]) : r, + r$2 = 0 <= cmp(r$1, m) ? sub(r$1, m) : r$1, + c = i - 1 | 0; + if(0 === i){var r$3 = r$2; break;} + r$0 = r$2; + i = c; + } + } + return r$3; + } + function div_small(a, d){ + var + la = a.length - 1, + q = caml_make_vect(la, 0), + dL = caml_int64_of_int32(d), + b = la - 1 | 0; + if(b >= 0){ + var rem = c, i = b; + for(;;){ + var + cur = + runtime.caml_int64_or + (runtime.caml_int64_shift_left(rem, 26), + caml_int64_of_int32(caml_check_bound(a, i)[i + 1])), + e = caml_int64_to_int32(runtime.caml_int64_div(cur, dL)); + caml_check_bound(q, i)[i + 1] = e; + var f = runtime.caml_int64_mod(cur, dL), g = i - 1 | 0; + if(0 === i) break; + rem = f; + i = g; + } + } + return norm(q); + } + function powmod(b0, e, m){ + var d = bn_mod(b0, m), nb = numbits(e), c = nb - 1 | 0, a = [0, 1]; + if(c < 0) + var result$1 = a; + else{ + var b = d, result = a, i = 0; + for(;;){ + var + result$0 = 1 === bit(e, i) ? bn_mod(mul(result, b), m) : result, + f = bn_mod(mul(b, b), m), + g = i + 1 | 0; + if(c === i){var result$1 = result$0; break;} + b = f; + result = result$0; + i = g; + } + } + return result$1; + } + function of_bytes_le(s){ + var a = caml_ml_string_length(s) - 1 | 0; + if(a < 0) + var acc$0 = bzero; + else{ + var acc = bzero, i = a; + for(;;){ + var + c = of_int(caml_string_get(s, i)), + b = add(mul(acc, of_int(256)), c), + d = i - 1 | 0; + if(0 === i){var acc$0 = b; break;} + acc = b; + i = d; + } + } + return acc$0; + } + function to_bytes_le(a, n){ + var b = Stdlib_Bytes[1].call(null, n, 0), c = n - 1 | 0, e = norm(a); + if(c >= 0){ + var cur = e, i = 0; + for(;;){ + var + q = div_small(cur, 256), + qm = mul(q, of_int(256)), + d = sub(cur, qm), + r = is_zero(d) ? 0 : caml_check_bound(d, 0)[1]; + caml_bytes_set(b, i, Stdlib_Char[1].call(null, r)); + var f = i + 1 | 0; + if(c === i) break; + cur = q; + i = f; + } + } + return Stdlib_Bytes[44].call(null, b); + } + var twop255 = caml_make_vect(11, 0); + caml_check_bound(twop255, 9)[10] = 2097152; + var d = of_int(19), p = sub(norm(twop255), d); + function fmod(a){return bn_mod(a, p);} + function fadd(a, b){var a$0 = add(a, b); return bn_mod(a$0, p);} + function fsub(a, b){ + var a$0 = add(a, sub(p, bn_mod(b, p))); + return bn_mod(a$0, p); + } + function fmul(a, b){var a$0 = mul(a, b); return bn_mod(a$0, p);} + function fpow(a, e){return powmod(a, e, p);} + function finv(a){var e = sub(p, of_int(2)); return powmod(a, e, p);} + var + ell = + of_bytes_le + ("\xed\xd3\xf5\\\x1ac\x12X\xd6\x9c\xf7\xa2\xde\xf9\xde\x14\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x10"), + inv666 = finv(of_int(121666)), + f = of_int(121665), + a = mul(fsub(of_int(0), f), inv666), + dconst = bn_mod(a, p), + e = div_small(sub(p, of_int(1)), 4), + a$0 = of_int(2), + sqrtm1 = powmod(a$0, e, p), + g = of_int(1), + identity = [0, bzero, of_int(1), g, bzero]; + function padd(p1, p2){ + var + d = fsub(p2[2], p2[1]), + a = fmul(fsub(p1[2], p1[1]), d), + i = fadd(p2[2], p2[1]), + b = fmul(fadd(p1[2], p1[1]), i), + j = p2[4], + k = fmul(of_int(2), dconst), + c = fmul(fmul(p1[4], k), j), + l = p2[3], + m = of_int(2), + dd = fmul(fmul(p1[3], m), l), + e = fsub(b, a), + f = fsub(dd, c), + g = fadd(dd, c), + h = fadd(b, a), + n = fmul(e, h), + o = fmul(f, g), + p = fmul(g, h); + return [0, fmul(e, f), p, o, n]; + } + function scalar_mul(n, q){ + var a = numbits(n) - 1 | 0; + if(a < 0) + var r$2 = identity; + else{ + var r$0 = identity, i = a; + for(;;){ + var + r = padd(r$0, r$0), + r$1 = 1 === bit(n, i) ? padd(r, q) : r, + b = i - 1 | 0; + if(0 === i){var r$2 = r$1; break;} + r$0 = r$1; + i = b; + } + } + return r$2; + } + function pnegate(q){ + var a = q[4], b = fsub(of_int(0), a), c = q[3], d = q[2], e = q[1]; + return [0, fsub(of_int(0), e), d, c, b]; + } + function decompress(s){ + if(32 !== caml_ml_string_length(s)) return 0; + var + sign = (caml_string_get(s, 31) >>> 7 | 0) & 1, + s$0 = Stdlib_Bytes[5].call(null, s), + b = caml_string_get(s, 31) & 127; + caml_bytes_set(s$0, 31, Stdlib_Char[1].call(null, b)); + var y = of_bytes_le(Stdlib_Bytes[44].call(null, s$0)); + if(0 <= cmp(y, p)) return 0; + var + y2 = fmul(y, y), + u = fsub(y2, of_int(1)), + c = of_int(1), + v = fadd(fmul(dconst, y2), c), + v3 = fmul(fmul(v, v), v), + v7 = fmul(fmul(v3, v3), v), + exp = div_small(sub(p, of_int(5)), 8), + a = fmul(u, v7), + e = powmod(a, exp, p), + x0 = fmul(fmul(u, v3), e), + vx2 = fmul(v, fmul(x0, x0)), + x = + 0 === cmp(vx2, u) + ? [0, x0] + : 0 === cmp(vx2, fsub(of_int(0), u)) ? [0, fmul(x0, sqrtm1)] : 0; + if(! x) return 0; + var x$0 = x[1]; + if(is_zero(x$0) && 1 === sign) return 0; + var + x$1 = bit(x$0, 0) !== sign ? fsub(of_int(0), x$0) : x$0, + d = fmul(x$1, y); + return [0, [0, x$1, y, of_int(1), d]]; + } + function encode(q){ + var + zi = finv(q[3]), + x = fmul(q[1], zi), + y = fmul(q[2], zi), + a = to_bytes_le(y, 32), + b = Stdlib_Bytes[5].call(null, a), + c = bit(x, 0) << 7, + last = runtime.caml_bytes_get(b, 31) | c; + caml_bytes_set(b, 31, Stdlib_Char[1].call(null, last)); + return Stdlib_Bytes[44].call(null, b); + } + var + h = finv(of_int(5)), + by = fmul(of_int(4), h), + match = decompress(to_bytes_le(by, 32)); + if(match) + var pt = match[1], base_point = pt; + else + var + base_point = + Stdlib[2].call(null, "ed25519: base point decompress failed"); + function unhex(h){ + var + n = caml_ml_string_length(h) / 2 | 0, + b = runtime.caml_create_bytes(n), + a = n - 1 | 0; + if(a >= 0){ + var i = 0; + for(;;){ + var + c = Stdlib_String[16].call(null, h, 2 * i | 0, 2), + d = runtime.caml_int_of_string(Stdlib[28].call(null, "0x", c)); + caml_bytes_set(b, i, Stdlib_Char[1].call(null, d)); + var e = i + 1 | 0; + if(a === i) break; + i = e; + } + } + return Stdlib_Bytes[44].call(null, b); + } + function sha512_bytes(s){return unhex(Sx_sha2[11].call(null, s));} + function verify(pubkey, msg, sig){ + if + (32 === caml_ml_string_length(pubkey) + && 64 === caml_ml_string_length(sig)){ + var + rb = Stdlib_String[16].call(null, sig, 0, 32), + sb = Stdlib_String[16].call(null, sig, 32, 32), + s = of_bytes_le(sb); + if(0 <= cmp(s, ell)) return 0; + var match = decompress(pubkey); + if(! match) return 0; + var + a = match[1], + b = Stdlib[28].call(null, pubkey, msg), + h = sha512_bytes(Stdlib[28].call(null, rb, b)), + k = bn_mod(of_bytes_le(h), ell), + sb_pt = scalar_mul(s, base_point), + ka = scalar_mul(k, a), + chk = padd(sb_pt, pnegate(ka)); + try{var c = encode(chk) === rb ? 1 : 0; return c;}catch(exn){return 0;} + } + return 0; + } + var + Sx_ed25519 = + [0, + 26, + 67108864, + 67108863, + norm, + bzero, + of_int, + is_zero, + cmp, + add, + sub, + mul, + numbits, + bit, + bn_mod, + div_small, + powmod, + of_bytes_le, + to_bytes_le, + p, + fmod, + fadd, + fsub, + fmul, + fpow, + finv, + ell, + dconst, + sqrtm1, + identity, + padd, + scalar_mul, + pnegate, + decompress, + encode, + base_point, + unhex, + sha512_bytes, + verify]; + runtime.caml_register_global(12, Sx_ed25519, "Sx_ed25519"); + return; + } + (globalThis)); + +//# 3213 "../lib/.sx.objs/jsoo/default/sx.cma.js" //# shape: Sx_parser:[F(1)*,F(1),F(1),F(1)*,F(1),F(1)*,F(1)*,F(1)*,F(1),F(1),F(2),F(2),F(1),F(1),F(2),F(1),F(1),F(1),F(1),F(1),F(5),F(3),F(1),F(1),F(1)] (function (globalThis){ @@ -38927,7 +42108,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cst_Unterminated_dict = "Unterminated dict"; function read_dict(s){ advance(s); - var d = Sx_types[105].call(null, 0); + var d = Sx_types[109].call(null, 0); for(;;){ skip_whitespace_and_comments(s); if(at_end(s)) @@ -38937,7 +42118,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var key = read_value(s); if(typeof key !== "number" && key[0] - 3 >>> 0 < 3){ var key_str = key[1], v = read_value(s); - Sx_types[108].call(null, d, key_str, v); + Sx_types[112].call(null, d, key_str, v); continue; } throw caml_maybe_attach_backtrace @@ -39392,7 +42573,727 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 2644 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# 4166 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_rsa:[N,N,N,F(1),N,F(1),F(2),F(2),F(2),F(2),F(1),F(2),F(2),F(3),F(1),F(2),F(2),N,F(2),F(1),N,F(1),F(3)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_bytes_set = runtime.caml_bytes_set, + caml_check_bound = runtime.caml_check_bound, + caml_int_compare = runtime.caml_int_compare, + caml_make_vect = runtime.caml_make_vect, + caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace, + caml_ml_string_length = runtime.caml_ml_string_length, + caml_string_get = runtime.caml_string_get, + global_data = runtime.caml_get_global_data(), + Sx_sha2 = global_data.Sx_sha2, + Stdlib = global_data.Stdlib, + Stdlib_String = global_data.Stdlib__String, + Stdlib_Char = global_data.Stdlib__Char, + Stdlib_Bytes = global_data.Stdlib__Bytes, + Stdlib_Array = global_data.Stdlib__Array; + function norm(a){ + var n = a.length - 1; + for(;;){ + if(1 < n){ + var b = n - 1 | 0; + if(0 === caml_check_bound(a, b)[b + 1]){ + var n$0 = n - 1 | 0; + n = n$0; + continue; + } + } + return n === a.length - 1 ? a : Stdlib_Array[6].call(null, a, 0, n); + } + } + function is_zero(a){ + var + b = 1 === a.length - 1 ? 1 : 0, + c = b ? 0 === caml_check_bound(a, 0)[1] ? 1 : 0 : b; + return c; + } + function cmp(a, b){ + var + a$0 = norm(a), + b$0 = norm(b), + la = a$0.length - 1, + lb = b$0.length - 1; + if(la !== lb) return caml_int_compare(la, lb); + var i = la - 1 | 0, r = 0; + for(;;){ + if(0 === r && 0 <= i){ + var c = caml_check_bound(b$0, i)[i + 1]; + if(caml_check_bound(a$0, i)[i + 1] !== c) + var + d = caml_check_bound(b$0, i)[i + 1], + r$0 = caml_int_compare(caml_check_bound(a$0, i)[i + 1], d); + else + var r$0 = r; + var i$0 = i - 1 | 0; + i = i$0; + r = r$0; + continue; + } + return r; + } + } + function add(a, b){ + var + la = a.length - 1, + lb = b.length - 1, + n = Stdlib[17].call(null, la, lb) + 1 | 0, + r = caml_make_vect(n, 0), + c = n - 1 | 0; + if(c >= 0){ + var carry = 0, i = 0; + for(;;){ + var + d = i < lb ? caml_check_bound(b, i)[i + 1] : 0, + e = i < la ? caml_check_bound(a, i)[i + 1] : 0, + s = (carry + e | 0) + d | 0; + caml_check_bound(r, i)[i + 1] = s & 67108863; + var f = s >>> 26 | 0, g = i + 1 | 0; + if(c === i) break; + carry = f; + i = g; + } + } + return norm(r); + } + function sub(a, b){ + var + la = a.length - 1, + lb = b.length - 1, + r = caml_make_vect(la, 0), + c = la - 1 | 0; + if(c >= 0){ + var borrow = 0, i = 0; + for(;;){ + var + d = i < lb ? caml_check_bound(b, i)[i + 1] : 0, + s = (caml_check_bound(a, i)[i + 1] - borrow | 0) - d | 0, + borrow$0 = + 0 <= s + ? (caml_check_bound(r, i)[i + 1] = s, 0) + : (caml_check_bound(r, i)[i + 1] = s + 67108864 | 0, 1), + e = i + 1 | 0; + if(c === i) break; + borrow = borrow$0; + i = e; + } + } + return norm(r); + } + function mul(a, b){ + var + la = a.length - 1, + lb = b.length - 1, + r = caml_make_vect(la + lb | 0, 0), + c = la - 1 | 0; + if(c >= 0){ + var i = 0; + for(;;){ + var e = lb - 1 | 0, d = 0; + if(e < 0) + var carry$0 = d; + else{ + var carry = d, j = 0; + for(;;){ + var + o = caml_check_bound(b, j)[j + 1], + h = i + j | 0, + p = runtime.caml_mul(caml_check_bound(a, i)[i + 1], o), + s = (caml_check_bound(r, h)[h + 1] + p | 0) + carry | 0, + k = i + j | 0; + caml_check_bound(r, k)[k + 1] = s & 67108863; + var l = s >>> 26 | 0, q = j + 1 | 0; + if(e === j){var carry$0 = l; break;} + carry = l; + j = q; + } + } + var + f = i + lb | 0, + g = i + lb | 0, + m = caml_check_bound(r, f)[f + 1] + carry$0 | 0; + caml_check_bound(r, g)[g + 1] = m; + var n = i + 1 | 0; + if(c === i) break; + i = n; + } + } + return norm(r); + } + function numbits(a){ + var a$0 = norm(a), hi = a$0.length - 2 | 0; + if(0 === hi && 0 === caml_check_bound(a$0, 0)[1]) return 0; + var v = caml_check_bound(a$0, hi)[hi + 1], b = 0; + for(;;){ + if(0 >= v) return (hi * 26 | 0) + b | 0; + var b$0 = b + 1 | 0; + v = v >>> 1 | 0; + b = b$0; + } + } + function bit(a, i){ + var limb = i / 26 | 0, off = i % 26 | 0; + return a.length - 1 <= limb + ? 0 + : (caml_check_bound(a, limb)[limb + 1] >>> off | 0) & 1; + } + var bzero = [0, 0]; + function bn_mod(a, m){ + if(0 > cmp(a, m)) return norm(a); + var b = numbits(a) - 1 | 0; + if(b < 0) + var r$3 = bzero; + else{ + var r$0 = bzero, i = b; + for(;;){ + var + r = add(r$0, r$0), + r$1 = 1 === bit(a, i) ? add(r, [0, 1]) : r, + r$2 = 0 <= cmp(r$1, m) ? sub(r$1, m) : r$1, + c = i - 1 | 0; + if(0 === i){var r$3 = r$2; break;} + r$0 = r$2; + i = c; + } + } + return r$3; + } + function powmod(b0, e, m){ + var d = bn_mod(b0, m), c = numbits(e) - 1 | 0, a = [0, 1]; + if(c < 0) + var result$1 = a; + else{ + var b = d, result = a, i = 0; + for(;;){ + var + result$0 = 1 === bit(e, i) ? bn_mod(mul(result, b), m) : result, + f = bn_mod(mul(b, b), m), + g = i + 1 | 0; + if(c === i){var result$1 = result$0; break;} + b = f; + result = result$0; + i = g; + } + } + return result$1; + } + function of_bytes_be(s){ + var a = caml_ml_string_length(s) - 1 | 0; + if(a < 0) + var acc$0 = bzero; + else{ + var acc = bzero, i = 0; + for(;;){ + var + c = [0, caml_string_get(s, i)], + b = add(mul(acc, [0, 256]), c), + d = i + 1 | 0; + if(a === i){var acc$0 = b; break;} + acc = b; + i = d; + } + } + return acc$0; + } + function div_small(a, d){ + var la = a.length - 1, q = caml_make_vect(la, 0), b = la - 1 | 0; + if(b >= 0){ + var rem = 0, i = b; + for(;;){ + var + cur = rem << 26 | caml_check_bound(a, i)[i + 1], + c = runtime.caml_div(cur, d); + caml_check_bound(q, i)[i + 1] = c; + var e = runtime.caml_mod(cur, d), f = i - 1 | 0; + if(0 === i) break; + rem = e; + i = f; + } + } + return norm(q); + } + function to_bytes_be(a, n){ + var b = Stdlib_Bytes[1].call(null, n, 0), c = n - 1 | 0, e = norm(a); + if(c >= 0){ + var cur = e, i = c; + for(;;){ + var + q = div_small(cur, 256), + d = sub(cur, mul(q, [0, 256])), + r = is_zero(d) ? 0 : caml_check_bound(d, 0)[1]; + caml_bytes_set(b, i, Stdlib_Char[1].call(null, r)); + var f = i - 1 | 0; + if(0 === i) break; + cur = q; + i = f; + } + } + return Stdlib_Bytes[44].call(null, b); + } + var Der = [248, "Sx_rsa.Der", runtime.caml_fresh_oo_id(0)]; + function der_tlv(s, pos){ + if(caml_ml_string_length(s) < (pos + 2 | 0)) + throw caml_maybe_attach_backtrace([0, Der, "short"], 1); + var tag = caml_string_get(s, pos), l0 = caml_string_get(s, pos + 1 | 0); + if(128 <= l0){ + var nb = l0 & 127; + if(caml_ml_string_length(s) < ((pos + 2 | 0) + nb | 0)) + throw caml_maybe_attach_backtrace([0, Der, "short len"], 1); + var b = nb - 1 | 0, a = 0; + if(b < 0) + var v$0 = a; + else{ + var v = a, i = 0; + for(;;){ + var + c = v << 8 | caml_string_get(s, (pos + 2 | 0) + i | 0), + d = i + 1 | 0; + if(b === i){var v$0 = c; break;} + v = c; + i = d; + } + } + var hdr = 2 + nb | 0, hdr$0 = hdr, len = v$0; + } + else + var hdr$0 = 2, len = l0; + return [0, tag, pos + hdr$0 | 0, len, (pos + hdr$0 | 0) + len | 0]; + } + function parse_spki(der){ + var match = der_tlv(der, 0), c = match[2]; + if(48 !== match[1]) + throw caml_maybe_attach_backtrace + ([0, Der, "spki: outer not SEQUENCE"], 1); + var + after_alg = der_tlv(der, c)[4], + match$0 = der_tlv(der, after_alg), + bc = match$0[2], + bt = match$0[1]; + if(3 !== bt) + throw caml_maybe_attach_backtrace + ([0, Der, "spki: expected BIT STRING"], 1); + var + rpk_start = bc + 1 | 0, + match$1 = der_tlv(der, rpk_start), + sc = match$1[2], + st = match$1[1]; + if(48 !== st) + throw caml_maybe_attach_backtrace + ([0, Der, "spki: RSAPublicKey not SEQUENCE"], 1); + var + match$2 = der_tlv(der, sc), + after_n = match$2[4], + nl = match$2[3], + nc = match$2[2], + nt = match$2[1]; + if(2 !== nt) + throw caml_maybe_attach_backtrace + ([0, Der, "spki: modulus not INTEGER"], 1); + var + match$3 = der_tlv(der, after_n), + el = match$3[3], + ec = match$3[2], + et = match$3[1]; + if(2 !== et) + throw caml_maybe_attach_backtrace + ([0, Der, "spki: exponent not INTEGER"], 1); + var + n = of_bytes_be(Stdlib_String[16].call(null, der, nc, nl)), + e = of_bytes_be(Stdlib_String[16].call(null, der, ec, el)); + return [0, n, e]; + } + function unhex(h){ + var + n = caml_ml_string_length(h) / 2 | 0, + b = runtime.caml_create_bytes(n), + a = n - 1 | 0; + if(a >= 0){ + var i = 0; + for(;;){ + var + c = Stdlib_String[16].call(null, h, 2 * i | 0, 2), + d = runtime.caml_int_of_string(Stdlib[28].call(null, "0x", c)); + caml_bytes_set(b, i, Stdlib_Char[1].call(null, d)); + var e = i + 1 | 0; + if(a === i) break; + i = e; + } + } + return Stdlib_Bytes[44].call(null, b); + } + var + sha256_digestinfo_prefix = + "010\r\x06\t`\x86H\x01e\x03\x04\x02\x01\x05\0\x04 "; + function verify(spki, msg, sig){ + try{ + var + match = parse_spki(spki), + e = match[2], + n = match[1], + k = (numbits(n) + 7 | 0) / 8 | 0; + if(caml_ml_string_length(sig) !== k) + var a = 0; + else{ + var s = of_bytes_be(sig); + if(0 <= cmp(s, n)) + var a = 0; + else{ + var + m = powmod(s, e, n), + em = to_bytes_be(m, k), + h = unhex(Sx_sha2[3].call(null, msg)), + t = Stdlib[28].call(null, sha256_digestinfo_prefix, h), + tlen = caml_ml_string_length(t); + if(k < (tlen + 11 | 0)) + var a = 0; + else{ + var + b = 0 === caml_string_get(em, 0) ? 1 : 0, + c = b ? 1 === caml_string_get(em, 1) ? 1 : 0 : b, + ps_end = (k - tlen | 0) - 1 | 0, + d = ps_end - 1 | 0; + if(d < 2) + var ok$1 = c; + else{ + var ok = c, i = 2; + for(;;){ + var ok$0 = 255 !== caml_string_get(em, i) ? 0 : ok, f = i + 1 | 0; + if(d === i){var ok$1 = ok$0; break;} + ok = ok$0; + i = f; + } + } + var + ok$2 = 0 !== caml_string_get(em, ps_end) ? 0 : ok$1, + a = + Stdlib_String[16].call(null, em, ps_end + 1 | 0, tlen) !== t + ? 0 + : ok$2; + } + } + } + return a; + } + catch(exn){return 0;} + } + runtime.caml_register_global + (16, + [0, + 26, + 67108864, + 67108863, + norm, + bzero, + is_zero, + cmp, + add, + sub, + mul, + numbits, + bit, + bn_mod, + powmod, + of_bytes_be, + div_small, + to_bytes_be, + Der, + der_tlv, + parse_spki, + sha256_digestinfo_prefix, + unhex, + verify], + "Sx_rsa"); + return; + } + (globalThis)); + +//# 4607 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_sha3:[F(2)*,F(2)*,F(1)*,F(2)*,N,N,F(1),F(1)] +(function + (globalThis){ + "use strict"; + var + runtime = globalThis.jsoo_runtime, + caml_bytes_set = runtime.caml_bytes_set, + caml_check_bound = runtime.caml_check_bound, + caml_int64_and = runtime.caml_int64_and, + caml_int64_create_lo_mi_hi = runtime.caml_int64_create_lo_mi_hi, + caml_int64_shift_left = runtime.caml_int64_shift_left, + caml_int64_shift_right_unsigne = runtime.caml_int64_shift_right_unsigned, + caml_int64_xor = runtime.caml_int64_xor, + caml_make_vect = runtime.caml_make_vect, + caml_obj_dup = runtime.caml_obj_dup; + function caml_call1(f, a0){ + return (f.l >= 0 ? f.l : f.l = f.length) === 1 + ? f(a0) + : runtime.caml_call_gen(f, [a0]); + } + var + global_data = runtime.caml_get_global_data(), + Stdlib_Bytes = global_data.Stdlib__Bytes, + Stdlib_Buffer = global_data.Stdlib__Buffer, + Stdlib_Printf = global_data.Stdlib__Printf, + Stdlib_Int64 = global_data.Stdlib__Int64, + lnot64 = Stdlib_Int64[11]; + function rotl64(x, n){ + return 0 === n + ? x + : runtime.caml_int64_or + (caml_int64_shift_left(x, n), + caml_int64_shift_right_unsigne(x, 64 - n | 0)); + } + var + rho = + caml_obj_dup + ([0, + 0, + 1, + 62, + 28, + 27, + 36, + 44, + 6, + 55, + 20, + 3, + 10, + 43, + 25, + 39, + 41, + 45, + 15, + 21, + 8, + 18, + 2, + 61, + 56, + 14]), + rc = + caml_obj_dup + ([0, + caml_int64_create_lo_mi_hi(1, 0, 0), + caml_int64_create_lo_mi_hi(32898, 0, 0), + caml_int64_create_lo_mi_hi(32906, 0, 32768), + caml_int64_create_lo_mi_hi(32768, 128, 32768), + caml_int64_create_lo_mi_hi(32907, 0, 0), + caml_int64_create_lo_mi_hi(1, 128, 0), + caml_int64_create_lo_mi_hi(32897, 128, 32768), + caml_int64_create_lo_mi_hi(32777, 0, 32768), + caml_int64_create_lo_mi_hi(138, 0, 0), + caml_int64_create_lo_mi_hi(136, 0, 0), + caml_int64_create_lo_mi_hi(32777, 128, 0), + caml_int64_create_lo_mi_hi(10, 128, 0), + caml_int64_create_lo_mi_hi(32907, 128, 0), + caml_int64_create_lo_mi_hi(139, 0, 32768), + caml_int64_create_lo_mi_hi(32905, 0, 32768), + caml_int64_create_lo_mi_hi(32771, 0, 32768), + caml_int64_create_lo_mi_hi(32770, 0, 32768), + caml_int64_create_lo_mi_hi(128, 0, 32768), + caml_int64_create_lo_mi_hi(32778, 0, 0), + caml_int64_create_lo_mi_hi(10, 128, 32768), + caml_int64_create_lo_mi_hi(32897, 128, 32768), + caml_int64_create_lo_mi_hi(32896, 0, 32768), + caml_int64_create_lo_mi_hi(1, 128, 0), + caml_int64_create_lo_mi_hi(32776, 128, 32768)]), + a = caml_int64_create_lo_mi_hi(0, 0, 0), + b = caml_int64_create_lo_mi_hi(0, 0, 0), + c = caml_int64_create_lo_mi_hi(0, 0, 0), + d = caml_int64_create_lo_mi_hi(0, 0, 0), + e = caml_int64_create_lo_mi_hi(255, 0, 0); + function keccak_f(a$0){ + var + c$0 = caml_make_vect(5, a), + d = caml_make_vect(5, b), + b$0 = caml_make_vect(25, c), + round = 0; + for(;;){ + var x$3 = 0; + for(;;){ + var + p = x$3 + 20 | 0, + q = x$3 + 15 | 0, + J = caml_check_bound(a$0, p)[p + 1], + r = x$3 + 10 | 0, + S = caml_int64_xor(caml_check_bound(a$0, q)[q + 1], J), + s = x$3 + 5 | 0, + R = caml_int64_xor(caml_check_bound(a$0, r)[r + 1], S), + Q = caml_int64_xor(caml_check_bound(a$0, s)[s + 1], R), + P = caml_int64_xor(caml_check_bound(a$0, x$3)[x$3 + 1], Q); + caml_check_bound(c$0, x$3)[x$3 + 1] = P; + var K = x$3 + 1 | 0; + if(4 === x$3) break; + x$3 = K; + } + var x$2 = 0; + for(;;){ + var + n = (x$2 + 1 | 0) % 5 | 0, + o = (x$2 + 4 | 0) % 5 | 0, + H = rotl64(caml_check_bound(c$0, n)[n + 1], 1), + O = caml_int64_xor(caml_check_bound(c$0, o)[o + 1], H); + caml_check_bound(d, x$2)[x$2 + 1] = O; + var I = x$2 + 1 | 0; + if(4 === x$2) break; + x$2 = I; + } + var x$1 = 0; + for(;;){ + var y$1 = 0; + for(;;){ + var + l = x$1 + (5 * y$1 | 0) | 0, + F = caml_check_bound(d, x$1)[x$1 + 1], + m = x$1 + (5 * y$1 | 0) | 0, + N = caml_int64_xor(caml_check_bound(a$0, l)[l + 1], F); + caml_check_bound(a$0, m)[m + 1] = N; + var G = y$1 + 1 | 0; + if(4 === y$1) break; + y$1 = G; + } + var E = x$1 + 1 | 0; + if(4 === x$1) break; + x$1 = E; + } + var x$0 = 0; + for(;;){ + var y$0 = 0; + for(;;){ + var + ny = ((2 * x$0 | 0) + (3 * y$0 | 0) | 0) % 5 | 0, + i = x$0 + (5 * y$0 | 0) | 0, + j = x$0 + (5 * y$0 | 0) | 0, + B = caml_check_bound(rho, i)[i + 1], + k = y$0 + (5 * ny | 0) | 0, + C = rotl64(caml_check_bound(a$0, j)[j + 1], B); + caml_check_bound(b$0, k)[k + 1] = C; + var D = y$0 + 1 | 0; + if(4 === y$0) break; + y$0 = D; + } + var A = x$0 + 1 | 0; + if(4 === x$0) break; + x$0 = A; + } + var y = 0; + a: + for(;;){ + var x = 0; + for(;;){ + var + e = ((x + 2 | 0) % 5 | 0) + (5 * y | 0) | 0, + f = ((x + 1 | 0) % 5 | 0) + (5 * y | 0) | 0, + w = caml_check_bound(b$0, e)[e + 1], + g = x + (5 * y | 0) | 0, + M = caml_int64_and(lnot64(caml_check_bound(b$0, f)[f + 1]), w), + h = x + (5 * y | 0) | 0, + L = caml_int64_xor(caml_check_bound(b$0, g)[g + 1], M); + caml_check_bound(a$0, h)[h + 1] = L; + var z = x + 1 | 0; + if(4 === x){ + var v = y + 1 | 0; + if(4 !== y){y = v; break;} + var t = caml_check_bound(rc, round)[round + 1]; + a$0[1] = caml_int64_xor(caml_check_bound(a$0, 0)[1], t); + var u = round + 1 | 0; + if(23 === round) return 0; + round = u; + break a; + } + x = z; + } + } + } + } + var f = [0, [4, 6, [0, 2, 2], 0, 0], "%02x"]; + function sha3_256_hex(msg){ + var + len = runtime.caml_ml_string_length(msg), + q = 136 - (len % 136 | 0) | 0, + padded = Stdlib_Bytes[1].call(null, len + q | 0, 0); + Stdlib_Bytes[12].call(null, msg, 0, padded, 0, len); + if(1 === q) + caml_bytes_set(padded, len, 134); + else{ + caml_bytes_set(padded, len, 6); + caml_bytes_set(padded, (len + q | 0) - 1 | 0, 128); + } + var + total = runtime.caml_ml_bytes_length(padded), + a = caml_make_vect(25, d), + nblocks = total / 136 | 0, + b = nblocks - 1 | 0; + if(b >= 0){ + var blk = 0; + a: + for(;;){ + var base = blk * 136 | 0, j$0 = 0; + for(;;){ + var + lane$0 = j$0 / 8 | 0, + sh$0 = (j$0 % 8 | 0) * 8 | 0, + byte$0 = + runtime.caml_int64_of_int32 + (runtime.caml_bytes_get(padded, base + j$0 | 0)); + a[lane$0 + 1] = + caml_int64_xor + (caml_check_bound(a, lane$0)[lane$0 + 1], + caml_int64_shift_left(byte$0, sh$0)); + var i = j$0 + 1 | 0; + if(135 === j$0){ + keccak_f(a); + var h = blk + 1 | 0; + if(b === blk) break a; + blk = h; + break; + } + j$0 = i; + } + } + } + var out = Stdlib_Buffer[1].call(null, 64), j = 0; + for(;;){ + var + lane = j / 8 | 0, + sh = (j % 8 | 0) * 8 | 0, + byte = + runtime.caml_int64_to_int32 + (caml_int64_and + (caml_int64_shift_right_unsigne + (caml_check_bound(a, lane)[lane + 1], sh), + e)), + c = caml_call1(Stdlib_Printf[4].call(null, f), byte); + Stdlib_Buffer[16].call(null, out, c); + var g = j + 1 | 0; + if(31 === j) return Stdlib_Buffer[2].call(null, out); + j = g; + } + } + runtime.caml_register_global + (12, + [0, + caml_int64_xor, + caml_int64_and, + lnot64, + rotl64, + rho, + rc, + keccak_f, + sha3_256_hex], + "Sx_sha3"); + return; + } + (globalThis)); + +//# 4888 "../lib/.sx.objs/jsoo/default/sx.cma.js" //# shape: Sx_primitives:[N,N,N,N,N,N,N,F(1),F(1),F(1),N,F(1),F(2),F(1),F(1),N,F(1),F(1),F(1),F(1),F(1),F(1)*,F(1),N,F(2),F(2),F(1),F(1),F(1),F(2),F(2),F(2),F(2),F(1),F(1)] (function (globalThis){ @@ -39416,6 +43317,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= caml_obj_dup = runtime.caml_obj_dup, caml_round_float = runtime.caml_round_float, caml_string_get = runtime.caml_string_get, + caml_sys_file_exists = runtime.caml_sys_file_exists, + caml_sys_read_directory = runtime.caml_sys_read_directory, caml_wrap_exception = runtime.caml_wrap_exception; function caml_call1(f, a0){ return (f.l >= 0 ? f.l : f.l = f.length) === 1 @@ -39433,6 +43336,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= : runtime.caml_call_gen(f, [a0, a1, a2]); } var + dummy = 0, global_data = runtime.caml_get_global_data(), Stdlib = global_data.Stdlib, Stdlib_Float = global_data.Stdlib__Float, @@ -39443,15 +43347,22 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_String = global_data.Stdlib__String, Stdlib_Char = global_data.Stdlib__Char, Stdlib_List = global_data.Stdlib__List, + Sx_rsa = global_data.Sx_rsa, + Sx_ed25519 = global_data.Sx_ed25519, + Sx_cid = global_data.Sx_cid, + Sx_cbor = global_data.Sx_cbor, + Sx_sha3 = global_data.Sx_sha3, + Sx_sha2 = global_data.Sx_sha2, Stdlib_Queue = global_data.Stdlib__Queue, Unix = global_data.Unix, - Stdlib_Filename = global_data.Stdlib__Filename, Stdlib_Array = global_data.Stdlib__Array, Stdlib_Bytes = global_data.Stdlib__Bytes, + Stdlib_Filename = global_data.Stdlib__Filename, Sx_parser = global_data.Sx_parser, Re = global_data.Re, Re_Pcre = global_data.Re__Pcre, Stdlib_Uchar = global_data.Stdlib__Uchar, + Stdlib_Scanf = global_data.Stdlib__Scanf, primitives = Stdlib_Hashtbl[1].call(null, 0, 128), sx_call_fn = [0, @@ -39502,7 +43413,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var n$0 = v[1]; return n$0 | 0; } var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call(null, cst_Expected_number_got, a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -39514,6 +43425,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function all_ints(c){return b(a, c);} var cst = "", + cst$0 = ": ", cst_signal = "__signal", cst_dict = "dict", cst_value = "value"; @@ -39562,8 +43474,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = cst_dict; } var - c = Stdlib[28].call(null, ": ", a), - e = Sx_types[57].call(null, t), + c = Stdlib[28].call(null, cst$0, a), + e = Sx_types[61].call(null, t), f = Stdlib[28].call(null, e, c), g = Stdlib[28].call(null, cst_Expected_number_got, f); throw caml_maybe_attach_backtrace([0, Sx_types[9], g], 1); @@ -39571,7 +43483,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function as_string(v){ if(typeof v !== "number" && 3 === v[0]){var s = v[1]; return s;} var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call(null, "Expected string, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -39589,14 +43501,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var r = t[1]; return r[1]; } var - a = Sx_types[57].call(null, t), + a = Sx_types[61].call(null, t), b = Stdlib[28].call(null, "Expected list, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } } function as_bool(v){ if(typeof v !== "number" && 0 === v[0]){var b = v[1]; return b;} - return Sx_types[67].call(null, v); + return Sx_types[71].call(null, v); } var cst_false = "false", cst_true = "true"; function to_string(t$1){ @@ -39620,7 +43532,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 19: var s = t[1]; return s; } - return Sx_types[112].call(null, t); + return Sx_types[117].call(null, t); } } function rat_gcd(a, b){ @@ -39658,7 +43570,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var d = v[2], n$0 = v[1]; return [0, n$0, d]; } var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call(null, "expected integer or rational, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -39700,7 +43612,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return make_rat(caml_mul(an, bd), caml_mul(ad, bn)); } var - cst$0 = " ", + cst$1 = " ", cst_d_d = "%d/%d", cst_g = "%g", c = [0, [8, [0, 0, 3], 0, 0, 0], cst_g], @@ -39765,11 +43677,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 34: var d$0 = v[2], n$2 = v[1]; return caml_call2(Stdlib_Printf[4].call(null, e), n$2, d$0); - default: return Sx_types[112].call(null, v); + default: return Sx_types[117].call(null, v); } var a = Stdlib_List[20].call(null, sx_write_val, items), - b = Stdlib_String[7].call(null, cst$0, a), + b = Stdlib_String[7].call(null, cst$1, a), f = Stdlib[28].call(null, b, ")"); return Stdlib[28].call(null, "(", f); } @@ -39818,9 +43730,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[26].call (null, function(acc, a){return acc + as_number(a);}, 0., args)]; }); - var cst$3 = "-", g = [2, 0.], h = [1, 0], i = [1, 0]; + var cst$5 = "-", g = [2, 0.], h = [1, 0], i = [1, 0]; register - (cst$3, + (cst$5, function(args){ if(! args) return i; var a$0 = args[1]; @@ -39914,8 +43826,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[26].call (null, function(acc, a){return acc * as_number(a);}, 1., args)]; }); + var cst$6 = "/"; register - ("/", + (cst$6, function(args){ a: if(args){ @@ -40766,13 +44679,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace([0, Sx_types[9], "lcm: 2 args"], 1); }); var + cst_0 = "0", t = [0, [8, [0, 0, 3], 0, 0, 0], cst_g], u = [0, [4, 0, 0, 0, [12, 47, [4, 0, 0, 0, 0]]], cst_d_d]; register ("number->string", function(args){ function int_to_radix(n, r){ - if(0 === n) return "0"; + if(0 === n) return cst_0; var neg = n < 0, buf = Stdlib_Buffer[1].call(null, 16); function go(n){ var a = 0 < n ? 1 : 0; @@ -40785,7 +44699,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return Stdlib_Buffer[12].call(null, buf, b); } go(Stdlib[18].call(null, n)); - var a = Stdlib_Buffer[2].call(null, buf), b = neg ? cst$3 : cst; + var a = Stdlib_Buffer[2].call(null, buf), b = neg ? cst$5 : cst; return Stdlib[28].call(null, b, a); } if(args){ @@ -40990,6 +44904,481 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ([0, Sx_types[9], "denominator: expected rational or integer"], 1); }); + var + cst_s$0 = "%s", + y = [0, [8, [0, 0, 2], 0, 0, 0], "%E"], + z = [0, [8, [0, 0, 4], 0, 0, 0], "%G"], + A = [0, [4, 8, 0, 0, 0], "%X"], + B = [0, [2, 0, 0], cst_s$0], + C = [0, [4, 0, 0, 0, 0], "%d"], + D = [0, [8, [0, 0, 1], 0, 0, 0], "%e"], + E = [0, [8, [0, 0, 0], 0, 0, 0], "%f"], + F = [0, [8, [0, 0, 3], 0, 0, 0], cst_g], + G = [0, [4, 10, 0, 0, 0], "%o"], + H = [0, [2, 0, 0], cst_s$0], + I = [0, [4, 12, 0, 0, 0], "%u"], + J = [0, [4, 6, 0, 0, 0], "%x"]; + register + ("printf-spec", + function(args){ + if(args){ + var c = args[1]; + if(typeof c !== "number" && 3 === c[0]){ + var d = args[2]; + if(d && ! d[2]){ + var + arg = d[1], + spec_str = c[1], + n = caml_ml_string_length(spec_str), + g = n < 2, + h = g || 37 !== caml_string_get(spec_str, 0); + if(h){ + var + j = Stdlib[28].call(null, "printf-spec: invalid spec ", spec_str); + throw caml_maybe_attach_backtrace([0, Sx_types[9], j], 1); + } + var + type_char = caml_string_get(spec_str, n - 1 | 0), + to_int = + function(v){ + if(typeof v !== "number") + switch(v[0]){ + case 0: + return v[1] ? 1 : 0; + case 1: + var i = v[1]; return i; + case 2: + var f = v[1]; return f | 0; + case 3: + var s = v[1], s$0 = Stdlib_String[24].call(null, s); + try{var b = caml_int_of_string(s$0); return b;} + catch(exn){ + try{var a = caml_float_of_string(s$0) | 0; return a;} + catch(exn){return 0;} + } + } + return 0; + }, + to_float = + function(v){ + if(typeof v !== "number") + switch(v[0]){ + case 1: + var i = v[1]; return i; + case 2: + var f = v[1]; return f; + case 3: + var s = v[1], s$0 = Stdlib_String[24].call(null, s); + try{var a = caml_float_of_string(s$0); return a;} + catch(exn){return 0.;} + } + return 0.; + }; + try{ + var switcher = type_char - 69 | 0; + a: + if(51 >= switcher >>> 0){ + switch(switcher){ + case 0: + var + fmt = Stdlib_Scanf[13].call(null, spec_str, y), + o = to_float(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt), o)]; + break; + case 2: + var + fmt$0 = Stdlib_Scanf[13].call(null, spec_str, z), + p = to_float(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$0), p)]; + break; + case 19: + var + fmt$1 = Stdlib_Scanf[13].call(null, spec_str, A), + q = to_int(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$1), q)]; + break; + case 30: + var + n_val = to_int(arg), + body = Stdlib_String[16].call(null, spec_str, 0, n - 1 | 0), + r = Stdlib[28].call(null, body, "s"), + fmt$2 = Stdlib_Scanf[13].call(null, r, B), + t = Stdlib_Char[1].call(null, n_val & 255), + u = Stdlib_String[1].call(null, 1, t), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$2), u)]; + break; + case 32: + var + fmt$4 = Stdlib_Scanf[13].call(null, spec_str, D), + w = to_float(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$4), w)]; + break; + case 33: + var + fmt$5 = Stdlib_Scanf[13].call(null, spec_str, E), + x = to_float(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$5), x)]; + break; + case 34: + var + fmt$6 = Stdlib_Scanf[13].call(null, spec_str, F), + K = to_float(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$6), K)]; + break; + case 42: + var + fmt$7 = Stdlib_Scanf[13].call(null, spec_str, G), + L = to_int(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$7), L)]; + break; + case 46: + var fmt$8 = Stdlib_Scanf[13].call(null, spec_str, H); + b: + { + if(typeof arg === "number"){ + if(0 === arg){var b = cst; break b;} + } + else + switch(arg[0]){ + case 0: + if(arg[1]){var b = "1"; break b;} var b = cst_0; break b; + case 1: + var i = arg[1], b = Stdlib[33].call(null, i); break b; + case 2: + var f = arg[1], b = Sx_types[34].call(null, f); break b; + case 3: + var s = arg[1], b = s; break b; + } + var b = Sx_types[117].call(null, arg); + } + var a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$8), b)]; + break; + case 48: + var + fmt$9 = Stdlib_Scanf[13].call(null, spec_str, I), + M = to_int(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$9), M)]; + break; + case 51: + var + fmt$10 = Stdlib_Scanf[13].call(null, spec_str, J), + N = to_int(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$10), N)]; + break; + case 31: + case 36: + var + fmt$3 = Stdlib_Scanf[13].call(null, spec_str, C), + v = to_int(arg), + a = [3, caml_call1(Stdlib_Printf[4].call(null, fmt$3), v)]; + break; + default: break a; + } + return a; + } + var + l = Stdlib_String[1].call(null, 1, type_char), + m = + Stdlib[28].call(null, "printf-spec: unsupported conversion ", l); + throw caml_maybe_attach_backtrace([0, Sx_types[9], m], 1); + } + catch(e$0){ + var e = caml_wrap_exception(e$0); + if(e[1] === Sx_types[9]) throw caml_maybe_attach_backtrace(e, 0); + var + k = Stdlib[28].call(null, "printf-spec: invalid format ", spec_str); + throw caml_maybe_attach_backtrace([0, Sx_types[9], k], 1); + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "printf-spec: (spec arg)"], 1); + }); + register + ("scan-spec", + function(args){ + if(args){ + var b = args[1]; + if(typeof b !== "number" && 3 === b[0]){ + var c = args[2]; + if(c){ + var f = c[1]; + if(typeof f !== "number" && 3 === f[0] && ! c[2]){ + var + input = f[1], + spec_str = b[1], + n = caml_ml_string_length(spec_str), + r = n < 2, + s = r || 37 !== caml_string_get(spec_str, 0); + if(s){ + var + t = Stdlib[28].call(null, "scan-spec: invalid spec ", spec_str); + throw caml_maybe_attach_backtrace([0, Sx_types[9], t], 1); + } + var + type_char = caml_string_get(spec_str, n - 1 | 0), + len = caml_ml_string_length(input), + i = [0, 0]; + if(99 !== type_char) + for(;;){ + if(i[1] >= len) break; + if + (32 !== caml_string_get(input, i[1]) + && + 9 !== caml_string_get(input, i[1]) + && 10 !== caml_string_get(input, i[1])) + break; + i[1]++; + } + var start = i[1]; + try{ + var switcher = type_char - 88 | 0; + a: + if(32 >= switcher >>> 0){ + var cst_consumed = "consumed"; + switch(switcher){ + case 11: + if(i[1] < len){ + var + d$0 = Stdlib_Hashtbl[1].call(null, 0, 2), + x = [1, caml_string_get(input, i[1])]; + Stdlib_Hashtbl[11].call(null, d$0, cst_value, x); + Stdlib_Hashtbl[11].call + (null, d$0, cst_consumed, [1, i[1] + 1 | 0]); + var a = [7, d$0]; + } + else + var a = 0; + break; + case 23: + var j$14 = i[1]; + for(;;){ + if + (j$14 < len + && + 48 <= caml_string_get(input, j$14) + && 55 >= caml_string_get(input, j$14)){ + var j$15 = j$14 + 1 | 0; + j$14 = j$15; + continue; + } + if(start < j$14){ + var + C = + Stdlib_String[16].call(null, input, start, j$14 - start | 0), + n_val$1 = caml_int_of_string(Stdlib[28].call(null, "0o", C)), + d$3 = Stdlib_Hashtbl[1].call(null, 0, 2); + Stdlib_Hashtbl[11].call(null, d$3, cst_value, [1, n_val$1]); + Stdlib_Hashtbl[11].call(null, d$3, cst_consumed, [1, j$14]); + var a = [7, d$3]; + break; + } + var a = 0; + break; + } + break; + case 27: + var j$16 = i[1]; + for(;;){ + if + (j$16 < len + && + 32 !== caml_string_get(input, j$16) + && + 9 !== caml_string_get(input, j$16) + && 10 !== caml_string_get(input, j$16)){ + var j$17 = j$16 + 1 | 0; + j$16 = j$17; + continue; + } + if(start < j$16){ + var + d$4 = Stdlib_Hashtbl[1].call(null, 0, 2), + D = + [3, + Stdlib_String[16].call(null, input, start, j$16 - start | 0)]; + Stdlib_Hashtbl[11].call(null, d$4, cst_value, D); + Stdlib_Hashtbl[11].call(null, d$4, cst_consumed, [1, j$16]); + var a = [7, d$4]; + break; + } + var a = 0; + break; + } + break; + case 0: + case 32: + var j$1 = i[1]; + for(;;){ + b: + if(j$1 < len){ + c: + { + if + (48 <= caml_string_get(input, j$1) + && 57 >= caml_string_get(input, j$1)) + break c; + if + (97 <= caml_string_get(input, j$1) + && 102 >= caml_string_get(input, j$1)) + break c; + if + (65 > caml_string_get(input, j$1) + || 70 < caml_string_get(input, j$1)) + break b; + } + var j$2 = j$1 + 1 | 0; + j$1 = j$2; + continue; + } + if(start < j$1){ + var + w = + Stdlib_String[16].call(null, input, start, j$1 - start | 0), + n_val = caml_int_of_string(Stdlib[28].call(null, "0x", w)), + d = Stdlib_Hashtbl[1].call(null, 0, 2); + Stdlib_Hashtbl[11].call(null, d, cst_value, [1, n_val]); + Stdlib_Hashtbl[11].call(null, d, cst_consumed, [1, j$1]); + var a = [7, d]; + break; + } + var a = 0; + break; + } + break; + case 12: + case 17: + var j = i[1], g = j < len; + if(g) + var + y = 45 === caml_string_get(input, j), + h = y || 43 === caml_string_get(input, j); + else + var h = g; + if(h) var j$3 = j + 1 | 0, j$4 = j$3; else var j$4 = j; + for(;;){ + if(j$4 >= len) break; + if(48 > caml_string_get(input, j$4)) break; + if(57 < caml_string_get(input, j$4)) break; + var j$5 = j$4 + 1 | 0; + j$4 = j$5; + } + b: + if(start < j$4){ + c: + { + if + (48 <= caml_string_get(input, start) + && 57 >= caml_string_get(input, start)) + break c; + if + ((start + 1 | 0) >= j$4 + || + 45 !== caml_string_get(input, start) + && 43 !== caml_string_get(input, start)) + break b; + } + var + n_val$0 = + caml_int_of_string + (Stdlib_String[16].call(null, input, start, j$4 - start | 0)), + d$1 = Stdlib_Hashtbl[1].call(null, 0, 2); + Stdlib_Hashtbl[11].call(null, d$1, cst_value, [1, n_val$0]); + Stdlib_Hashtbl[11].call(null, d$1, cst_consumed, [1, j$4]); + var a = [7, d$1]; + break; + } + var a = 0; + break; + case 13: + case 14: + case 15: + var j$0 = i[1], k = j$0 < len; + if(k) + var + z = 45 === caml_string_get(input, j$0), + l = z || 43 === caml_string_get(input, j$0); + else + var l = k; + if(l) var j$6 = j$0 + 1 | 0, j$7 = j$6; else var j$7 = j$0; + for(;;){ + if(j$7 >= len) break; + b: + { + if + (48 <= caml_string_get(input, j$7) + && 57 >= caml_string_get(input, j$7)) + break b; + if(46 !== caml_string_get(input, j$7)) break; + } + var j$8 = j$7 + 1 | 0; + j$7 = j$8; + } + var m = j$7 < len; + if(m) + var + A = 101 === caml_string_get(input, j$7), + o = A || 69 === caml_string_get(input, j$7); + else + var o = m; + if(o){ + var j$9 = j$7 + 1 | 0, p = j$9 < len; + if(p) + var + B = 45 === caml_string_get(input, j$9), + q = B || 43 === caml_string_get(input, j$9); + else + var q = p; + if(q) + var j$10 = j$9 + 1 | 0, j$11 = j$10; + else + var j$11 = j$9; + for(;;){ + if(j$11 >= len){var j$13 = j$11; break;} + if(48 > caml_string_get(input, j$11)){var j$13 = j$11; break;} + if(57 < caml_string_get(input, j$11)){var j$13 = j$11; break;} + var j$12 = j$11 + 1 | 0; + j$11 = j$12; + } + } + else + var j$13 = j$7; + if(start < j$13){ + var + f_val = + caml_float_of_string + (Stdlib_String[16].call + (null, input, start, j$13 - start | 0)), + d$2 = Stdlib_Hashtbl[1].call(null, 0, 2); + Stdlib_Hashtbl[11].call(null, d$2, cst_value, [2, f_val]); + Stdlib_Hashtbl[11].call(null, d$2, cst_consumed, [1, j$13]); + var a = [7, d$2]; + } + else + var a = 0; + break; + default: break a; + } + return a; + } + var + u = Stdlib_String[1].call(null, 1, type_char), + v = Stdlib[28].call(null, "scan-spec: unsupported conversion ", u); + throw caml_maybe_attach_backtrace([0, Sx_types[9], v], 1); + } + catch(e$0){ + var e = caml_wrap_exception(e$0); + if(e[1] === Sx_types[9]) throw caml_maybe_attach_backtrace(e, 0); + return 0; + } + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "scan-spec: (spec input)"], 1); + }); register ("parse-int", function(args){ @@ -41294,8 +45683,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } throw caml_maybe_attach_backtrace([0, Sx_types[9], "!=: 2 args"], 1); }); + var cst$7 = "<"; register - ("<", + (cst$7, function(args){ a: if(args){ @@ -41318,8 +45708,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } throw caml_maybe_attach_backtrace([0, Sx_types[9], "<: 2 args"], 1); }); + var cst$8 = ">"; register - (">", + (cst$8, function(args){ a: if(args){ @@ -41395,7 +45786,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var a = args[1]; - return [0, 1 - Sx_types[67].call(null, a)]; + return [0, 1 - Sx_types[71].call(null, a)]; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "not: 1 arg"], 1); }); @@ -41404,23 +45795,23 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var a = args[1]; - return [0, Sx_types[58].call(null, a)]; + return [0, Sx_types[62].call(null, a)]; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "nil?: 1 arg"], 1); }); - var y = [0, 0], z = [0, 1]; + var K = [0, 0], L = [0, 1]; register ("number?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && a[0] - 1 >>> 0 < 2){if(args[2]) break a; return z;} - if(! args[2]) return y; + if(typeof a !== "number" && a[0] - 1 >>> 0 < 2){if(args[2]) break a; return L;} + if(! args[2]) return K; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "number?: 1 arg"], 1); }); - var A = [0, 0], B = [0, 1]; + var M = [0, 0], N = [0, 1]; register ("integer?", function(args){ @@ -41430,55 +45821,55 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number") switch(a[0]){ case 1: - if(args[2]) break a; return B; + if(args[2]) break a; return N; case 2: if(args[2]) break a; var f = a[1]; return [0, Stdlib_Float[18].call(null, f)]; } - if(! args[2]) return A; + if(! args[2]) return M; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "integer?: 1 arg"], 1); }); - var C = [0, 0], D = [0, 1]; + var O = [0, 0], P = [0, 1]; register ("float?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 2 === a[0]){if(args[2]) break a; return D;} - if(! args[2]) return C; + if(typeof a !== "number" && 2 === a[0]){if(args[2]) break a; return P;} + if(! args[2]) return O; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "float?: 1 arg"], 1); }); - var E = [0, 0], F = [0, 1]; + var Q = [0, 0], R = [0, 1]; register ("string?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 3 === a[0]){if(args[2]) break a; return F;} - if(! args[2]) return E; + if(typeof a !== "number" && 3 === a[0]){if(args[2]) break a; return R;} + if(! args[2]) return Q; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "string?: 1 arg"], 1); }); - var G = [0, 0], H = [0, 1]; + var S = [0, 0], T = [0, 1]; register ("boolean?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 0 === a[0]){if(args[2]) break a; return H;} - if(! args[2]) return G; + if(typeof a !== "number" && 0 === a[0]){if(args[2]) break a; return T;} + if(! args[2]) return S; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "boolean?: 1 arg"], 1); }); - var I = [0, 0], J = [0, 1]; + var U = [0, 0], V = [0, 1]; register ("list?", function(args){ @@ -41486,49 +45877,73 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(args){ var a = args[1]; if(typeof a !== "number") - switch(a[0]){case 6:case 21: if(args[2]) break a; return J;} - if(! args[2]) return I; + switch(a[0]){case 6:case 21: if(args[2]) break a; return V;} + if(! args[2]) return U; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "list?: 1 arg"], 1); }); - var K = [0, 0], L = [0, 1]; + var W = [0, 0], X = [0, 1], Y = [0, 1]; register ("dict?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 7 === a[0]){if(args[2]) break a; return L;} - if(! args[2]) return K; + if(typeof a !== "number") + switch(a[0]){ + case 7: + if(args[2]) break a; return X; + case 38: + if(args[2]) break a; return Y; + } + if(! args[2]) return W; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "dict?: 1 arg"], 1); }); - var M = [0, 0], N = [0, 1]; + var Z = [0, 0], _ = [0, 1]; + register + ("adt?", + function(args){ + a: + if(args){ + var a = args[1]; + if(typeof a !== "number" && 38 === a[0]){if(args[2]) break a; return _;} + if(! args[2]) return Z; + } + throw caml_maybe_attach_backtrace([0, Sx_types[9], "adt?: 1 arg"], 1); + }); + var $ = [0, 0], aa = [0, 1]; register ("symbol?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 4 === a[0]){if(args[2]) break a; return N;} - if(! args[2]) return M; + if(typeof a !== "number" && 4 === a[0]){if(args[2]) break a; return aa;} + if(! args[2]) return $; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "symbol?: 1 arg"], 1); }); - var O = [0, 0], P = [0, 1]; + var ab = [0, 0], ac = [0, 1]; register ("keyword?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 5 === a[0]){if(args[2]) break a; return P;} - if(! args[2]) return O; + if(typeof a !== "number" && 5 === a[0]){if(args[2]) break a; return ac;} + if(! args[2]) return ab; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "keyword?: 1 arg"], 1); }); - var Q = [0, 1], R = [0, 0], S = [0, 0], T = [0, 1], U = [0, 0], V = [0, 1]; + var + ad = [0, 1], + ae = [0, 0], + af = [0, 0], + ag = [0, 1], + ah = [0, 0], + ai = [0, 1]; register ("empty?", function(args){ @@ -41542,9 +45957,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= { switch(a[0]){ case 3: - if(a[1] !== cst){if(args[2]) break a; return S;} + if(a[1] !== cst){if(args[2]) break a; return af;} if(args[2]) break a; - return T; + return ag; case 6: if(a[1]){if(args[2]) break a; break c;} if(args[2]) break a; @@ -41559,13 +45974,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= break; default: break b; } - return V; + return ai; } - return U; + return ah; } - if(0 === a){if(args[2]) break a; return Q;} + if(0 === a){if(args[2]) break a; return ad;} } - if(! args[2]) return R; + if(! args[2]) return ae; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "empty?: 1 arg"], 1); }); @@ -41694,7 +46109,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "string-contains?: 2 string args"], 1); }); - var W = [0, 0]; + var aj = [0, 0]; register ("starts-with?", function(args){ @@ -41724,9 +46139,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } } } - return W; + return aj; }); - var X = [0, 0]; + var ak = [0, 0]; register ("ends-with?", function(args){ @@ -41757,9 +46172,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } } } - return X; + return ak; }); - var Y = [2, -1.]; + var al = [2, -1.]; register ("index-of", function(args){ @@ -41782,7 +46197,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= hl = caml_ml_string_length(haystack), i = 0; for(;;){ - if(hl < (i + nl | 0)) return Y; + if(hl < (i + nl | 0)) return al; if(Stdlib_String[16].call(null, haystack, i, nl) === needle) return [2, i]; var i$0 = i + 1 | 0; @@ -41996,7 +46411,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } throw caml_maybe_attach_backtrace([0, Sx_types[9], "join: 2 args"], 1); }); - var Z = [0, [8, [0, 0, 3], 0, 0, 0], cst_g]; + var am = [0, [8, [0, 0, 3], 0, 0, 0], cst_g]; register ("replace", function(args){ @@ -42012,7 +46427,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var n$0 = t[1]; return Stdlib_Float[18].call(null, n$0) ? Stdlib[33].call(null, n$0 | 0) - : caml_call1(Stdlib_Printf[4].call(null, Z), n$0); + : caml_call1(Stdlib_Printf[4].call(null, am), n$0); case 12: var v = caml_call1(sx_trampoline_fn[1], t); if(typeof v !== "number" && 3 === v[0]){var s$0 = v[1]; return s$0;} @@ -42145,7 +46560,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "parse-number: 1 string arg"], 1); }); - var _ = [0, 0, 0]; + var an = [0, 0, 0]; register ("regex-match", function(args){ @@ -42180,7 +46595,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var exn = caml_wrap_exception(exn$0); if(exn !== Stdlib[8]) throw caml_maybe_attach_backtrace(exn, 0); - groups[1] = Stdlib[37].call(null, groups[1], _); + groups[1] = Stdlib[37].call(null, groups[1], an); } var g = i + 1 | 0; if(d === i) break; @@ -42201,7 +46616,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "regex-match: pattern and input strings"], 1); }); - var $ = [0, 0]; + var ao = [0, 0]; register ("regex-match?", function(args){ @@ -42220,7 +46635,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= f = [0, Re[7].call(null, 0, 0, e, input)]; return f; } - catch(exn){return $;} + catch(exn){return ao;} } } } @@ -42386,11 +46801,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cst_args = " args", cst_len = "len", - aa = [0, [11, "len: ", [4, 0, 0, 0, [11, cst_args, 0]]], "len: %d args"], - ab = [1, 0], - ac = [1, 1], - ad = [1, 1], - ae = [1, 0]; + ap = [0, [11, "len: ", [4, 0, 0, 0, [11, cst_args, 0]]], "len: %d args"], + aq = [1, 0], + ar = [1, 1], + as = [1, 1], + at = [1, 0]; register (cst_len, function(args){ @@ -42402,7 +46817,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number"){ switch(a[0]){ case 0: - if(a[1]){if(args[2]) break a; return ac;} + if(a[1]){if(args[2]) break a; return ar;} if(args[2]) break a; break b; case 3: @@ -42431,7 +46846,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var e = a[1][1]; if(args[2]) break a; var l = e; break; case 1: case 2: - if(args[2]) break a; return ad; + if(args[2]) break a; return as; case 4: case 5: case 8: @@ -42440,18 +46855,18 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 11: case 12: case 15: - if(args[2]) break a; return ae; + if(args[2]) break a; return at; default: break a; } return [1, Stdlib_List[1].call(null, l)]; } if(0 !== a || args[2]) break a; } - return ab; + return aq; } var b = Stdlib_List[1].call(null, args), - c = caml_call1(Stdlib_Printf[4].call(null, aa), b); + c = caml_call1(Stdlib_Printf[4].call(null, ap), b); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); }); register("length", Stdlib_Hashtbl[6].call(null, primitives, cst_len)); @@ -42487,7 +46902,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } if(! args[2]){ var - c = Sx_types[112].call(null, x), + c = Sx_types[117].call(null, x), d = Stdlib[28].call(null, "first: expected list, got ", c); throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); } @@ -42495,7 +46910,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "first: 1 list arg"], 1); }); - var af = [6, 0], ag = [6, 0]; + var au = [6, 0], av = [6, 0]; register ("rest", function(args){ @@ -42518,11 +46933,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= break; default: break a; } - return ag; + return av; } return [6, xs]; } - if(0 === a && ! args[2]) return af; + if(0 === a && ! args[2]) return au; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "rest: 1 list arg"], 1); @@ -42550,7 +46965,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "last: 1 list arg"], 1); }); - var ah = [6, 0]; + var aw = [6, 0]; register ("init", function(args){ @@ -42566,7 +46981,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= default: break a; } var match = Stdlib_List[10].call(null, l); - if(! match) return ah; + if(! match) return aw; var rest = match[2]; return [6, Stdlib_List[10].call(null, rest)]; } @@ -42955,7 +47370,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "contains?: 2 args"], 1); }); - var ai = [6, 0], aj = [6, 0]; + var ax = [6, 0], ay = [6, 0]; register ("range", function(args){ @@ -42986,7 +47401,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= && 1 === stop_v[0] && typeof step_v !== "number" && 1 === step_v[0]){ var st$0 = step_v[1], e$0 = stop_v[1], s$0 = start_v[1]; - if(0 === st$0) return aj; + if(0 === st$0) return ay; var b = 0; if(0 < st$0){ var i = s$0, items = b; @@ -43012,7 +47427,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= s = as_number(start_v), e = as_number(stop_v), st = as_number(step_v); - if(st === 0.) return ai; + if(st === 0.) return ax; var a = 0; if(0. < st){ var i$1 = s, items$2 = a; @@ -43338,7 +47753,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[44].call (null, function(x){ - var key = Sx_types[112].call(null, x); + var key = Sx_types[117].call(null, x); return Stdlib_Hashtbl[9].call(null, seen, key) ? 0 : (Stdlib_Hashtbl[11].call(null, seen, key, 1), 1); @@ -43353,7 +47768,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register (cst_dict, function(args){ - var d = Sx_types[105].call(null, 0), param = args; + var d = Sx_types[109].call(null, 0), param = args; for(;;){ if(! param) return [7, d]; var a = param[1]; @@ -43363,7 +47778,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match = param[2]; if(match){ var rest = match[2], v = match[1], k = a[1]; - Sx_types[108].call(null, d, k, v); + Sx_types[112].call(null, d, k, v); param = rest; continue; } @@ -43372,7 +47787,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match$0 = param[2]; if(match$0){ var rest$0 = match$0[2], v$0 = match$0[1], k$0 = a[1]; - Sx_types[108].call(null, d, k$0, v$0); + Sx_types[112].call(null, d, k$0, v$0); param = rest$0; continue; } @@ -43414,11 +47829,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 3: if(b[2]) break a; var k = c[1]; - return Sx_types[106].call(null, d, k); + return Sx_types[110].call(null, d, k); case 5: if(b[2]) break a; var k$0 = c[1]; - return Sx_types[106].call(null, d, k$0); + return Sx_types[110].call(null, d, k$0); default: break b; } case 21: @@ -43458,13 +47873,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 3: if(! a[2]){ var k = b[1]; - return [0, Sx_types[107].call(null, d, k)]; + return [0, Sx_types[111].call(null, d, k)]; } break; case 5: if(! a[2]){ var k$0 = b[1]; - return [0, Sx_types[107].call(null, d, k$0)]; + return [0, Sx_types[111].call(null, d, k$0)]; } break; } @@ -43543,7 +47958,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register ("merge", function(args){ - var d = Sx_types[105].call(null, 0); + var d = Sx_types[109].call(null, 0); Stdlib_List[18].call (null, function(param){ @@ -43569,7 +47984,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[1]; if(typeof a !== "number" && 7 === a[0] && ! args[2]){ var d = a[1]; - return [6, Sx_types[110].call(null, d)]; + return [6, Sx_types[114].call(null, d)]; } } throw caml_maybe_attach_backtrace([0, Sx_types[9], "keys: 1 dict"], 1); @@ -43581,7 +47996,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[1]; if(typeof a !== "number" && 7 === a[0] && ! args[2]){ var d = a[1]; - return [6, Sx_types[111].call(null, d)]; + return [6, Sx_types[115].call(null, d)]; } } throw caml_maybe_attach_backtrace([0, Sx_types[9], "vals: 1 dict"], 1); @@ -43639,7 +48054,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var e = a[2]; if(e && ! e[2]){ var v = e[1], k = b[1]; - Sx_types[108].call(null, d, k, v); + Sx_types[112].call(null, d, k, v); return v; } break; @@ -43647,7 +48062,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var f = a[2]; if(f && ! f[2]){ var v$0 = f[1], k$0 = b[1]; - Sx_types[108].call(null, d, k$0, v$0); + Sx_types[112].call(null, d, k$0, v$0); return v$0; } break; @@ -43670,12 +48085,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof b !== "number") switch(b[0]){ case 3: - if(! a[2]){var k = b[1]; return Sx_types[106].call(null, d, k);} + if(! a[2]){var k = b[1]; return Sx_types[110].call(null, d, k);} break; case 5: if(! a[2]){ var k$0 = b[1]; - return Sx_types[106].call(null, d, k$0); + return Sx_types[110].call(null, d, k$0); } break; } @@ -43696,7 +48111,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var c = b[1]; if(typeof c !== "number" && 3 === c[0] && ! b[2]){ var k = c[1], d = a[1]; - return [0, Sx_types[107].call(null, d, k)]; + return [0, Sx_types[111].call(null, d, k)]; } } } @@ -43715,7 +48130,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var c = b[1]; if(typeof c !== "number" && 3 === c[0] && ! b[2]){ var k = c[1], d = a[1]; - Sx_types[109].call(null, d, k); + Sx_types[113].call(null, d, k); return 0; } } @@ -43729,7 +48144,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var a = args[1]; - return [3, Sx_types[57].call(null, a)]; + return [3, Sx_types[61].call(null, a)]; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "type-of: 1 arg"], 1); }); @@ -43738,21 +48153,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var a = args[1]; - return [3, Sx_types[112].call(null, a)]; + return [3, Sx_types[117].call(null, a)]; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "inspect: 1 arg"], 1); }); var cst_s = "~%s", - ak = [3, ""], - al = [0, [12, 126, [2, 0, 0]], cst_s], - am = [0, [12, 126, [2, 0, 0]], cst_s], - an = [0, [12, 58, [2, 0, [12, 32, [2, 0, 0]]]], ":%s %s"], - ao = + az = [3, ""], + aA = [0, [12, 126, [2, 0, 0]], cst_s], + aB = [0, [12, 126, [2, 0, 0]], cst_s], + aC = [0, [12, 58, [2, 0, [12, 32, [2, 0, 0]]]], ":%s %s"], + aD = [0, [11, "(make-spread {", [2, 0, [11, "})", 0]]], "(make-spread {%s})"], - ap = [0, [11, "#<", [2, 0, [12, 62, 0]]], "#<%s>"], - aq = [0, [11, "#"], - ar = [0, [11, "#(", [2, 0, [12, 41, 0]]], "#(%s)"]; + aE = [0, [11, "#<", [2, 0, [12, 62, 0]]], "#<%s>"], + aF = [0, [11, "#"], + aG = [0, [11, "#(", [2, 0, [12, 41, 0]]], "#(%s)"]; register ("serialize", function(args){ @@ -43762,15 +48177,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number") switch(a[0]){ case 8: - if(args[2]) break a; return ak; + if(args[2]) break a; return az; case 9: if(args[2]) break a; var c = a[1], b = c[1]; - return [3, caml_call1(Stdlib_Printf[4].call(null, al), b)]; + return [3, caml_call1(Stdlib_Printf[4].call(null, aA), b)]; case 10: if(args[2]) break a; var i = a[1], d = i[1]; - return [3, caml_call1(Stdlib_Printf[4].call(null, am), d)]; + return [3, caml_call1(Stdlib_Printf[4].call(null, aB), d)]; case 17: if(args[2]) break a; var s = a[1]; return [3, s]; case 18: @@ -43784,34 +48199,34 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var v = param[2], k = param[1], - a = Sx_types[112].call(null, v); - return caml_call2(Stdlib_Printf[4].call(null, an), k, a); + a = Sx_types[117].call(null, v); + return caml_call2(Stdlib_Printf[4].call(null, aC), k, a); }, pairs), - e = Stdlib_String[7].call(null, cst$0, dict_parts); - return [3, caml_call1(Stdlib_Printf[4].call(null, ao), e)]; + e = Stdlib_String[7].call(null, cst$1, dict_parts); + return [3, caml_call1(Stdlib_Printf[4].call(null, aD), e)]; case 19: if(args[2]) break a; var s$0 = a[1]; return [3, s$0]; case 27: if(args[2]) break a; var r = a[1], f = r[1][1]; - return [3, caml_call1(Stdlib_Printf[4].call(null, ap), f)]; + return [3, caml_call1(Stdlib_Printf[4].call(null, aE), f)]; case 28: if(args[2]) break a; var p = a[1], g = p[1]; - return [3, caml_call1(Stdlib_Printf[4].call(null, aq), g)]; + return [3, caml_call1(Stdlib_Printf[4].call(null, aF), g)]; case 29: if(args[2]) break a; var arr = a[1], h = Stdlib_Array[14].call - (null, function(v){return Sx_types[112].call(null, v);}, arr), + (null, function(v){return Sx_types[117].call(null, v);}, arr), elts = Stdlib_Array[10].call(null, h), - j = Stdlib_String[7].call(null, cst$0, elts); - return [3, caml_call1(Stdlib_Printf[4].call(null, ar), j)]; + j = Stdlib_String[7].call(null, cst$1, elts); + return [3, caml_call1(Stdlib_Printf[4].call(null, aG), j)]; } - if(! args[2]) return [3, Sx_types[112].call(null, a)]; + if(! args[2]) return [3, Sx_types[117].call(null, a)]; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "serialize: 1 arg"], 1); @@ -43864,6 +48279,27 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "host-error: 1 arg"], 1); }); + register + ("host-warn", + function(args){ + a: + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + if(args[2]) break a; + var msg = a[1]; + Stdlib[53].call(null, msg); + return 0; + } + if(! args[2]){ + var b = to_string(a); + Stdlib[53].call(null, b); + return 0; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "host-warn: 1 arg"], 1); + }); register ("try-catch", function(args){ @@ -43938,19 +48374,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register ("clear-stores", function(args){Stdlib_Hashtbl[2].call(null, store_registry); return 0;}); - var as = [0, 1], at = [0, 1], au = [6, 0], av = [6, 0]; + var aH = [0, 1], aI = [0, 1], aJ = [6, 0], aK = [6, 0]; register ("resource", function(args){ var state = Stdlib_Hashtbl[1].call(null, 0, 8); - Stdlib_Hashtbl[11].call(null, state, "loading", as); + Stdlib_Hashtbl[11].call(null, state, "loading", aH); Stdlib_Hashtbl[11].call(null, state, "data", 0); Stdlib_Hashtbl[11].call(null, state, cst_error, 0); var sig_d = Stdlib_Hashtbl[1].call(null, 0, 8); - Stdlib_Hashtbl[11].call(null, sig_d, cst_signal, at); + Stdlib_Hashtbl[11].call(null, sig_d, cst_signal, aI); Stdlib_Hashtbl[11].call(null, sig_d, cst_value, [7, state]); - Stdlib_Hashtbl[11].call(null, sig_d, "subscribers", au); - Stdlib_Hashtbl[11].call(null, sig_d, "deps", av); + Stdlib_Hashtbl[11].call(null, sig_d, "subscribers", aJ); + Stdlib_Hashtbl[11].call(null, sig_d, "deps", aK); return [7, sig_d]; }); register @@ -44059,15 +48495,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-spread: 1 dict"], 1); }); - var aw = [0, 0], ax = [0, 1]; + var aL = [0, 0], aM = [0, 1]; register ("spread?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 18 === a[0]){if(args[2]) break a; return ax;} - if(! args[2]) return aw; + if(typeof a !== "number" && 18 === a[0]){if(args[2]) break a; return aM;} + if(! args[2]) return aL; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "spread?: 1 arg"], 1); }); @@ -44077,12 +48513,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(args){ var a = args[1]; if(typeof a !== "number" && 18 === a[0] && ! args[2]){ - var pairs = a[1], d = Sx_types[105].call(null, 0); + var pairs = a[1], d = Sx_types[109].call(null, 0); Stdlib_List[18].call (null, function(param){ var v = param[2], k = param[1]; - return Sx_types[108].call(null, d, k, v); + return Sx_types[112].call(null, d, k, v); }, pairs); return [7, d]; @@ -44099,7 +48535,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = caml_call2(sx_call_fn[1], f, args); return caml_call1(sx_trampoline_fn[1], a); } - var ay = [6, 0]; + var aN = [6, 0]; register ("map", function(args){ @@ -44109,7 +48545,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(b){ var a = b[1], f = args[1]; if(typeof a === "number"){ - if(0 === a && ! b[2]) return ay; + if(0 === a && ! b[2]) return aN; } else{ switch(a[0]){ @@ -44129,7 +48565,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "map: expected (fn list)"], 1); }); - var az = [6, 0]; + var aO = [6, 0]; register ("map-indexed", function(args){ @@ -44139,7 +48575,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(b){ var a = b[1], f = args[1]; if(typeof a === "number"){ - if(0 === a && ! b[2]) return az; + if(0 === a && ! b[2]) return aO; } else{ switch(a[0]){ @@ -44161,7 +48597,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "map-indexed: expected (fn list)"], 1); }); - var aA = [6, 0]; + var aP = [6, 0]; register ("filter", function(args){ @@ -44171,7 +48607,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(b){ var a = b[1], f = args[1]; if(typeof a === "number"){ - if(0 === a && ! b[2]) return aA; + if(0 === a && ! b[2]) return aP; } else{ switch(a[0]){ @@ -44187,7 +48623,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, function(x){ var a = call_any(f, [0, x, 0]); - return Sx_types[67].call(null, a); + return Sx_types[71].call(null, a); }, items)]; } @@ -44197,8 +48633,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ([0, Sx_types[9], "filter: expected (fn list)"], 1); }); var - cst$2 = ", ", - aB = + cst$4 = ", ", + aQ = [0, [11, "for-each: expected (fn list), got (", @@ -44234,10 +48670,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var c = Stdlib_List[20].call - (null, function(v){return Sx_types[57].call(null, v);}, args), - types = Stdlib_String[7].call(null, cst$2, c), + (null, function(v){return Sx_types[61].call(null, v);}, args), + types = Stdlib_String[7].call(null, cst$4, c), d = Stdlib_List[1].call(null, args), - e = caml_call2(Stdlib_Printf[4].call(null, aB), types, d); + e = caml_call2(Stdlib_Printf[4].call(null, aQ), types, d); throw caml_maybe_attach_backtrace([0, Sx_types[9], e], 1); }); register @@ -44271,7 +48707,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "reduce: expected (fn init list)"], 1); }); - var aC = [0, 0], aD = [0, 0]; + var aR = [0, 0], aS = [0, 0]; register ("some", function(args){ @@ -44281,7 +48717,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(b){ var a = b[1], f = args[1]; if(typeof a === "number"){ - if(0 === a && ! b[2]) return aC; + if(0 === a && ! b[2]) return aR; } else{ switch(a[0]){ @@ -44294,9 +48730,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(! b[2]){ var param = items; for(;;){ - if(! param) return aD; + if(! param) return aS; var rest = param[2], x = param[1], result = call_any(f, [0, x, 0]); - if(Sx_types[67].call(null, result)) return result; + if(Sx_types[71].call(null, result)) return result; param = rest; } } @@ -44306,7 +48742,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "some: expected (fn list)"], 1); }); - var aE = [0, 1]; + var aT = [0, 1]; register ("every?", function(args){ @@ -44316,7 +48752,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(b){ var a = b[1], f = args[1]; if(typeof a === "number"){ - if(0 === a && ! b[2]) return aE; + if(0 === a && ! b[2]) return aT; } else{ switch(a[0]){ @@ -44332,7 +48768,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, function(x){ var a = call_any(f, [0, x, 0]); - return Sx_types[67].call(null, a); + return Sx_types[71].call(null, a); }, items)]; } @@ -44437,7 +48873,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "vm-stack-copy!: expected (src dst count)"], 1); }); - var aF = [0, 0]; + var aU = [0, 0]; register ("primitive?", function(args){ @@ -44448,37 +48884,37 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return [0, Stdlib_Hashtbl[9].call(null, primitives, name)]; } } - return aF; + return aU; }); - var aG = [0, 0], aH = [0, 1]; + var aV = [0, 0], aW = [0, 1]; register ("lambda?", function(args){ if(args){ var a = args[1]; - if(typeof a !== "number" && 8 === a[0] && ! args[2]) return aH; + if(typeof a !== "number" && 8 === a[0] && ! args[2]) return aW; } - return aG; + return aV; }); - var aI = [0, 0], aJ = [0, 1]; + var aX = [0, 0], aY = [0, 1]; register ("island?", function(args){ if(args){ var a = args[1]; - if(typeof a !== "number" && 10 === a[0] && ! args[2]) return aJ; + if(typeof a !== "number" && 10 === a[0] && ! args[2]) return aY; } - return aI; + return aX; }); - var aK = [0, 0]; + var aZ = [0, 0]; register ("record?", function(args){ if(args && ! args[2]){ var v = args[1]; - return Sx_types[96].call(null, v); + return Sx_types[100].call(null, v); } - return aK; + return aZ; }); register ("make-rtd", @@ -44489,7 +48925,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var b = a[2]; if(b && ! b[2]){ var ctor_params = b[1], fields = a[1], name = args[1]; - return Sx_types[91].call(null, name, fields, ctor_params); + return Sx_types[95].call(null, name, fields, ctor_params); } } } @@ -44504,7 +48940,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[2]; if(a && ! a[2]){ var arg_list = a[1], uid = args[1]; - return Sx_types[92].call(null, uid, arg_list); + return Sx_types[96].call(null, uid, arg_list); } } throw caml_maybe_attach_backtrace @@ -44517,7 +48953,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[2]; if(a && ! a[2]){ var idx = a[1], v = args[1]; - return Sx_types[93].call(null, v, idx); + return Sx_types[97].call(null, v, idx); } } throw caml_maybe_attach_backtrace @@ -44532,7 +48968,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var b = a[2]; if(b && ! b[2]){ var nv = b[1], idx = a[1], v = args[1]; - return Sx_types[94].call(null, v, idx, nv); + return Sx_types[98].call(null, v, idx, nv); } } } @@ -44540,7 +48976,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ([0, Sx_types[9], "record-set!: expected (record index value)"], 1); }); - var aL = [0, 0]; + var a0 = [0, 0]; register ("record-type?", function(args){ @@ -44548,17 +48984,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[2]; if(a && ! a[2]){ var uid = a[1], v = args[1]; - return Sx_types[95].call(null, v, uid); + return Sx_types[99].call(null, v, uid); } } - return aL; + return a0; }); register ("make-record-constructor", function(args){ if(args && ! args[2]){ var uid = args[1]; - return Sx_types[97].call(null, uid); + return Sx_types[101].call(null, uid); } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-record-constructor: expected (uid)"], 1); @@ -44568,7 +49004,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var uid = args[1]; - return Sx_types[98].call(null, uid); + return Sx_types[102].call(null, uid); } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-record-predicate: expected (uid)"], 1); @@ -44578,7 +49014,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var idx = args[1]; - return Sx_types[99].call(null, idx); + return Sx_types[103].call(null, idx); } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-record-accessor: expected (index)"], 1); @@ -44588,7 +49024,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var idx = args[1]; - return Sx_types[100].call(null, idx); + return Sx_types[104].call(null, idx); } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-record-mutator: expected (index)"], 1); @@ -44622,17 +49058,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-parameter: expected 1-2 args"], 1); }); - var aM = [0, 0], aN = [0, 0], aO = [0, 1]; + var a1 = [0, 0], a2 = [0, 0], a3 = [0, 1]; register ("parameter?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 28 === a[0]){if(args[2]) break a; return aO;} - if(! args[2]) return aN; + if(typeof a !== "number" && 28 === a[0]){if(args[2]) break a; return a3;} + if(! args[2]) return a2; } - return aM; + return a1; }); register ("parameter-uid", @@ -44689,15 +49125,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register ("vector", function(args){return [29, Stdlib_Array[11].call(null, args)];}); - var aP = [0, 0], aQ = [0, 1]; + var a4 = [0, 0], a5 = [0, 1]; register ("vector?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 29 === a[0]){if(args[2]) break a; return aQ;} - if(! args[2]) return aP; + if(typeof a !== "number" && 29 === a[0]){if(args[2]) break a; return a5;} + if(! args[2]) return a4; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "vector?: 1 arg"], 1); }); @@ -44713,7 +49149,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }); var cst_out_of_bounds_length = " out of bounds (length ", - aR = + a6 = [0, [11, "vector-ref: index ", @@ -44739,7 +49175,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= d = c || arr.length - 1 <= i; if(! d) return caml_check_bound(arr, i)[i + 1]; var - e = caml_call2(Stdlib_Printf[4].call(null, aR), i, arr.length - 1); + e = caml_call2(Stdlib_Printf[4].call(null, a6), i, arr.length - 1); throw caml_maybe_attach_backtrace([0, Sx_types[9], e], 1); } } @@ -44748,7 +49184,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ([0, Sx_types[9], "vector-ref: expected (vector index)"], 1); }); var - aS = + a7 = [0, [11, "vector-set!: index ", @@ -44777,7 +49213,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= e = d || arr.length - 1 <= i; if(e){ var - f = caml_call2(Stdlib_Printf[4].call(null, aS), i, arr.length - 1); + f = caml_call2(Stdlib_Printf[4].call(null, a7), i, arr.length - 1); throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); } caml_check_bound(arr, i)[i + 1] = v; @@ -44879,15 +49315,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register ("make-string-buffer", function(param){return [30, Stdlib_Buffer[1].call(null, 64)];}); - var aT = [0, 0], aU = [0, 1]; + var a8 = [0, 0], a9 = [0, 1]; register ("string-buffer?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 30 === a[0]){if(args[2]) break a; return aU;} - if(! args[2]) return aT; + if(typeof a !== "number" && 30 === a[0]){if(args[2]) break a; return a9;} + if(! args[2]) return a8; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "string-buffer?: expected 1 arg"], 1); @@ -44910,7 +49346,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } if(! a[2]){ var - c = Sx_types[57].call(null, v), + c = Sx_types[61].call(null, v), d = Stdlib[28].call (null, "string-buffer-append!: expected string, got ", c); @@ -44951,6 +49387,113 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "string-buffer-length: expected (buffer)"], 1); }); + register + ("make-buffer", + function(param){return [30, Stdlib_Buffer[1].call(null, 64)];}); + var a_ = [0, 0], a$ = [0, 1]; + register + ("buffer?", + function(args){ + a: + if(args){ + var a = args[1]; + if(typeof a !== "number" && 30 === a[0]){if(args[2]) break a; return a$;} + if(! args[2]) return a_; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "buffer?: expected 1 arg"], 1); + }); + register + ("buffer-append!", + function(args){ + a: + if(args){ + var b = args[1]; + if(typeof b !== "number" && 30 === b[0]){ + var a = args[2]; + if(a){ + var v = a[1], buf = b[1]; + if(typeof v === "number"){ + if(0 === v){ + if(a[2]) break a; + Stdlib_Buffer[16].call(null, buf, cst); + return 0; + } + } + else + switch(v[0]){ + case 0: + if(v[1]){ + if(a[2]) break a; + Stdlib_Buffer[16].call(null, buf, cst_true); + return 0; + } + if(a[2]) break a; + Stdlib_Buffer[16].call(null, buf, cst_false); + return 0; + case 1: + if(a[2]) break a; + var n = v[1], d = Stdlib[33].call(null, n); + Stdlib_Buffer[16].call(null, buf, d); + return 0; + case 2: + if(a[2]) break a; + var n$0 = v[1], e = Sx_types[34].call(null, n$0); + Stdlib_Buffer[16].call(null, buf, e); + return 0; + case 3: + if(a[2]) break a; + var s = v[1]; + Stdlib_Buffer[16].call(null, buf, s); + return 0; + case 4: + if(a[2]) break a; + var s$0 = v[1]; + Stdlib_Buffer[16].call(null, buf, s$0); + return 0; + case 32: + if(a[2]) break a; + var n$1 = v[1], f = Stdlib_Uchar[8].call(null, n$1); + Stdlib_Buffer[13].call(null, buf, f); + return 0; + } + if(! a[2]){ + var c = Sx_types[117].call(null, v); + Stdlib_Buffer[16].call(null, buf, c); + return 0; + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "buffer-append!: expected (buffer value)"], 1); + }); + register + ("buffer->string", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 30 === a[0] && ! args[2]){ + var buf = a[1]; + return [3, Stdlib_Buffer[2].call(null, buf)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "buffer->string: expected (buffer)"], 1); + }); + register + ("buffer-length", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 30 === a[0] && ! args[2]){ + var buf = a[1]; + return [1, Stdlib_Buffer[7].call(null, buf)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "buffer-length: expected (buffer)"], 1); + }); var cap_stack = [0, 0]; register ("with-capabilities", @@ -45043,7 +49586,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[20].call (null, function(s){return [3, s];}, cap_stack[1])]; }); - var aV = [0, 1], aW = [0, 1]; + var ba = [0, 1], bb = [0, 1]; register ("has-capability?", function(args){ @@ -45052,14 +49595,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number" && a[0] - 3 >>> 0 < 3 && ! args[2]){ var cap = a[1]; return 0 === cap_stack[1] - ? aW + ? bb : [0, Stdlib_List[37].call(null, cap, cap_stack[1])]; } } - return aV; + return ba; }); var - aX = + bc = [0, [11, "Capability '", @@ -45077,8 +49620,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(0 === cap_stack[1]) return 0; if(Stdlib_List[37].call(null, cap, cap_stack[1])) return 0; var - b = Stdlib_String[7].call(null, cst$2, cap_stack[1]), - c = caml_call2(Stdlib_Printf[4].call(null, aX), cap, b); + b = Stdlib_String[7].call(null, cst$4, cap_stack[1]), + c = caml_call2(Stdlib_Printf[4].call(null, bc), cap, b); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); } } @@ -45087,7 +49630,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register ("capability-restricted?", function(args){return [0, 0 !== cap_stack[1] ? 1 : 0];}); - var aY = [0, 0], aZ = [0, 1], a0 = [0, 1]; + var bd = [0, 0], be = [0, 1], bf = [0, 1]; register ("is-else-clause?", function(args){ @@ -45096,14 +49639,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number") switch(a[0]){ case 0: - if(a[1] && ! args[2]) return aZ; break; + if(a[1] && ! args[2]) return be; break; case 5: - if(a[1] === "else" && ! args[2]) return a0; break; + if(a[1] === "else" && ! args[2]) return bf; break; } } - return aY; + return bd; }); - var a1 = [0, 0]; + var bg = [0, 0]; register ("cond-scheme?", function(args){ @@ -45124,9 +49667,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= clauses)]; } } - return a1; + return bg; }); - var a2 = [0, 0], a3 = [0, 1], a4 = [0, 1]; + var bh = [0, 0], bi = [0, 1], bj = [0, 1]; register ("component?", function(args){ @@ -45135,12 +49678,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number") switch(a[0]){ case 9: - if(! args[2]) return a3; break; + if(! args[2]) return bi; break; case 10: - if(! args[2]) return a4; break; + if(! args[2]) return bj; break; } } - return a2; + return bh; }); register ("lambda-closure", @@ -45166,7 +49709,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }); - var a5 = [0, 0]; + var bk = [0, 0]; register ("component-has-children?", function(args){ @@ -45180,7 +49723,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(! args[2]){var i = a[1]; return [0, i[3]];} break; } } - return a5; + return bk; }); register ("component-name", @@ -45197,7 +49740,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }); - var a6 = [6, 0]; + var bl = [6, 0]; register ("component-params", function(args){ @@ -45223,7 +49766,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= break; } } - return a6; + return bl; }); register ("component-body", @@ -45245,7 +49788,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ if(args && ! args[2]){ var v = args[1]; - return Sx_types[76].call(null, v); + return Sx_types[80].call(null, v); } return 0; }); @@ -45256,20 +49799,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[2]; if(a && ! a[2]){ var f = a[1], v = args[1]; - return Sx_types[77].call(null, v, f); + return Sx_types[81].call(null, v, f); } } return 0; }); - var a7 = [0, 0], a8 = [0, 1]; + var bm = [0, 0], bn = [0, 1]; register ("macro?", function(args){ if(args){ var a = args[1]; - if(typeof a !== "number" && 11 === a[0] && ! args[2]) return a8; + if(typeof a !== "number" && 11 === a[0] && ! args[2]) return bn; } - return a7; + return bm; }); register ("for-each-indexed", @@ -45300,7 +49843,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "for-each-indexed: expected (fn list)"], 1); }); - var a9 = [6, 0]; + var bo = [6, 0]; register ("lambda-params", function(args){ @@ -45312,7 +49855,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[20].call(null, function(s){return [3, s];}, l[1])]; } } - return a9; + return bo; }); register ("lambda-body", @@ -45323,7 +49866,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }); - var a_ = [0, 1]; + var bp = [0, 1]; register ("empty-dict?", function(args){ @@ -45334,7 +49877,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return [0, 0 === Stdlib_Hashtbl[15].call(null, d) ? 1 : 0]; } } - return a_; + return bp; }); register ("make-raw-html", @@ -45345,7 +49888,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }); - var a$ = [3, cst]; + var bq = [3, cst]; register ("raw-html-content", function(args){ @@ -45353,7 +49896,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[1]; if(typeof a !== "number" && 17 === a[0] && ! args[2]){var s = a[1]; return [3, s];} } - return a$; + return bq; }); var cst_VM_undefined = "VM undefined: "; register @@ -45432,13 +49975,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register("set-cookie", function(args){return 0;}); var cst_depth = " depth=", - cst$1 = "->", + cst$3 = "->", cst_scope_push = "scope-push!", - ba = + br = [0, [11, "PUSH ", - [2, 0, [11, cst_depth, [4, 0, 0, 0, [11, cst$1, [4, 0, 0, 0, 0]]]]]], + [2, 0, [11, cst_depth, [4, 0, 0, 0, [11, cst$3, [4, 0, 0, 0, 0]]]]]], "PUSH %s depth=%d->%d"]; register (cst_scope_push, @@ -45463,7 +50006,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= d = Stdlib_List[1].call(null, stack) + 1 | 0, e = Stdlib_List[1].call(null, stack); scope_log[1] = - [0, caml_call3(Stdlib_Printf[4].call(null, ba), name, e, d), c]; + [0, caml_call3(Stdlib_Printf[4].call(null, br), name, e, d), c]; } Stdlib_Hashtbl[11].call(null, scope_stacks, name, [0, value, stack]); return 0; @@ -45474,11 +50017,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }); var cst_scope_pop = "scope-pop!", - bb = + bs = [0, [11, "POP ", - [2, 0, [11, cst_depth, [4, 0, 0, 0, [11, cst$1, [4, 0, 0, 0, 0]]]]]], + [2, 0, [11, cst_depth, [4, 0, 0, 0, [11, cst$3, [4, 0, 0, 0, 0]]]]]], "POP %s depth=%d->%d"]; register (cst_scope_pop, @@ -45502,7 +50045,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= d = Stdlib[17].call(null, 0, c), e = Stdlib_List[1].call(null, stack); scope_log[1] = - [0, caml_call3(Stdlib_Printf[4].call(null, bb), name, e, d), b]; + [0, caml_call3(Stdlib_Printf[4].call(null, bs), name, e, d), b]; } if(stack){ var rest = stack[2]; @@ -45515,7 +50058,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }); var cst_found = " found=", - bc = + bt = [0, [11, "PEEK ", @@ -45541,7 +50084,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= scope_log[1] = [0, caml_call3 - (Stdlib_Printf[4].call(null, bc), name, c, 0 !== stack ? 1 : 0), + (Stdlib_Printf[4].call(null, bt), name, c, 0 !== stack ? 1 : 0), b]; } if(! stack) return 0; @@ -45553,7 +50096,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }); var cst_context = "context", - bd = + bu = [0, [11, "CTX ", @@ -45579,7 +50122,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= scope_log[1] = [0, caml_call3 - (Stdlib_Printf[4].call(null, bd), name, b, 0 !== stack ? 1 : 0), + (Stdlib_Printf[4].call(null, bu), name, b, 0 !== stack ? 1 : 0), a]; } if(stack){var v = stack[1]; return v;} @@ -45591,8 +50134,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; }); var - be = [3, "bad args"], - bf = + bv = [3, "bad args"], + bw = [0, [11, "name=", @@ -45626,10 +50169,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= 0), b = Stdlib_String[7].call(null, ",", all_keys), c = Stdlib_List[1].call(null, stack); - return [3, caml_call3(Stdlib_Printf[4].call(null, bf), name, c, b)]; + return [3, caml_call3(Stdlib_Printf[4].call(null, bw), name, c, b)]; } } - return be; + return bv; }); register ("collect!", @@ -45668,7 +50211,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }); - var cst_collected = "collected", bg = [6, 0], bh = [6, 0]; + var cst_collected = "collected", bx = [6, 0], by = [6, 0]; register (cst_collected, function(args){ @@ -45688,15 +50231,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match = stack[1]; if(typeof match !== "number" && 6 === match[0]){var items = match[1]; return [6, items];} } - return bh; + return by; } } - return bg; + return bx; }); var cst_clear_collected = "clear-collected!", - bi = [6, 0], - bj = [0, [6, 0], 0]; + bz = [6, 0], + bA = [0, [6, 0], 0]; register (cst_clear_collected, function(args){ @@ -45714,10 +50257,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } if(stack){ var rest = stack[2]; - Stdlib_Hashtbl[11].call(null, scope_stacks, name, [0, bi, rest]); + Stdlib_Hashtbl[11].call(null, scope_stacks, name, [0, bz, rest]); } else - Stdlib_Hashtbl[11].call(null, scope_stacks, name, bj); + Stdlib_Hashtbl[11].call(null, scope_stacks, name, bA); return 0; } } @@ -45774,7 +50317,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; }); var - bk = + bB = [0, [11, "provide-set!: '", [2, 0, [11, "' is not a reactive provide", 0]]], "provide-set!: '%s' is not a reactive provide"]; @@ -45805,7 +50348,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; } } - var c = caml_call1(Stdlib_Printf[4].call(null, bk), name); + var c = caml_call1(Stdlib_Printf[4].call(null, bB), name); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); } } @@ -46057,7 +50600,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var fn = match[1]; return caml_call1(fn, args); }); - var cst_emitted = "emitted", bl = [6, 0], bm = [6, 0]; + var cst_emitted = "emitted", bC = [6, 0], bD = [6, 0]; register (cst_emitted, function(args){ @@ -46077,26 +50620,26 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match = stack[1]; if(typeof match !== "number" && 6 === match[0]){var items = match[1]; return [6, items];} } - return bm; + return bD; } } - return bl; + return bC; }); - var bn = [6, 0]; + var bE = [6, 0]; register ("scope-emitted", function(args){ var match = Stdlib_Hashtbl[7].call(null, primitives, cst_emitted); - if(! match) return bn; + if(! match) return bE; var fn = match[1]; return caml_call1(fn, args); }); - var bo = [6, 0]; + var bF = [6, 0]; register ("scope-collected", function(args){ var match = Stdlib_Hashtbl[7].call(null, primitives, cst_collected); - if(! match) return bo; + if(! match) return bF; var fn = match[1]; return caml_call1(fn, args); }); @@ -46138,10 +50681,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var regex_table = Stdlib_Hashtbl[1].call(null, 0, 32), cst_id = "id", - bp = [0, 1]; + bG = [0, 1]; function make_regex_value(id, source, flags){ var d = Stdlib_Hashtbl[1].call(null, 0, 4); - Stdlib_Hashtbl[11].call(null, d, "__regex__", bp); + Stdlib_Hashtbl[11].call(null, d, "__regex__", bG); Stdlib_Hashtbl[11].call(null, d, cst_id, [2, id]); Stdlib_Hashtbl[11].call(null, d, "source", [3, source]); Stdlib_Hashtbl[11].call(null, d, "flags", [3, flags]); @@ -46500,7 +51043,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 3: var s$0 = v[1]; return s$0; } - return Sx_types[112].call(null, v); + return Sx_types[117].call(null, v); }, global = Stdlib_String[15].call(null, flags, 103); if(global) return [3, Re[91].call(null, 0, 0, 0, re, call_fn, s)]; @@ -46599,15 +51142,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace([0, Sx_types[9], a], 1); } } + var cst_end = "end", cst_start = "start"; function match_dict(g, input){ var d = Stdlib_Hashtbl[1].call(null, 0, 4), e = [3, caml_call2(Re[1][1], g, 0)]; Stdlib_Hashtbl[11].call(null, d, cst_match, e); var f = [1, caml_call2(Re[1][5], g, 0)]; - Stdlib_Hashtbl[11].call(null, d, "start", f); + Stdlib_Hashtbl[11].call(null, d, cst_start, f); var h = [1, caml_call2(Re[1][7], g, 0)]; - Stdlib_Hashtbl[11].call(null, d, "end", h); + Stdlib_Hashtbl[11].call(null, d, cst_end, h); Stdlib_Hashtbl[11].call(null, d, cst_input, [3, input]); var count = caml_call1(Re[1][12], g), b = count - 1 | 0, a = 0; if(b < 1) @@ -46648,15 +51192,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-regexp: (pattern [flags])"], 1); }); - var bq = [0, 0], br = [0, 1]; + var bH = [0, 0], bI = [0, 1]; register ("regexp?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 36 === a[0]){if(args[2]) break a; return br;} - if(! args[2]) return bq; + if(typeof a !== "number" && 36 === a[0]){if(args[2]) break a; return bI;} + if(! args[2]) return bH; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "regexp?: 1 arg"], 1); }); @@ -47031,17 +51575,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register ("make-hash-table", function(param){return [31, Stdlib_Hashtbl[1].call(null, 0, 16)];}); - var bs = [0, 0], bt = [0, 0], bu = [0, 1]; + var bJ = [0, 0], bK = [0, 0], bL = [0, 1]; register ("hash-table?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 31 === a[0]){if(args[2]) break a; return bu;} - if(! args[2]) return bt; + if(typeof a !== "number" && 31 === a[0]){if(args[2]) break a; return bL;} + if(! args[2]) return bK; } - return bs; + return bJ; }); register ("hash-table-set!", @@ -47245,9 +51789,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "hash-table-merge!: expected (dst src)"], 1); }); - var bv = [6, 0]; + var bM = [6, 0]; function seq_to_list(v){ - if(typeof v === "number"){if(0 === v) return bv;} + if(typeof v === "number"){if(0 === v) return bM;} else switch(v[0]){ case 3: @@ -47330,15 +51874,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cst_out_of_bounds = " out of bounds", cst_sequence_ref_index = "sequence-ref: index ", cst_sequence_ref_index_d_out_o = "sequence-ref: index %d out of bounds", - bw = + bN = [0, [11, cst_sequence_ref_index, [4, 0, 0, 0, [11, cst_out_of_bounds, 0]]], cst_sequence_ref_index_d_out_o], - bx = + bO = [0, [11, cst_sequence_ref_index, [4, 0, 0, 0, [11, cst_out_of_bounds, 0]]], cst_sequence_ref_index_d_out_o], - by = + bP = [0, [11, cst_sequence_ref_index, [4, 0, 0, 0, [11, cst_out_of_bounds, 0]]], cst_sequence_ref_index_d_out_o]; @@ -47361,7 +51905,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var g = caml_string_get(s, i$0); return [3, Stdlib_String[1].call(null, 1, g)]; } - var f = caml_call1(Stdlib_Printf[4].call(null, bx), i$0); + var f = caml_call1(Stdlib_Printf[4].call(null, bO), i$0); throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); case 2: if(a[2]) break a; @@ -47370,7 +51914,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var j = caml_string_get(s, i$1); return [3, Stdlib_String[1].call(null, 1, j)]; } - var h = caml_call1(Stdlib_Printf[4].call(null, by), i$1); + var h = caml_call1(Stdlib_Printf[4].call(null, bP), i$1); throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); } } @@ -47390,7 +51934,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var xs = lst[1]; try{var e = Stdlib_List[8].call(null, xs, i); return e;} catch(exn){ - var d = caml_call1(Stdlib_Printf[4].call(null, bw), i); + var d = caml_call1(Stdlib_Printf[4].call(null, bN), i); throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); } } @@ -47585,13 +52129,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "intern: expected 1 string"], 1); }); - var bz = [0, 1]; + var bQ = [0, 1]; register ("symbol-interned?", function(args){ if(args){ var a = args[1]; - if(typeof a !== "number" && 4 === a[0] && ! args[2]) return bz; + if(typeof a !== "number" && 4 === a[0] && ! args[2]) return bQ; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "symbol-interned?: expected 1 symbol"], 1); @@ -47610,15 +52154,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-char: expected integer codepoint"], 1); }); - var bA = [0, 0], bB = [0, 1]; + var bR = [0, 0], bS = [0, 1]; register ("char?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 32 === a[0]){if(args[2]) break a; return bB;} - if(! args[2]) return bA; + if(typeof a !== "number" && 32 === a[0]){if(args[2]) break a; return bS;} + if(! args[2]) return bR; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "char?: expected 1 argument"], 1); @@ -47974,7 +52518,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return Stdlib_Buffer[12].call(null, buf, c); } var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call(null, "list->string: expected char, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); }, @@ -47986,15 +52530,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ([0, Sx_types[9], "list->string: expected list of chars"], 1); }); register("eof-object", function(args){return 1;}); - var bC = [0, 1], bD = [0, 0]; + var bT = [0, 1], bU = [0, 0]; register ("eof-object?", function(args){ a: if(args){ var a = args[1]; - if(typeof a === "number" && a){if(args[2]) break a; return bC;} - if(! args[2]) return bD; + if(typeof a === "number" && a){if(args[2]) break a; return bT;} + if(! args[2]) return bU; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "eof-object?: expected 1 argument"], 1); @@ -48034,41 +52578,41 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "get-output-string: expected output port"], 1); }); - var bE = [0, 0], bF = [0, 1]; + var bV = [0, 0], bW = [0, 1]; register ("port?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 33 === a[0]){if(args[2]) break a; return bF;} - if(! args[2]) return bE; + if(typeof a !== "number" && 33 === a[0]){if(args[2]) break a; return bW;} + if(! args[2]) return bV; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "port?: expected 1 argument"], 1); }); - var bG = [0, 0], bH = [0, 1]; + var bX = [0, 0], bY = [0, 1]; register ("input-port?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 33 === a[0] && 0 === a[1][2][0]){if(args[2]) break a; return bH;} - if(! args[2]) return bG; + if(typeof a !== "number" && 33 === a[0] && 0 === a[1][2][0]){if(args[2]) break a; return bY;} + if(! args[2]) return bX; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "input-port?: expected 1 argument"], 1); }); - var bI = [0, 0], bJ = [0, 1]; + var bZ = [0, 0], b0 = [0, 1]; register ("output-port?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 33 === a[0] && 0 !== a[1][2][0]){if(args[2]) break a; return bJ;} - if(! args[2]) return bI; + if(typeof a !== "number" && 33 === a[0] && 0 !== a[1][2][0]){if(args[2]) break a; return b0;} + if(! args[2]) return bZ; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "output-port?: expected 1 argument"], 1); @@ -48215,7 +52759,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= "write-string: expected string and output port"], 1); }); - var bK = [0, 0]; + var b1 = [0, 0]; register ("char-ready?", function(args){ @@ -48232,7 +52776,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return [0, pos[1] < caml_ml_string_length(src) ? 1 : 0]; } } - if(! args[2]) return bK; + if(! args[2]) return b1; } } throw caml_maybe_attach_backtrace @@ -48356,10 +52900,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cst_f = "%.*f", cst_6f = "%.6f", - bL = [0, [8, [0, 0, 0], 0, [0, 6], 0], cst_6f], - bM = [0, [8, [0, 0, 0], 0, 1, 0], cst_f], - bN = [0, [8, [0, 0, 0], 0, [0, 6], 0], cst_6f], - bO = [0, [8, [0, 0, 0], 0, 1, 0], cst_f]; + b2 = [0, [8, [0, 0, 0], 0, [0, 6], 0], cst_6f], + b3 = [0, [8, [0, 0, 0], 0, 1, 0], cst_f], + b4 = [0, [8, [0, 0, 0], 0, [0, 6], 0], cst_6f], + b5 = [0, [8, [0, 0, 0], 0, 1, 0], cst_f]; register ("format-decimal", function(args){ @@ -48374,10 +52918,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof d !== "number" && 1 === d[0]){ if(b[2]) break; var prec = d[1]; - return [3, caml_call2(Stdlib_Printf[4].call(null, bM), prec, n)]; + return [3, caml_call2(Stdlib_Printf[4].call(null, b3), prec, n)]; } if(! b[2]) - return [3, caml_call1(Stdlib_Printf[4].call(null, bL), n)]; + return [3, caml_call1(Stdlib_Printf[4].call(null, b2), n)]; } break; case 2: @@ -48388,10 +52932,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(c[2]) break; var prec$0 = e[1]; return [3, - caml_call2(Stdlib_Printf[4].call(null, bO), prec$0, n$0)]; + caml_call2(Stdlib_Printf[4].call(null, b5), prec$0, n$0)]; } if(! c[2]) - return [3, caml_call1(Stdlib_Printf[4].call(null, bN), n$0)]; + return [3, caml_call1(Stdlib_Printf[4].call(null, b4), n$0)]; } break; } @@ -48403,7 +52947,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= register("current-input-port", function(param){return 0;}); register("current-output-port", function(param){return 0;}); register("current-error-port", function(param){return 0;}); - function set_key(v){return Sx_types[112].call(null, v);} + function set_key(v){return Sx_types[117].call(null, v);} register ("make-set", function(args){ @@ -48445,15 +52989,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return [35, ht]; }); - var bP = [0, 0], bQ = [0, 1]; + var b6 = [0, 0], b7 = [0, 1]; register ("set?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 35 === a[0]){if(args[2]) break a; return bQ;} - if(! args[2]) return bP; + if(typeof a !== "number" && 35 === a[0]){if(args[2]) break a; return b7;} + if(! args[2]) return b6; } throw caml_maybe_attach_backtrace([0, Sx_types[9], "set?: 1 arg"], 1); }); @@ -48732,15 +53276,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "make-bytevector: expected n [fill]"], 1); }); - var bR = [0, 0], bS = [0, 1]; + var b8 = [0, 0], b9 = [0, 1]; register ("bytevector?", function(args){ a: if(args){ var a = args[1]; - if(typeof a !== "number" && 37 === a[0]){if(args[2]) break a; return bS;} - if(! args[2]) return bR; + if(typeof a !== "number" && 37 === a[0]){if(args[2]) break a; return b9;} + if(! args[2]) return b8; } throw caml_maybe_attach_backtrace ([0, Sx_types[9], "bytevector?: 1 arg"], 1); @@ -48757,7 +53301,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }); var cst_out_of_range = " out of range", - bT = + b_ = [0, [11, "bytevector-u8-ref: index ", @@ -48779,7 +53323,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= e = i < 0, f = e || caml_ml_bytes_length(b) <= i; if(! f) return [1, caml_bytes_get(b, i)]; - var g = caml_call1(Stdlib_Printf[4].call(null, bT), i); + var g = caml_call1(Stdlib_Printf[4].call(null, b_), i); throw caml_maybe_attach_backtrace([0, Sx_types[9], g], 1); } } @@ -48790,7 +53334,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= 1); }); var - bU = + b$ = [0, [11, "bytevector-u8-set!: index ", @@ -48817,7 +53361,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= g = i < 0, h = g || caml_ml_bytes_length(b) <= i; if(h){ - var j = caml_call1(Stdlib_Printf[4].call(null, bU), i); + var j = caml_call1(Stdlib_Printf[4].call(null, b$), i); throw caml_maybe_attach_backtrace([0, Sx_types[9], j], 1); } var k = byte < 0, l = k || 255 < byte; @@ -49026,7 +53570,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ([0, Sx_types[9], "bytevector->list: expected bytevector"], 1); }); var - bV = + ca = [0, [11, "list->bytevector: byte ", @@ -49054,11 +53598,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof v !== "number" && 1 === v[0]){ var n = v[1]; if(0 <= n && 255 >= n) return Stdlib_Char[1].call(null, n); - var c = caml_call1(Stdlib_Printf[4].call(null, bV), n); + var c = caml_call1(Stdlib_Printf[4].call(null, ca), n); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); } var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call (null, "list->bytevector: expected integer, got ", a); @@ -49103,6 +53647,44 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "file-read: (path)"], 1); }); + var cst$2 = "."; + register + ("file-list-dir", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var path = a[1]; + try{ + var + names = caml_sys_read_directory(path), + c = Stdlib_Array[10].call(null, names), + names$1 = + Stdlib_List[44].call + (null, + function(n){ + var a = n !== cst$2 ? 1 : 0, b = a ? n !== ".." ? 1 : 0 : a; + return b; + }, + c), + names$0 = + Stdlib_List[59].call(null, runtime.caml_string_compare, names$1), + d = + [6, + Stdlib_List[20].call(null, function(n){return [3, n];}, names$0)]; + return d; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(exn, 0); + var msg = exn[2], b = Stdlib[28].call(null, "file-list-dir: ", msg); + throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-list-dir: (path)"], 1); + }); register ("file-write", function(args){ @@ -49134,7 +53716,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "file-write: (path content)"], 1); }); - var bW = [0, 2, [0, 3, [0, 1, [0, 7, 0]]]]; + var cb = [0, 2, [0, 3, [0, 1, [0, 7, 0]]]]; register ("file-append", function(args){ @@ -49147,7 +53729,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof c !== "number" && 3 === c[0] && ! b[2]){ var content = c[1], path = a[1]; try{ - var oc = Stdlib[62].call(null, bW, 420, path); + var oc = Stdlib[62].call(null, cb, 420, path); Stdlib[66].call(null, oc, content); Stdlib[76].call(null, oc); return 0; @@ -49173,7 +53755,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = args[1]; if(typeof a !== "number" && 3 === a[0] && ! args[2]){ var path = a[1]; - return [0, runtime.caml_sys_file_exists(path)]; + return [0, caml_sys_file_exists(path)]; } } throw caml_maybe_attach_backtrace @@ -49189,10 +53771,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= pat = a[1], dir = Stdlib_Filename[14].call(null, pat), base_pat = Stdlib_Filename[13].call(null, pat), - cst$0 = ".", - cst = cst$0, + cst = cst$2, dir$0 = - dir === cst$0 + dir === cst$2 ? 1 < caml_ml_string_length(pat) ? 46 === caml_string_get(pat, 0) ? dir : cst @@ -49200,7 +53781,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= : dir; try{ var - entries = runtime.caml_sys_read_directory(dir$0), + entries = caml_sys_read_directory(dir$0), c = Stdlib_Array[18].call (null, @@ -49309,7 +53890,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(! go(0, 0)) return acc; var full = - dir$0 === cst$0 + dir$0 === cst$2 ? entry : Stdlib_Filename[4].call(null, dir$0, entry); return [0, full, acc]; @@ -49330,6 +53911,1472 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "file-glob: (pattern)"], 1); }); + function stat_or(param){ + if(typeof param !== "number" && 3 === param[0]){ + var path = param[1]; + try{var a = [0, Unix[42].call(null, path)]; return a;} + catch(exn){return 0;} + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file: path must be a string"], 1); + } + var cc = [1, 0]; + register + ("file-size", + function(args){ + if(args && ! args[2]){ + var v = args[1], match = stat_or(v); + if(! match) return cc; + var s = match[1]; + return [1, s[9]]; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-size: (path)"], 1); + }); + var cd = [1, 0]; + register + ("file-mtime", + function(args){ + if(args && ! args[2]){ + var v = args[1], match = stat_or(v); + if(! match) return cd; + var s = match[1]; + return [1, s[11] | 0]; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-mtime: (path)"], 1); + }); + var ce = [0, 0]; + register + ("file-isfile?", + function(args){ + if(args && ! args[2]){ + var v = args[1], match = stat_or(v); + if(! match) return ce; + var s = match[1]; + return [0, 0 === s[3] ? 1 : 0]; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-isfile?: (path)"], 1); + }); + var cf = [0, 0]; + register + ("file-isdir?", + function(args){ + if(args && ! args[2]){ + var v = args[1], match = stat_or(v); + if(! match) return cf; + var s = match[1]; + return [0, 1 === s[3] ? 1 : 0]; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-isdir?: (path)"], 1); + }); + var cg = [0, 0, 0]; + register + ("file-readable?", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var path = a[1]; + try{Unix[57].call(null, path, cg); var b = 1;}catch(exn){var b = 0;} + return [0, b]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-readable?: (path)"], 1); + }); + var ch = [0, 1, 0]; + register + ("file-writable?", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var path = a[1]; + try{Unix[57].call(null, path, ch); var b = 1;}catch(exn){var b = 0;} + return [0, b]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-writable?: (path)"], 1); + }); + var cst_file = "file"; + register + ("file-stat", + function(args){ + if(args && ! args[2]){ + var v = args[1], match = stat_or(v); + if(! match) return 0; + var s = match[1], d = Stdlib_Hashtbl[1].call(null, 0, 6); + Stdlib_Hashtbl[11].call(null, d, "size", [1, s[9]]); + Stdlib_Hashtbl[11].call(null, d, "mtime", [1, s[11] | 0]); + Stdlib_Hashtbl[11].call(null, d, "atime", [1, s[10] | 0]); + Stdlib_Hashtbl[11].call(null, d, "ctime", [1, s[12] | 0]); + Stdlib_Hashtbl[11].call(null, d, "mode", [1, s[4]]); + switch(s[3]){ + case 0: + var a = cst_file; break; + case 1: + var a = "directory"; break; + case 2: + var a = "characterSpecial"; break; + case 3: + var a = "blockSpecial"; break; + case 4: + var a = "link"; break; + case 5: + var a = "fifo"; break; + default: var a = "socket"; + } + Stdlib_Hashtbl[11].call(null, d, "type", [3, a]); + return [7, d]; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-stat: (path)"], 1); + }); + register + ("file-delete", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var path = a[1]; + a: + try{ + if(runtime.caml_sys_is_directory(path)) + Unix[65].call(null, path); + else + Unix[48].call(null, path); + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var e = exn[2]; + if(typeof e === "number" && 20 === e) break a; + var + b = Unix[2].call(null, e), + c = Stdlib[28].call(null, "file-delete: ", b); + throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); + } + return 0; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-delete: (path)"], 1); + }); + register + ("file-mkdir", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var + path = a[1], + mk = + function(p){ + if(p !== cst && p !== cst$2 && p !== cst$6){ + if(caml_sys_file_exists(p)) return; + mk(Stdlib_Filename[14].call(null, p)); + try{Unix[64].call(null, p, 493); return;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] === Unix[1]){ + var match = exn[2]; + if(typeof match === "number" && 8 === match) return; + } + throw caml_maybe_attach_backtrace(exn, 0); + } + } + }; + try{mk(path);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var + e = exn[2], + b = Unix[2].call(null, e), + c = Stdlib[28].call(null, "file-mkdir: ", b); + throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); + } + return 0; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-mkdir: (path)"], 1); + }); + register + ("file-copy", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b){ + var c = b[1]; + if(typeof c !== "number" && 3 === c[0] && ! b[2]){ + var dst = c[1], src = a[1]; + try{ + var + ic = Stdlib[80].call(null, src), + oc = Stdlib[61].call(null, dst), + buf = caml_create_bytes(8192); + for(;;){ + var + n = Stdlib[84].call(null, ic, buf, 0, caml_ml_bytes_length(buf)); + if(0 >= n){ + Stdlib[93].call(null, ic); + Stdlib[76].call(null, oc); + return 0; + } + Stdlib[68].call(null, oc, buf, 0, n); + } + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Stdlib[11]) + throw caml_maybe_attach_backtrace(exn, 0); + var msg = exn[2], d = Stdlib[28].call(null, "file-copy: ", msg); + throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); + } + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-copy: (src dst)"], 1); + }); + register + ("file-rename", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b){ + var c = b[1]; + if(typeof c !== "number" && 3 === c[0] && ! b[2]){ + var dst = c[1], src = a[1]; + try{runtime.caml_sys_rename(src, dst);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Stdlib[11]) + throw caml_maybe_attach_backtrace(exn, 0); + var msg = exn[2], d = Stdlib[28].call(null, "file-rename: ", msg); + throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); + } + return 0; + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "file-rename: (src dst)"], 1); + }); + var channel_table = Stdlib_Hashtbl[1].call(null, 0, 16); + function chan_get(name){ + var match = Stdlib_Hashtbl[7].call(null, channel_table, name); + if(match){var c = match[1]; return c;} + var a = Stdlib[28].call(null, "channel: no such channel ", name); + throw caml_maybe_attach_backtrace([0, Sx_types[9], a], 1); + } + var + channel_next_id = [0, 0], + ci = [0, 2, [0, 5, [0, 6, 0]]], + cj = [0, 1, [0, 5, [0, 6, 0]]], + ck = [0, 2, 0], + cl = [0, 0, 0], + cm = [0, 2, [0, 5, [0, 4, 0]]], + cn = [0, 1, [0, 5, [0, 4, 0]]], + co = [0, [11, cst_file, [4, 0, 0, 0, 0]], "file%d"]; + register + ("channel-open", + function(args){ + if(args){ + var b = args[1]; + if(typeof b !== "number" && 3 === b[0]){ + var c = args[2]; + if(c){ + var d = c[1]; + if(typeof d !== "number" && 3 === d[0] && ! c[2]){ + var mode = d[1], path = b[1]; + try{ + if(mode !== "a") + if(mode !== "a+") + if(mode !== "r") + if(mode !== "r+") + if(mode !== "w"){ + if(mode !== "w+"){ + var + f = + Stdlib[28].call(null, "channel-open: invalid mode ", mode); + throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); + } + var a = ci; + } + else + var a = cj; + else + var a = ck; + else + var a = cl; + else + var a = cm; + else + var a = cn; + var + fd = Unix[24].call(null, path, a, 420), + id = channel_next_id[1]; + channel_next_id[1]++; + var name = caml_call1(Stdlib_Printf[4].call(null, co), id); + Stdlib_Hashtbl[11].call + (null, channel_table, name, [0, fd, mode, [0, 0], [0, 1]]); + return [3, name]; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var + e = exn[2], + g = Unix[2].call(null, e), + h = Stdlib[28].call(null, "channel-open: ", g); + throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); + } + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-open: (path mode)"], 1); + }); + register + ("channel-close", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var name = a[1], fd = chan_get(name)[1]; + try{Unix[25].call(null, fd);}catch(exn){} + Stdlib_Hashtbl[10].call(null, channel_table, name); + return 0; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-close: (channel)"], 1); + }); + register + ("channel-read", + function(args){ + a: + if(args){ + var b = args[1]; + if(typeof b !== "number" && 3 === b[0]){ + var match = args[2], name = b[1]; + if(match){ + var a = match[1]; + if(typeof a === "number") break a; + switch(a[0]){ + case 1: + if(match[2]) break a; var m = a[1], max_n = m; break; + case 2: + if(match[2]) break a; var m$0 = a[1], max_n = m$0 | 0; break; + default: break a; + } + } + else + var max_n = -1; + var + match$0 = chan_get(name), + eof = match$0[3], + fd = match$0[1], + buf = caml_create_bytes(8192), + chunk = 8192, + buffer = Stdlib_Buffer[1].call(null, chunk), + total = [0, 0], + stop = [0, 0]; + for(;;){ + if(stop[1]) return [3, Stdlib_Buffer[2].call(null, buffer)]; + var + want = + 0 <= max_n + ? Stdlib[16].call(null, chunk, max_n - total[1] | 0) + : chunk; + if(0 < want) + try{ + var r = Unix[27].call(null, fd, buf, 0, want); + if(0 === r){ + eof[1] = 1; + stop[1] = 1; + } + else{ + Stdlib_Buffer[19].call(null, buffer, buf, 0, r); + total[1] = total[1] + r | 0; + } + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + b: + if(exn[1] === Unix[1]){ + var c = exn[2]; + if(typeof c === "number"){ + if(2 !== c && 37 !== c) break b; + stop[1] = 1; + continue; + } + } + throw caml_maybe_attach_backtrace(exn, 0); + } + else + stop[1] = 1; + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-read: (channel ?n?)"], 1); + }); + register + ("channel-read-line", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var + name = a[1], + match = chan_get(name), + eof = match[3], + fd = match[1], + buf = Stdlib_Buffer[1].call(null, 80), + one = caml_create_bytes(1), + got_data = [0, 0], + stop = [0, 0]; + for(;;){ + if(stop[1]) + return got_data[1] ? [3, Stdlib_Buffer[2].call(null, buf)] : 0; + try{ + var r = Unix[27].call(null, fd, one, 0, 1); + if(0 === r){ + eof[1] = 1; + stop[1] = 1; + } + else{ + got_data[1] = 1; + var c = caml_bytes_get(one, 0); + if(10 === c) + stop[1] = 1; + else + Stdlib_Buffer[12].call(null, buf, c); + } + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + a: + if(exn[1] === Unix[1]){ + var b = exn[2]; + if(typeof b === "number"){ + if(2 !== b && 37 !== b) break a; + stop[1] = 1; + continue; + } + } + throw caml_maybe_attach_backtrace(exn, 0); + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-read-line: (channel)"], 1); + }); + register + ("channel-write", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var c = args[2]; + if(c){ + var d = c[1]; + if(typeof d !== "number" && 3 === d[0] && ! c[2]){ + var + s = d[1], + name = a[1], + fd = chan_get(name)[1], + b = Stdlib_Bytes[5].call(null, s), + n = caml_ml_bytes_length(b), + written = [0, 0]; + for(;;){ + if(written[1] >= n) return 0; + try{ + var + w = Unix[29].call(null, fd, b, written[1], n - written[1] | 0); + written[1] = written[1] + w | 0; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + a: + if(exn[1] === Unix[1]){ + var e = exn[2]; + if(typeof e === "number"){ + if(2 !== e && 37 !== e) break a; + written[1] = n; + continue; + } + } + throw caml_maybe_attach_backtrace(exn, 0); + } + } + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-write: (channel string)"], 1); + }); + register + ("channel-flush", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){var name = a[1]; chan_get(name); return 0;} + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-flush: (channel)"], 1); + }); + register + ("channel-seek", + function(args){ + a: + if(args){ + var c = args[1]; + if(typeof c !== "number" && 3 === c[0]){ + var a = args[2]; + if(a){ + var b = a[1], name = c[1]; + if(typeof b !== "number"){ + switch(b[0]){ + case 1: + var match = a[2], o = b[1]; + if(match){ + var d = match[1]; + if(typeof d === "number") break a; + if(3 !== d[0]) break a; + if(match[2]) break a; + var w = d[1], whence = w, offset = o; + } + else + var whence = cst_start, offset = o; + break; + case 2: + var match$1 = a[2], o$0 = b[1]; + if(match$1){ + var e = match$1[1]; + if(typeof e === "number") break a; + if(3 !== e[0]) break a; + if(match$1[2]) break a; + var w$0 = e[1], whence = w$0, offset = o$0 | 0; + } + else + var whence = cst_start, offset = o$0 | 0; + break; + default: break a; + } + var match$0 = chan_get(name), eof = match$0[3], fd = match$0[1]; + if(whence !== "current") + if(whence !== cst_end){ + if(whence !== cst_start){ + var + f = + Stdlib[28].call(null, "channel-seek: invalid whence ", whence); + throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); + } + var cmd = 0; + } + else + var cmd = 2; + else + var cmd = 1; + Unix[39].call(null, fd, offset, cmd); + eof[1] = 0; + return 0; + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-seek: (channel offset ?whence?)"], 1); + }); + register + ("channel-tell", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var name = a[1], fd = chan_get(name)[1]; + return [1, Unix[39].call(null, fd, 0, 1)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-tell: (channel)"], 1); + }); + register + ("channel-eof?", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var name = a[1], eof = chan_get(name)[3]; + return [0, eof[1]]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-eof?: (channel)"], 1); + }); + register + ("channel-blocking?", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var name = a[1], blocking = chan_get(name)[4]; + return [0, blocking[1]]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-blocking?: (channel)"], 1); + }); + register + ("channel-set-blocking!", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var c = args[2]; + if(c){ + var d = c[1]; + if(typeof d !== "number" && 0 === d[0] && ! c[2]){ + var + b = d[1], + name = a[1], + match = chan_get(name), + blocking = match[4], + fd = match[1]; + blocking[1] = b; + try{if(b) Unix[61].call(null, fd); else Unix[60].call(null, fd);} + catch(exn){} + return 0; + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-set-blocking!: (channel bool)"], 1); + }); + var cst_exec = "exec: ", cst_exec_empty_command = "exec: empty command"; + register + ("exec-process", + function(args){ + a: + if(args){ + var a = args[1]; + if(typeof a !== "number"){ + switch(a[0]){ + case 6: + if(args[2]) break a; var items = a[1]; break; + case 21: + var m = a[1][1]; if(args[2]) break a; var items = m; break; + default: break a; + } + var + c = + Stdlib_List[20].call + (null, + function(v){ + if(typeof v !== "number" && 3 === v[0]){var s = v[1]; return s;} + return Sx_types[117].call(null, v); + }, + items), + argv = Stdlib_Array[11].call(null, c); + if(0 === argv.length - 1) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], cst_exec_empty_command], 1); + var + match = Unix[73].call(null, 0, 0), + out_w = match[2], + out_r = match[1], + match$0 = Unix[73].call(null, 0, 0), + err_w = match$0[2], + err_r = match$0[1]; + try{ + var + g = Unix[21], + h = caml_check_bound(argv, 0)[1], + pid = Unix[75].call(null, h, argv, g, out_w, err_w); + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var e = exn[2]; + Unix[25].call(null, out_r); + Unix[25].call(null, out_w); + Unix[25].call(null, err_r); + Unix[25].call(null, err_w); + var + d = Unix[2].call(null, e), + f = Stdlib[28].call(null, cst_exec, d); + throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); + } + Unix[25].call(null, out_w); + Unix[25].call(null, err_w); + var + buf = Stdlib_Buffer[1].call(null, 256), + errbuf = Stdlib_Buffer[1].call(null, 64), + chunk = caml_create_bytes(4096), + read_all = + function(fd, target){ + try{ + var stop = 0; + for(;;){ + if(stop) return; + var + n = + Unix[27].call + (null, fd, chunk, 0, caml_ml_bytes_length(chunk)); + if(0 === n) + stop = 1; + else + Stdlib_Buffer[19].call(null, target, chunk, 0, n); + } + } + catch(exn){return;} + }; + read_all(out_r, buf); + read_all(err_r, errbuf); + Unix[25].call(null, out_r); + Unix[25].call(null, err_r); + var status = Unix[15].call(null, 0, pid)[2]; + if(0 === status[0]) + var n = status[1], exit_code = n; + else + var exit_code = 1; + var + s = Stdlib_Buffer[2].call(null, buf), + trimmed = + 0 < caml_ml_string_length(s) + ? 10 + === caml_string_get(s, caml_ml_string_length(s) - 1 | 0) + ? Stdlib_String + [16].call + (null, s, 0, caml_ml_string_length(s) - 1 | 0) + : s + : s; + if(0 === exit_code) return [3, trimmed]; + if(0 < Stdlib_Buffer[7].call(null, errbuf)) + var + i = Stdlib_Buffer[2].call(null, errbuf), + b = Stdlib[28].call(null, cst$0, i); + else + var b = cst; + var + j = Stdlib[33].call(null, exit_code), + k = Stdlib[28].call(null, j, b), + l = Stdlib[28].call(null, "exec: child exited ", k); + throw caml_maybe_attach_backtrace([0, Sx_types[9], l], 1); + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "exec-process: (cmd-list)"], 1); + }); + var cp = [0, 0, 0], cq = [0, 4, 0], cr = [0, 6, 0]; + register + ("exec-pipeline", + function(args){ + a: + if(args){ + var a = args[1]; + if(typeof a !== "number"){ + switch(a[0]){ + case 6: + if(args[2]) break a; var items = a[1]; break; + case 21: + var k = a[1][1]; if(args[2]) break a; var items = k; break; + default: break a; + } + var + words = + Stdlib_List[20].call + (null, + function(v){ + if(typeof v !== "number" && 3 === v[0]){var s = v[1]; return s;} + return Sx_types[117].call(null, v); + }, + items); + if(0 === words) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], cst_exec_empty_command], 1); + var + extract_redirs = + function(ws){ + var + cleaned = 0, + merge_err = 0, + err_path = 0, + out_append = 0, + out_path = 0, + in_path = 0, + param = ws; + for(;;){ + if(! param) + return [0, + Stdlib_List[10].call(null, cleaned), + in_path, + out_path, + out_append, + err_path, + merge_err]; + var w = param[1]; + if(w !== "2>"){ + if(w === "2>@1"){ + var rest$3 = param[2]; + merge_err = 1; + param = rest$3; + continue; + } + if(w !== cst$7) + if(w !== cst$8){ + if(w === ">>"){ + var match = param[2]; + if(match){ + var rest$0 = match[2], p = match[1]; + out_append = 1; + out_path = [0, p]; + param = rest$0; + continue; + } + } + } + else{ + var match$0 = param[2]; + if(match$0){ + var rest$1 = match$0[2], p$0 = match$0[1]; + out_append = 0; + out_path = [0, p$0]; + param = rest$1; + continue; + } + } + else{ + var match$1 = param[2]; + if(match$1){ + var rest$2 = match$1[2], p$1 = match$1[1]; + in_path = [0, p$1]; + param = rest$2; + continue; + } + } + } + else{ + var match$2 = param[2]; + if(match$2){ + var rest$4 = match$2[2], p$2 = match$2[1]; + err_path = [0, p$2]; + param = rest$4; + continue; + } + } + var rest = param[2]; + cleaned = [0, w, cleaned]; + param = rest; + } + }, + acc = 0, + cur = 0, + param = words; + for(;;){ + if(! param) break; + var w = param[1]; + if(w !== "|"){ + var rest = param[2], cur$0 = [0, w, cur]; + cur = cur$0; + param = rest; + } + else{ + var + rest$0 = param[2], + acc$0 = [0, Stdlib_List[10].call(null, cur), acc]; + acc = acc$0; + cur = 0; + param = rest$0; + } + } + var + c = [0, Stdlib_List[10].call(null, cur), acc], + d = Stdlib_List[10].call(null, c), + stages = Stdlib_List[20].call(null, extract_redirs, d); + if(0 === stages) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "exec: no stages"], 1); + var + n = Stdlib_List[1].call(null, stages), + f = Stdlib[17].call(null, 0, n - 1 | 0), + pipes = + Stdlib_Array[1].call + (null, f, function(param){return Unix[73].call(null, 0, 0);}), + match = Unix[73].call(null, 0, 0), + final_w = match[2], + final_r = match[1], + match$0 = Unix[73].call(null, 0, 0), + errstash_w = match$0[2], + errstash_r = match$0[1], + close_safe = + function(fd){ + try{var a = Unix[25].call(null, fd); return a;} + catch(exn){return 0;} + }, + open_out_redir = + function(path, append){ + var a = append ? cq : cr; + try{ + var g = Unix[24].call(null, path, [0, 1, [0, 5, a]], 420); + return g; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var + e = exn[2], + b = Unix[2].call(null, e), + c = Stdlib[28].call(null, cst$0, b), + d = Stdlib[28].call(null, path, c), + f = Stdlib[28].call(null, "exec: open >", d); + throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); + } + }, + stages_arr = Stdlib_Array[11].call(null, stages), + pids = [0, 0]; + try{ + Stdlib_Array[13].call + (null, + function(i, param){ + var + merge = param[6], + ep = param[5], + app = param[4], + op = param[3], + ip = param[2], + cleaned = param[1]; + if(0 === cleaned) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "exec: empty stage in pipeline"], 1); + var argv = Stdlib_Array[11].call(null, cleaned); + if(0 === i) + if(ip){ + var path = ip[1]; + try{var m = Unix[24].call(null, path, cp, 420), stdin_fd = m;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) + throw caml_maybe_attach_backtrace(exn, 0); + var + e = exn[2], + h = Unix[2].call(null, e), + j = Stdlib[28].call(null, cst$0, h), + k = Stdlib[28].call(null, path, j), + l = Stdlib[28].call(null, "exec: open <", k); + throw caml_maybe_attach_backtrace([0, Sx_types[9], l], 1); + } + } + else + var stdin_fd = Unix[21]; + else + var + g = i - 1 | 0, + stdin_fd = caml_check_bound(pipes, g)[g + 1][1]; + if(i === (n - 1 | 0)) + if(op) + var path$0 = op[1], stdout_fd = open_out_redir(path$0, app); + else + var stdout_fd = final_w; + else + var stdout_fd = caml_check_bound(pipes, i)[i + 1][2]; + if(merge) + var stderr_fd = stdout_fd; + else if(ep) + var path$1 = ep[1], stderr_fd = open_out_redir(path$1, 0); + else + var stderr_fd = i === (n - 1 | 0) ? errstash_w : Unix[23]; + try{ + var + t = caml_check_bound(argv, 0)[1], + pid = + Unix[75].call(null, t, argv, stdin_fd, stdout_fd, stderr_fd); + } + catch(exn){ + var exn$0 = caml_wrap_exception(exn); + if(exn$0[1] !== Unix[1]) + throw caml_maybe_attach_backtrace(exn$0, 0); + var + e$0 = exn$0[2], + o = Unix[2].call(null, e$0), + p = Stdlib[28].call(null, cst$0, o), + q = caml_check_bound(argv, 0)[1], + r = Stdlib[28].call(null, q, p), + s = Stdlib[28].call(null, cst_exec, r); + throw caml_maybe_attach_backtrace([0, Sx_types[9], s], 1); + } + pids[1] = [0, pid, pids[1]]; + if(0 < i){ + var a = i - 1 | 0; + close_safe(caml_check_bound(pipes, a)[a + 1][1]); + } + if(i < (n - 1 | 0)) + close_safe(caml_check_bound(pipes, i)[i + 1][2]); + var b = 0 === i, u = b ? 0 !== ip : b; + if(u) close_safe(stdin_fd); + var c = i === (n - 1 | 0), v = c ? 0 !== op : c; + if(v) close_safe(stdout_fd); + var d = 1 - merge, f = d ? 0 !== ep ? 1 : 0 : d; + return f ? close_safe(stderr_fd) : f; + }, + stages_arr); + } + catch(e$0){ + var e = caml_wrap_exception(e$0); + close_safe(final_r); + close_safe(final_w); + close_safe(errstash_r); + close_safe(errstash_w); + Stdlib_Array[12].call + (null, + function(param){ + var b = param[2], a = param[1]; + close_safe(a); + return close_safe(b); + }, + pipes); + throw caml_maybe_attach_backtrace(e, 0); + } + close_safe(final_w); + close_safe(errstash_w); + var + buf = Stdlib_Buffer[1].call(null, 256), + errbuf = Stdlib_Buffer[1].call(null, 64), + chunk = caml_create_bytes(4096), + read_all = + function(fd, target){ + try{ + var stop = 0; + for(;;){ + if(stop) return; + var + r = + Unix[27].call + (null, fd, chunk, 0, caml_ml_bytes_length(chunk)); + if(0 === r) + stop = 1; + else + Stdlib_Buffer[19].call(null, target, chunk, 0, r); + } + } + catch(exn){return;} + }; + read_all(final_r, buf); + read_all(errstash_r, errbuf); + close_safe(final_r); + close_safe(errstash_r); + var + exit_codes = + Stdlib_List[22].call + (null, + function(pid){ + var st = Unix[15].call(null, 0, pid)[2]; + if(0 !== st[0]) return 1; + var c = st[1]; + return c; + }, + pids[1]), + match$1 = Stdlib_List[10].call(null, exit_codes); + if(match$1) + var last = match$1[1], final_code = last; + else + var final_code = 0; + var + s = Stdlib_Buffer[2].call(null, buf), + trimmed = + 0 < caml_ml_string_length(s) + ? 10 + === caml_string_get(s, caml_ml_string_length(s) - 1 | 0) + ? Stdlib_String + [16].call + (null, s, 0, caml_ml_string_length(s) - 1 | 0) + : s + : s; + if(0 === final_code) return [3, trimmed]; + if(0 < Stdlib_Buffer[7].call(null, errbuf)) + var + g = Stdlib_Buffer[2].call(null, errbuf), + b = Stdlib[28].call(null, cst$0, g); + else + var b = cst; + var + h = Stdlib[33].call(null, final_code), + i = Stdlib[28].call(null, h, b), + j = Stdlib[28].call(null, "exec: pipeline last stage exited ", i); + throw caml_maybe_attach_backtrace([0, Sx_types[9], j], 1); + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "exec-pipeline: (word-list)"], 1); + }); + function resolve_inet_addr(host){ + if(host !== cst && host !== "0.0.0.0"){ + if(host === "localhost") return Unix[132]; + try{var d = Unix[129].call(null, host); return d;} + catch(exn$0){ + var cst_socket_cannot_resolve = "socket: cannot resolve "; + try{ + var entry = Unix[165].call(null, host); + if(0 === entry[4].length - 1){ + var b = Stdlib[28].call(null, cst_socket_cannot_resolve, host); + throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); + } + var c = caml_check_bound(entry[4], 0)[1]; + return c; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn !== Stdlib[8]) throw caml_maybe_attach_backtrace(exn, 0); + var a = Stdlib[28].call(null, cst_socket_cannot_resolve, host); + throw caml_maybe_attach_backtrace([0, Sx_types[9], a], 1); + } + } + } + return Unix[131]; + } + function port_of(v){ + if(typeof v !== "number") + switch(v[0]){ + case 1: + var n = v[1]; return n; + case 2: + var n$0 = v[1]; return n$0 | 0; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "socket: port must be a number"], 1); + } + var cs = [0, [11, "sock", [4, 0, 0, 0, 0]], "sock%d"]; + function alloc_chan_name(param){ + var id = channel_next_id[1]; + channel_next_id[1]++; + return caml_call1(Stdlib_Printf[4].call(null, cs), id); + } + var cst_rw = "rw"; + register + ("socket-connect", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b && ! b[2]){ + var + port_v = b[1], + host = a[1], + port = port_of(port_v), + addr = [1, resolve_inet_addr(host), port], + sock = Unix[136].call(null, 0, 1, 0, 0); + try{Unix[141].call(null, sock, addr);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var e = exn[2]; + try{Unix[25].call(null, sock);}catch(exn){} + var + c = Unix[2].call(null, e), + d = Stdlib[28].call(null, "socket-connect: ", c); + throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); + } + var name = alloc_chan_name(0); + Stdlib_Hashtbl[11].call + (null, channel_table, name, [0, sock, cst_rw, [0, 0], [0, 1]]); + return [3, name]; + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "socket-connect: (host port)"], 1); + }); + register + ("socket-connect-async", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b && ! b[2]){ + var + port_v = b[1], + host = a[1], + port = port_of(port_v), + addr = [1, resolve_inet_addr(host), port], + sock = Unix[136].call(null, 0, 1, 0, 0); + Unix[60].call(null, sock); + a: + try{Unix[141].call(null, sock, addr);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var e = exn[2]; + if(typeof e === "number" && 1 >= e - 37 >>> 0) break a; + try{Unix[25].call(null, sock);}catch(exn){} + var + c = Unix[2].call(null, e), + d = Stdlib[28].call(null, "socket-connect-async: ", c); + throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); + } + var name = alloc_chan_name(0); + Stdlib_Hashtbl[11].call + (null, channel_table, name, [0, sock, cst_rw, [0, 0], [0, 0]]); + return [3, name]; + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "socket-connect-async: (host port)"], 1); + }); + var ct = [3, cst]; + register + ("channel-async-error", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var name = a[1], fd = chan_get(name)[1]; + try{ + var err = Unix[160].call(null, fd); + if(err) + var e$0 = err[1], b = [3, Unix[2].call(null, e$0)]; + else + var b = ct; + return b; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var e = exn[2]; + return [3, Unix[2].call(null, e)]; + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "channel-async-error: (channel)"], 1); + }); + register + ("socket-server", + function(args){ + a: + if(args){ + var port_v = args[1]; + if(args[2]){ + if(typeof port_v === "number") break a; + if(3 !== port_v[0]) break a; + var a = args[2]; + if(a[2]) break a; + var + port_v$0 = a[1], + h = port_v[1], + port = port_of(port_v$0), + host = h; + } + else + var port = port_of(port_v), host = cst; + var + addr = [1, resolve_inet_addr(host), port], + sock = Unix[136].call(null, 0, 1, 0, 0); + Unix[153].call(null, sock, 2, 1); + try{Unix[140].call(null, sock, addr);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var e = exn[2]; + try{Unix[25].call(null, sock);}catch(exn){} + var + b = Unix[2].call(null, e), + c = Stdlib[28].call(null, "socket-server: bind: ", b); + throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); + } + Unix[142].call(null, sock, 8); + var name = alloc_chan_name(0); + Stdlib_Hashtbl[11].call + (null, channel_table, name, [0, sock, "server", [0, 0], [0, 1]]); + return [3, name]; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "socket-server: (port) or (host port)"], 1); + }); + register + ("socket-accept", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var name = a[1], sock = chan_get(name)[1]; + try{var match = Unix[139].call(null, 0, sock);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Unix[1]) throw caml_maybe_attach_backtrace(exn, 0); + var + e = exn[2], + b = Unix[2].call(null, e), + c = Stdlib[28].call(null, "socket-accept: ", b); + throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); + } + var client_addr = match[2], client_sock = match[1]; + if(0 === client_addr[0]) + var path = client_addr[1], port = 0, host_str = path; + else + var + port$0 = client_addr[2], + addr = client_addr[1], + host_str$0 = Unix[130].call(null, addr), + port = port$0, + host_str = host_str$0; + var client_name = alloc_chan_name(0); + Stdlib_Hashtbl[11].call + (null, + channel_table, + client_name, + [0, client_sock, cst_rw, [0, 0], [0, 1]]); + var d = Stdlib_Hashtbl[1].call(null, 0, 3); + Stdlib_Hashtbl[11].call(null, d, "channel", [3, client_name]); + Stdlib_Hashtbl[11].call(null, d, "host", [3, host_str]); + Stdlib_Hashtbl[11].call(null, d, "port", [1, port]); + return [7, d]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "socket-accept: (server-channel)"], 1); + }); + register + ("io-select-channels", + function(args){ + function to_list(v){ + a: + { + if(typeof v !== "number"){ + switch(v[0]){ + case 6: + var xs = v[1]; break; + case 21: + var xs = v[1][1]; break; + default: break a; + } + return xs; + } + if(0 === v) return 0; + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "io-select-channels: expected list"], 1); + } + function chan_name_of(v){ + if(typeof v !== "number" && 3 === v[0]){var s = v[1]; return s;} + throw caml_maybe_attach_backtrace + ([0, + Sx_types[9], + "io-select-channels: channel must be a string"], + 1); + } + if(args){ + var a = args[2]; + if(a){ + var b = a[2]; + if(b && ! b[2]){ + var t = b[1], w = a[1], r = args[1]; + a: + if(typeof t !== "number"){ + switch(t[0]){ + case 1: + var n = t[1], timeout_ms = n; break; + case 2: + var n$0 = t[1], timeout_ms = n$0 | 0; break; + default: break a; + } + var + write_list = to_list(w), + read_list = to_list(r), + read_pairs = + Stdlib_List[20].call + (null, + function(v){ + var name = chan_name_of(v), fd = chan_get(name)[1]; + return [0, name, fd]; + }, + read_list), + write_pairs = + Stdlib_List[20].call + (null, + function(v){ + var name = chan_name_of(v), fd = chan_get(name)[1]; + return [0, name, fd]; + }, + write_list), + read_fds = + Stdlib_List[20].call(null, function(a){return a[2];}, read_pairs), + write_fds = + Stdlib_List[20].call + (null, function(a){return a[2];}, write_pairs), + timeout = 0 <= timeout_ms ? timeout_ms / 1000. : -1.; + b: + try{ + var + c = Unix[96].call(null, read_fds, write_fds, 0, timeout), + g = c[2], + h = c[1], + ready_w = g, + ready_r = h; + } + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] === Unix[1]){ + var match = exn[2]; + if(typeof match === "number" && 11 === match){var ready_w = 0, ready_r = 0; break b;} + } + throw caml_maybe_attach_backtrace(exn, 0); + } + var + names_of = + function(pairs, ready){ + return Stdlib_List[23].call + (null, + function(param){ + var fd = param[2], n = param[1]; + return Stdlib_List[34].call + (null, function(rfd){return caml_equal(rfd, fd);}, ready) + ? [0, [3, n]] + : 0; + }, + pairs); + }, + d = Stdlib_Hashtbl[1].call(null, 0, 2), + e = [6, names_of(read_pairs, ready_r)]; + Stdlib_Hashtbl[11].call(null, d, "readable", e); + var f = [6, names_of(write_pairs, ready_w)]; + Stdlib_Hashtbl[11].call(null, d, "writable", f); + return [7, d]; + } + throw caml_maybe_attach_backtrace + ([0, + Sx_types[9], + "io-select-channels: timeout must be a number"], + 1); + } + } + } + throw caml_maybe_attach_backtrace + ([0, + Sx_types[9], + "io-select-channels: (read-list write-list timeout-ms)"], + 1); + }); register ("clock-seconds", function(args){ @@ -49349,7 +55396,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cst_02d = "%02d", cst_May = "May", - bX = + cst_local = "local", + cst_utc = "utc", + cu = [0, "Sunday", "Monday", @@ -49358,7 +55407,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= "Thursday", "Friday", "Saturday"], - bY = + cv = [0, "January", "February", @@ -49372,12 +55421,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= "October", "November", "December"], - bZ = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], - b0 = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], - b1 = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], - b2 = [0, [4, 0, [0, 2, 4], 0, 0], "%04d"], - b3 = [0, "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"], - b4 = + cw = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], + cx = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], + cy = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], + cz = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], + cA = [0, [4, 0, [0, 2, 4], 0, 0], "%04d"], + cB = [0, "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"], + cC = [0, "Jan", "Feb", @@ -49391,10 +55441,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= "Oct", "Nov", "Dec"], - b5 = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], - b6 = [0, [4, 0, [0, 1, 2], 0, 0], "%2d"], - b7 = [0, [4, 0, [0, 2, 3], 0, 0], "%03d"], - b8 = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d]; + cD = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], + cE = [0, [4, 0, [0, 1, 2], 0, 0], "%2d"], + cF = [0, [4, 0, [0, 2, 3], 0, 0], "%03d"], + cG = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d], + cH = [0, [4, 0, [0, 2, 2], 0, 0], cst_02d]; register ("clock-format", function(args){ @@ -49402,148 +55453,519 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(args){ var a = args[1]; if(typeof a !== "number" && 1 === a[0]){ - var b = args[2], t = a[1]; - if(b){ - var g = b[1]; - if(typeof g === "number" || 3 !== g[0] || b[2]) break a; - } - var cst_a_b_e_H_M_S_Z_Y = "%a %b %e %H:%M:%S %Z %Y"; - if(args){ - var d = args[2]; - if(d){ - var e = d[1]; - if(typeof e === "number" || ! (3 === e[0] && ! d[2])) - var fmt = cst_a_b_e_H_M_S_Z_Y; - else - var f = e[1], fmt = f; + var match = args[2], t = a[1]; + if(match){ + var b = match[1]; + if(typeof b === "number") break a; + if(3 !== b[0]) break a; + var match$0 = match[2], f = b[1]; + if(match$0){ + var c = match$0[1]; + if(typeof c === "number") break a; + if(3 !== c[0]) break a; + if(match$0[2]) break a; + var z = c[1], tz = z, fmt = f; } else - var fmt = cst_a_b_e_H_M_S_Z_Y; + var tz = cst_utc, fmt = f; } else - var fmt = cst_a_b_e_H_M_S_Z_Y; + var tz = cst_utc, fmt = "%a %b %e %H:%M:%S %Z %Y"; var - tm = Unix[105].call(null, t), - buf = Stdlib_Buffer[1].call(null, 32), - n = caml_ml_string_length(fmt), - i = 0; - for(;;){ - if(i >= n) return [3, Stdlib_Buffer[2].call(null, buf)]; - if(37 === caml_string_get(fmt, i) && (i + 1 | 0) < n){ - var c = caml_string_get(fmt, i + 1 | 0), switcher = c - 65 | 0; - b: - { - if(44 >= switcher >>> 0) - switch(switcher){ - case 0: - var - days = caml_obj_dup(bX), - h = tm[7], - m = caml_check_bound(days, h)[h + 1]; - Stdlib_Buffer[16].call(null, buf, m); - break b; - case 1: - var - mons = caml_obj_dup(bY), - j = tm[5], - o = caml_check_bound(mons, j)[j + 1]; - Stdlib_Buffer[16].call(null, buf, o); - break b; - case 7: - var - p = tm[3], - q = caml_call1(Stdlib_Printf[4].call(null, bZ), p); - Stdlib_Buffer[16].call(null, buf, q); - break b; - case 12: - var - r = tm[2], - s = caml_call1(Stdlib_Printf[4].call(null, b0), r); - Stdlib_Buffer[16].call(null, buf, s); - break b; - case 18: - var - u = tm[1], - v = caml_call1(Stdlib_Printf[4].call(null, b1), u); - Stdlib_Buffer[16].call(null, buf, v); - break b; - case 24: - var - w = 1900 + tm[6] | 0, - x = caml_call1(Stdlib_Printf[4].call(null, b2), w); - Stdlib_Buffer[16].call(null, buf, x); - break b; - case 25: - Stdlib_Buffer[16].call(null, buf, "UTC"); break b; - case 32: - var - days$0 = caml_obj_dup(b3), - k = tm[7], - y = caml_check_bound(days$0, k)[k + 1]; - Stdlib_Buffer[16].call(null, buf, y); - break b; - case 35: - var - A = tm[4], - B = caml_call1(Stdlib_Printf[4].call(null, b5), A); - Stdlib_Buffer[16].call(null, buf, B); - break b; - case 36: - var - C = tm[4], - D = caml_call1(Stdlib_Printf[4].call(null, b6), C); - Stdlib_Buffer[16].call(null, buf, D); - break b; - case 41: - var - E = tm[8] + 1 | 0, - F = caml_call1(Stdlib_Printf[4].call(null, b7), E); - Stdlib_Buffer[16].call(null, buf, F); - break b; - case 44: - var - G = tm[5] + 1 | 0, - H = caml_call1(Stdlib_Printf[4].call(null, b8), G); - Stdlib_Buffer[16].call(null, buf, H); - break b; - case 33: - case 39: - var - mons$0 = caml_obj_dup(b4), - l = tm[5], - z = caml_check_bound(mons$0, l)[l + 1]; - Stdlib_Buffer[16].call(null, buf, z); - break b; - } - Stdlib_Buffer[12].call(null, buf, 37); - Stdlib_Buffer[12].call(null, buf, c); + tm = + tz === cst_local + ? Unix[106].call(null, t) + : Unix[105].call(null, t), + tz_label = tz === cst_local ? cst : "UTC"; + return [3, + function(fmt){ + var + buf = Stdlib_Buffer[1].call(null, 32), + n = caml_ml_string_length(fmt), + i = 0; + for(;;){ + if(i >= n) return Stdlib_Buffer[2].call(null, buf); + if(37 === caml_string_get(fmt, i) && (i + 1 | 0) < n){ + var + c = caml_string_get(fmt, i + 1 | 0), + switcher = c - 37 | 0; + a: + { + if(84 >= switcher >>> 0) + switch(switcher){ + case 0: + Stdlib_Buffer[12].call(null, buf, 37); break a; + case 28: + var + days = caml_obj_dup(cu), + a = tm[7], + f = caml_check_bound(days, a)[a + 1]; + Stdlib_Buffer[16].call(null, buf, f); + break a; + case 29: + var + mons = caml_obj_dup(cv), + b = tm[5], + g = caml_check_bound(mons, b)[b + 1]; + Stdlib_Buffer[16].call(null, buf, g); + break a; + case 35: + var + j = tm[3], + k = caml_call1(Stdlib_Printf[4].call(null, cw), j); + Stdlib_Buffer[16].call(null, buf, k); + break a; + case 36: + var + h = tm[3] % 12 | 0, + l = 0 === h ? 12 : h, + m = caml_call1(Stdlib_Printf[4].call(null, cx), l); + Stdlib_Buffer[16].call(null, buf, m); + break a; + case 40: + var + o = tm[2], + p = caml_call1(Stdlib_Printf[4].call(null, cy), o); + Stdlib_Buffer[16].call(null, buf, p); + break a; + case 46: + var + q = tm[1], + r = caml_call1(Stdlib_Printf[4].call(null, cz), q); + Stdlib_Buffer[16].call(null, buf, r); + break a; + case 52: + var + s = 1900 + tm[6] | 0, + t = caml_call1(Stdlib_Printf[4].call(null, cA), s); + Stdlib_Buffer[16].call(null, buf, t); + break a; + case 53: + Stdlib_Buffer[16].call(null, buf, tz_label); break a; + case 60: + var + days$0 = caml_obj_dup(cB), + d = tm[7], + u = caml_check_bound(days$0, d)[d + 1]; + Stdlib_Buffer[16].call(null, buf, u); + break a; + case 63: + var + w = tm[4], + x = caml_call1(Stdlib_Printf[4].call(null, cD), w); + Stdlib_Buffer[16].call(null, buf, x); + break a; + case 64: + var + y = tm[4], + z = caml_call1(Stdlib_Printf[4].call(null, cE), y); + Stdlib_Buffer[16].call(null, buf, z); + break a; + case 69: + var + A = tm[8] + 1 | 0, + B = caml_call1(Stdlib_Printf[4].call(null, cF), A); + Stdlib_Buffer[16].call(null, buf, B); + break a; + case 72: + var + C = tm[5] + 1 | 0, + D = caml_call1(Stdlib_Printf[4].call(null, cG), C); + Stdlib_Buffer[16].call(null, buf, D); + break a; + case 75: + var E = 12 <= tm[3] ? "PM" : "AM"; + Stdlib_Buffer[16].call(null, buf, E); + break a; + case 82: + var F = Stdlib[33].call(null, tm[7]); + Stdlib_Buffer[16].call(null, buf, F); + break a; + case 84: + var + G = (1900 + tm[6] | 0) % 100 | 0, + H = caml_call1(Stdlib_Printf[4].call(null, cH), G); + Stdlib_Buffer[16].call(null, buf, H); + break a; + case 61: + case 67: + var + mons$0 = caml_obj_dup(cC), + e = tm[5], + v = caml_check_bound(mons$0, e)[e + 1]; + Stdlib_Buffer[16].call(null, buf, v); + break a; + } + Stdlib_Buffer[12].call(null, buf, 37); + Stdlib_Buffer[12].call(null, buf, c); + } + i = i + 2 | 0; + continue; + } + var I = caml_string_get(fmt, i); + Stdlib_Buffer[12].call(null, buf, I); + var i$0 = i + 1 | 0; + i = i$0; + } + } + (fmt)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "clock-format: (seconds [format [tz]])"], 1); + }); + var + cI = [0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31], + cJ = [0, 0, 0, 0, 1, 0, 70, 0, 0, 0]; + register + ("clock-scan", + function(args){ + a: + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b){ + var c = b[1]; + if(typeof c !== "number" && 3 === c[0]){ + var match = b[2], fmt = c[1], str = a[1]; + if(match){ + var d = match[1]; + if(typeof d === "number") break a; + if(3 !== d[0]) break a; + if(match[2]) break a; + var z = d[1], tz = z; } - i = i + 2 | 0; - continue; + else + var tz = cst_utc; + var + n = caml_ml_string_length(fmt), + sn = caml_ml_string_length(str), + j = [0, 0], + read_n_digits = + function(k){ + var cnt = 0, s = cst; + for(;;){ + if + (cnt < k + && + j[1] < sn + && + 48 <= caml_string_get(str, j[1]) + && 57 >= caml_string_get(str, j[1])){ + var + a = caml_string_get(str, j[1]), + b = Stdlib_String[1].call(null, 1, a), + c = Stdlib[28].call(null, s, b); + j[1]++; + var cnt$0 = cnt + 1 | 0; + cnt = cnt$0; + s = c; + continue; + } + return s === cst ? 0 : caml_int_of_string(s); + } + }, + skip_ws = + function(param){ + for(;;){ + a: + if(j[1] < sn){ + if + (32 !== caml_string_get(str, j[1]) + && 9 !== caml_string_get(str, j[1])) + break a; + j[1]++; + continue; + } + return; + } + }, + i = 0, + tm = cJ; + for(;;){ + if(i >= n) break; + if(37 === caml_string_get(fmt, i) && (i + 1 | 0) < n){ + var match$0 = caml_string_get(fmt, i + 1 | 0); + if(100 <= match$0) + if(109 === match$0) + var + w = tm[9], + x = tm[8], + A = tm[7], + B = tm[6], + C = read_n_digits(2) - 1 | 0, + tm$0 = [0, tm[1], tm[2], tm[3], tm[4], C, B, A, x, w]; + else if(121 === match$0) + var + y$1 = read_n_digits(2), + D = tm[9], + E = tm[8], + F = tm[7], + y$2 = 70 <= y$1 ? y$1 : 100 + y$1 | 0, + tm$0 = [0, tm[1], tm[2], tm[3], tm[4], tm[5], y$2, F, E, D]; + else if(102 <= match$0) + var tm$0 = tm; + else{ + skip_ws(0); + var + G = tm[9], + H = tm[8], + I = tm[7], + J = tm[6], + K = tm[5], + L = read_n_digits(2), + tm$0 = [0, tm[1], tm[2], tm[3], L, K, J, I, H, G]; + } + else if(72 <= match$0) + if(90 <= match$0) + var tm$0 = tm; + else + switch(match$0 - 72 | 0){ + case 5: + var + T = tm[9], + U = tm[8], + V = tm[7], + W = tm[6], + X = tm[5], + Y = tm[4], + Z = tm[3], + _ = read_n_digits(2), + tm$0 = [0, tm[1], _, Z, Y, X, W, V, U, T]; + break; + case 11: + var + $ = tm[9], + aa = tm[8], + ab = tm[7], + ac = tm[6], + ad = tm[5], + ae = tm[4], + af = tm[3], + ag = tm[2], + tm$0 = [0, read_n_digits(2), ag, af, ae, ad, ac, ab, aa, $]; + break; + case 17: + var + ah = tm[9], + ai = tm[8], + aj = tm[7], + ak = read_n_digits(4) - 1900 | 0, + tm$0 = + [0, tm[1], tm[2], tm[3], tm[4], tm[5], ak, aj, ai, ah]; + break; + case 0: + case 1: + var + M = tm[9], + N = tm[8], + O = tm[7], + P = tm[6], + Q = tm[5], + R = tm[4], + S = read_n_digits(2), + tm$0 = [0, tm[1], tm[2], S, R, Q, P, O, N, M]; + break; + default: var tm$0 = tm; + } + else if(37 === match$0) + var + l = j[1] < sn, + al = l ? 37 === caml_string_get(str, j[1]) : l, + tm$0 = al ? (j[1]++, tm) : tm; + else + var tm$0 = tm; + i = i + 2 | 0; + tm = tm$0; + continue; + } + if(32 === caml_string_get(fmt, i)) + skip_ws(0); + else{ + var o = j[1] < sn; + if(o) + var + am = caml_string_get(fmt, i), + p = caml_string_get(str, j[1]) === am; + else + var p = o; + if(p) j[1]++; + } + var i$0 = i + 1 | 0; + i = i$0; + } + if(tz === cst_local) + var secs = Unix[107].call(null, tm)[1] | 0; + else{ + var + is_leap = + function(y){ + var a = 0 === (y % 4 | 0) ? 1 : 0; + if(a) + var + c = 0 !== (y % 100 | 0) ? 1 : 0, + b = c || (0 === (y % 400 | 0) ? 1 : 0); + else + var b = a; + return b; + }, + days_in_month = caml_obj_dup(cI), + year = tm[6] + 1900 | 0, + mon = tm[5], + mday = tm[4], + total_days = 0; + if(1970 <= year){ + var e = year - 1 | 0; + if(e < 1970) + var total_days$3 = total_days; + else{ + var total_days$1 = total_days, y = 1970; + for(;;){ + var + s = is_leap(y) ? 366 : 365, + h = total_days$1 + s | 0, + t = y + 1 | 0; + if(e === y){var total_days$3 = h; break;} + total_days$1 = h; + y = t; + } + } + } + else if(1969 < year) + var total_days$3 = total_days; + else{ + var total_days$2 = total_days, y$0 = year; + for(;;){ + var + u = is_leap(y$0) ? 366 : 365, + k = total_days$2 - u | 0, + v = y$0 + 1 | 0; + if(1969 === y$0){var total_days$3 = k; break;} + total_days$2 = k; + y$0 = v; + } + } + var f = mon - 1 | 0; + if(f < 0) + var total_days$7 = total_days$3; + else{ + var total_days$4 = total_days$3, m = 0; + for(;;){ + var + total_days$0 = + total_days$4 + caml_check_bound(days_in_month, m)[m + 1] | 0, + g = 1 === m, + q = g ? is_leap(year) : g; + if(q) + var + total_days$5 = total_days$0 + 1 | 0, + total_days$6 = total_days$5; + else + var total_days$6 = total_days$0; + var r = m + 1 | 0; + if(f === m){var total_days$7 = total_days$6; break;} + total_days$4 = total_days$6; + m = r; + } + } + var + secs = + (((((total_days$7 + mday | 0) - 1 | 0) * 86400 | 0) + + (tm[3] * 3600 | 0) + | 0) + + (tm[2] * 60 | 0) + | 0) + + tm[1] + | 0; + } + return [1, secs]; } - var I = caml_string_get(fmt, i); - Stdlib_Buffer[12].call(null, buf, I); - var i$0 = i + 1 | 0; - i = i$0; } } } throw caml_maybe_attach_backtrace - ([0, Sx_types[9], "clock-format: (seconds [format])"], 1); + ([0, Sx_types[9], "clock-scan: (str fmt [tz])"], 1); + }); + register + ("env-lookup", + function(args){ + if(args){ + var a = args[2]; + if(a && ! a[2]){ + var key = a[1], env_val = args[1]; + a: + { + if(typeof env_val === "number"){ + if(0 === env_val){var e$0 = Sx_types[20].call(null, 0); break a;} + } + else if(20 === env_val[0]){var e = env_val[1], e$0 = e; break a;} + throw caml_maybe_attach_backtrace + ([0, + Sx_types[9], + "env-lookup: first arg must be an environment"], + 1); + } + var k = Sx_types[35].call(null, key); + return Sx_types[28].call(null, e$0, k) + ? Sx_types[30].call(null, e$0, k) + : 0; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "env-lookup: (env key)"], 1); + }); + register + ("env-extend", + function(args){ + if(! args) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "env-extend: requires at least one arg"], 1); + var pairs = args[2], env_val = args[1]; + a: + { + if(typeof env_val === "number"){ + if(0 === env_val){ + var parent_env = Sx_types[20].call(null, 0); + break a; + } + } + else if(20 === env_val[0]){ + var e = env_val[1], parent_env = e; + break a; + } + throw caml_maybe_attach_backtrace + ([0, + Sx_types[9], + "env-extend: first arg must be an environment"], + 1); + } + var child = Sx_types[21].call(null, parent_env), param = pairs; + for(;;){ + if(! param) return [20, child]; + var match = param[2], k = param[1]; + if(! match) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "env-extend: odd number of key-val pairs"], + 1); + var rest = match[2], v = match[1], a = Sx_types[35].call(null, k); + Sx_types[26].call(null, child, a, v); + param = rest; + } }); register ("jit-stats", function(args){ var d = Stdlib_Hashtbl[1].call(null, 0, 8); Stdlib_Hashtbl[11].call(null, d, "threshold", [2, Sx_types[43][1]]); - Stdlib_Hashtbl[11].call(null, d, "budget", [2, Sx_types[47][1]]); - var a = [2, Sx_types[50].call(null, 0)]; + Stdlib_Hashtbl[11].call(null, d, "budget", [2, Sx_types[51][1]]); + var a = [2, Sx_types[54].call(null, 0)]; Stdlib_Hashtbl[11].call(null, d, "cache-size", a); Stdlib_Hashtbl[11].call(null, d, "compiled", [2, Sx_types[44][1]]); Stdlib_Hashtbl[11].call(null, d, "compile-failed", [2, Sx_types[45][1]]); Stdlib_Hashtbl[11].call (null, d, "below-threshold", [2, Sx_types[46][1]]); - Stdlib_Hashtbl[11].call(null, d, "evicted", [2, Sx_types[48][1]]); + Stdlib_Hashtbl[11].call(null, d, "evicted", [2, Sx_types[52][1]]); return [7, d]; }); register @@ -49572,9 +55994,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof a !== "number") switch(a[0]){ case 1: - if(! args[2]){var n = a[1]; Sx_types[47][1] = n; return 0;} break; + if(! args[2]){var n = a[1]; Sx_types[51][1] = n; return 0;} break; case 2: - if(! args[2]){var n$0 = a[1]; Sx_types[47][1] = n$0 | 0; return 0;} + if(! args[2]){var n$0 = a[1]; Sx_types[51][1] = n$0 | 0; return 0;} break; } } @@ -49591,8 +56013,55 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof v !== "number" && 8 === v[0]){var l = v[1]; l[5] = 0; return 0;} return 0; }, - Sx_types[49]); - Stdlib_Queue[11].call(null, Sx_types[49]); + Sx_types[53]); + Stdlib_Queue[11].call(null, Sx_types[53]); + return 0; + }); + register + ("jit-exclude!", + function(args){ + Stdlib_List[18].call + (null, + function(a){ + if(typeof a !== "number" && a[0] - 3 >>> 0 < 2){ + var n = a[1], len = caml_ml_string_length(n); + if(0 < len && 42 === caml_string_get(n, len - 1 | 0)){ + var + prefix = Stdlib_String[16].call(null, n, 0, len - 1 | 0), + b = 1 - Stdlib_List[37].call(null, prefix, Sx_types[48][1]), + c = b ? (Sx_types[48][1] = [0, prefix, Sx_types[48][1]], 0) : b; + return c; + } + return Stdlib_Hashtbl[11].call(null, Sx_types[47], n, 0); + } + return 0; + }, + args); + return 0; + }); + var cK = [0, 0]; + register + ("jit-excluded?", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && a[0] - 3 >>> 0 < 2 && ! args[2]){var n = a[1]; return [0, Sx_types[49].call(null, n)];} + } + return cK; + }); + register + ("jit-exclude-callers-of!", + function(args){ + Stdlib_List[18].call + (null, + function(a){ + if(typeof a !== "number" && a[0] - 3 >>> 0 < 2){ + var n = a[1]; + return Stdlib_Hashtbl[11].call(null, Sx_types[50], n, 0); + } + return 0; + }, + args); return 0; }); register @@ -49601,11 +56070,170 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Sx_types[44][1] = 0; Sx_types[45][1] = 0; Sx_types[46][1] = 0; - Sx_types[48][1] = 0; + Sx_types[52][1] = 0; return 0; }); + register + ("crypto-sha256", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){var s = a[1]; return [3, Sx_sha2[3].call(null, s)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "crypto-sha256: (bytes)"], 1); + }); + register + ("crypto-sha512", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var s = a[1]; + return [3, Sx_sha2[11].call(null, s)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "crypto-sha512: (bytes)"], 1); + }); + register + ("crypto-sha3-256", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){var s = a[1]; return [3, Sx_sha3[8].call(null, s)]; + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "crypto-sha3-256: (bytes)"], 1); + }); + register + ("cbor-encode", + function(args){ + if(args && ! args[2]){ + var v = args[1]; + try{var a = [3, Sx_cbor[5].call(null, v)]; return a;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Sx_cbor[1]) throw caml_maybe_attach_backtrace(exn, 0); + var m = exn[2]; + throw caml_maybe_attach_backtrace([0, Sx_types[9], m], 1); + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "cbor-encode: (value)"], 1); + }); + register + ("cbor-decode", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0] && ! args[2]){ + var s = a[1]; + try{var b = Sx_cbor[6].call(null, s); return b;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Sx_cbor[1]) throw caml_maybe_attach_backtrace(exn, 0); + var m = exn[2]; + throw caml_maybe_attach_backtrace([0, Sx_types[9], m], 1); + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "cbor-decode: (bytes)"], 1); + }); + register + ("cid-from-bytes", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 1 === a[0]){ + var b = args[2]; + if(b){ + var c = b[1]; + if(typeof c !== "number" && 3 === c[0] && ! b[2]){ + var mh = c[1], codec = a[1]; + return [3, Sx_cid[6].call(null, codec, mh)]; + } + } + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "cid-from-bytes: (codec multihash-bytes)"], 1); + }); + register + ("cid-from-sx", + function(args){ + if(args && ! args[2]){ + var v = args[1]; + try{var a = [3, Sx_cid[9].call(null, v)]; return a;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== Sx_cbor[1]) throw caml_maybe_attach_backtrace(exn, 0); + var m = exn[2]; + throw caml_maybe_attach_backtrace([0, Sx_types[9], m], 1); + } + } + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], "cid-from-sx: (value)"], 1); + }); + var cL = [0, 0]; + register + ("ed25519-verify", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b){ + var c = b[1]; + if(typeof c !== "number" && 3 === c[0]){ + var d = b[2]; + if(d){ + var e = d[1]; + if(typeof e !== "number" && 3 === e[0] && ! d[2]){ + var sg = e[1], msg = c[1], pk = a[1]; + try{var g = Sx_ed25519[38].call(null, pk, msg, sg), f = g;} + catch(exn){var f = 0;} + return [0, f]; + } + } + } + } + } + } + return cL; + }); + var cM = [0, 0]; + register + ("rsa-sha256-verify", + function(args){ + if(args){ + var a = args[1]; + if(typeof a !== "number" && 3 === a[0]){ + var b = args[2]; + if(b){ + var c = b[1]; + if(typeof c !== "number" && 3 === c[0]){ + var d = b[2]; + if(d){ + var e = d[1]; + if(typeof e !== "number" && 3 === e[0] && ! d[2]){ + var sg = e[1], msg = c[1], spki = a[1]; + try{var g = Sx_rsa[23].call(null, spki, msg, sg), f = g;} + catch(exn){var f = 0;} + return [0, f]; + } + } + } + } + } + } + return cM; + }); runtime.caml_register_global - (1082, + (1364, [0, primitives, sx_call_fn, @@ -49647,8 +56275,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 12900 "../lib/.sx.objs/jsoo/default/sx.cma.js" -//# shape: Sx_runtime:[F(2),F(1),F(1),F(1),F(1),F(2),F(2),F(2),F(1),F(2),F(3),F(2),F(1),F(1),F(1),F(1),F(2),F(2),F(2),F(1),F(1),F(2),F(2),F(1),F(2),F(1),F(1),F(1),F(2),F(2),F(2),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(2),F(2),F(3),F(3),F(3),F(2),F(2),F(1),F(1),F(3),F(2),F(2),F(1),F(1),F(2),F(1),F(1),F(1),F(2),F(2),F(3),F(1),F(1),F(2),F(1),F(2),F(1)*,F(1)*,F(1),F(2),F(2),F(3),F(3),F(1),F(1),F(2),F(2),F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1),F(1)*,F(1),F(1),F(2),F(1)*,F(2),F(1),F(1)*,F(2),F(1),F(1)*,F(1),F(4),F(2),F(1),F(1),F(2),F(2),F(1),N,F(2),N,N,F(1)*,F(1),F(2),F(2),F(2),F(1)*,F(2)*,F(1)*,F(1)*,F(2),F(4),F(2),F(2),F(2),F(2)*,F(1)*,N,N,N,N,F(1),N,F(1),F(1),F(2)] +//# 17871 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_runtime:[F(2),F(2),F(1),F(1),F(1),F(1),F(2),F(2),F(2),F(1),F(2),F(3),F(2),F(1),F(1),F(1),F(1),F(2),F(2),F(2),F(1),F(1),F(2),F(2),F(1),F(2),F(1),F(1),F(1),F(2),F(2),F(2),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(2),F(2),F(3),F(3),F(3),F(2),F(2),F(1),F(1),F(3),F(2),F(2),F(1),F(1),F(2),F(1),F(1),F(1),F(2),F(2),F(3),F(1),F(1),F(2),F(1),F(2),F(1)*,F(1)*,F(1),F(2),F(2),F(3),F(3),F(1),F(1),F(2),F(2),F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1)*,F(1),F(1)*,F(1),F(1),F(2),F(1)*,F(2),F(1),F(1)*,F(2),F(1),F(1)*,F(1),F(1),F(4),F(2),F(1),F(1),F(2),F(2),F(1),N,F(2),N,N,F(1)*,F(1),F(2),F(2),F(2),F(1)*,F(2)*,F(1)*,F(1)*,F(2),F(4),F(2),F(2),F(2),F(2)*,F(1)*,N,N,N,N,F(1),N,F(1),F(1),F(2)] (function (globalThis){ "use strict"; @@ -49656,6 +56284,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= runtime = globalThis.jsoo_runtime, caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace, caml_ml_string_length = runtime.caml_ml_string_length, + caml_mul = runtime.caml_mul, caml_string_compare = runtime.caml_string_compare, caml_wrap_exception = runtime.caml_wrap_exception; function caml_call1(f, a0){ @@ -49670,18 +56299,379 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var global_data = runtime.caml_get_global_data(), - Stdlib_Hashtbl = global_data.Stdlib__Hashtbl, - Stdlib_String = global_data.Stdlib__String, Stdlib_List = global_data.Stdlib__List, Stdlib = global_data.Stdlib, + Stdlib_Hashtbl = global_data.Stdlib__Hashtbl, + Stdlib_String = global_data.Stdlib__String, Sx_types = global_data.Sx_types, Sx_primitives = global_data.Sx_primitives, Stdlib_Array = global_data.Stdlib__Array; + function fast_eq(a, b){ + if(a === b) return 1; + a: + if(typeof a === "number"){ + if(0 === a && typeof b === "number" && ! b) return 1; + } + else{ + switch(a[0]){ + case 0: + if(typeof b === "number") break a; + if(0 !== b[0]) break a; + var y = b[1], x = a[1]; + return x === y ? 1 : 0; + case 1: + var x$0 = a[1]; + if(typeof b === "number") break a; + switch(b[0]){ + case 1: + var y$0 = b[1]; return x$0 === y$0 ? 1 : 0; + case 2: + var y$1 = b[1]; return x$0 === y$1 ? 1 : 0; + case 34: + var d = b[2], n = b[1]; return caml_mul(x$0, d) === n ? 1 : 0; + default: break a; + } + case 2: + var x$1 = a[1]; + if(typeof b === "number") break a; + switch(b[0]){ + case 1: + var y$2 = b[1]; return x$1 === y$2 ? 1 : 0; + case 2: + var y$3 = b[1]; return x$1 === y$3 ? 1 : 0; + case 34: + var d$0 = b[2], n$0 = b[1]; return x$1 === n$0 / d$0 ? 1 : 0; + default: break a; + } + case 3: + if(typeof b === "number") break a; + if(3 !== b[0]) break a; + var y$4 = b[1], x$2 = a[1]; + return x$2 === y$4 ? 1 : 0; + case 4: + if(typeof b === "number") break a; + if(4 !== b[0]) break a; + var y$5 = b[1], x$3 = a[1]; + return x$3 === y$5 ? 1 : 0; + case 5: + if(typeof b === "number") break a; + if(5 !== b[0]) break a; + var y$6 = b[1], x$4 = a[1]; + return x$4 === y$6 ? 1 : 0; + case 6: + var la = a[1]; break; + case 21: + var la = a[1][1]; break; + case 34: + var ad = a[2], an = a[1]; + if(typeof b === "number") break a; + switch(b[0]){ + case 1: + var y$7 = b[1]; return an === caml_mul(y$7, ad) ? 1 : 0; + case 2: + var y$8 = b[1]; return an / ad === y$8 ? 1 : 0; + case 34: + var bd = b[2], bn = b[1]; + return caml_mul(an, bd) === caml_mul(bn, ad) ? 1 : 0; + default: break a; + } + default: break a; + } + if(typeof b !== "number"){ + switch(b[0]){ + case 6: + var lb = b[1]; break; + case 21: + var lb = b[1][1]; break; + default: break a; + } + try{var c = Stdlib_List[35].call(null, fast_eq, la, lb); return c;} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] === Stdlib[6]) return 0; + throw caml_maybe_attach_backtrace(exn, 0); + } + } + } + return 0; + } + var + cst_empty = "empty?", + cst_first = "first", + cst_len = "len", + cst_rest = "rest", + a = [6, 0], + b = [6, 0], + c = [6, 0], + e = [1, 0], + f = [0, 1], + g = [0, 0], + h = [0, 1], + i = [0, 0], + j = [0, 1]; function prim_call(name, args){ + if(name !== "<"){ + if(name !== "<="){ + if(name !== "="){ + if(name !== ">"){ + if(name !== ">="){ + if(name !== cst_empty){ + if(name !== cst_first){ + if(name !== cst_len){ + if(name === cst_rest && args){ + var k = args[1]; + if(typeof k === "number"){ + if(0 === k && ! args[2]) return a; + } + else + switch(k[0]){ + case 6: + var N = k[1]; + if(N){ + if(! args[2]){var xs = N[2]; return [6, xs];} + } + else if(! args[2]) return b; + break; + case 21: + var O = k[1][1]; + if(O){ + if(! args[2]){var xs$0 = O[2]; return [6, xs$0];} + } + else if(! args[2]) return c; + break; + } + } + } + else if(args){ + var d = args[1]; + if(typeof d === "number"){ + if(0 === d && ! args[2]) return e; + } + else + switch(d[0]){ + case 3: + if(! args[2]){ + var s = d[1]; + return [1, caml_ml_string_length(s)]; + } + break; + case 6: + if(! args[2]){ + var l = d[1]; + return [1, Stdlib_List[1].call(null, l)]; + } + break; + case 21: + if(! args[2]){ + var r = d[1]; + return [1, Stdlib_List[1].call(null, r[1])]; + } + break; + } + } + } + else if(args){ + var m = args[1]; + if(typeof m === "number"){ + if(0 === m && ! args[2]) return 0; + } + else + switch(m[0]){ + case 6: + var P = m[1]; + if(P){ + if(! args[2]){var x = P[1]; return x;} + } + else if(! args[2]) return 0; + break; + case 21: + var Q = m[1][1]; + if(Q){ + if(! args[2]){var x$0 = Q[1]; return x$0;} + } + else if(! args[2]) return 0; + break; + } + } + } + else if(args){ + var n = args[1]; + if(typeof n === "number"){ + if(0 === n && ! args[2]) return f; + } + else + switch(n[0]){ + case 6: + if(n[1]){if(! args[2]) return g;} else if(! args[2]) return h; + break; + case 21: + if(n[1][1]){ + if(! args[2]) return i; + } + else if(! args[2]) return j; + break; + } + } + } + else if(args){ + var o = args[1]; + if(typeof o !== "number") + switch(o[0]){ + case 1: + var p = args[2]; + if(p){ + var q = p[1], x$1 = o[1]; + if(typeof q !== "number") + switch(q[0]){ + case 1: + if(! p[2]){var y = q[1]; return [0, y <= x$1 ? 1 : 0];} + break; + case 2: + if(! p[2]){var y$0 = q[1]; return [0, y$0 <= x$1 ? 1 : 0];} + break; + } + } + break; + case 2: + var t = args[2]; + if(t){ + var u = t[1], x$2 = o[1]; + if(typeof u !== "number") + switch(u[0]){ + case 1: + if(! t[2]){var y$1 = u[1]; return [0, y$1 <= x$2 ? 1 : 0];} + break; + case 2: + if(! t[2]){var y$2 = u[1]; return [0, y$2 <= x$2 ? 1 : 0];} + break; + } + } + break; + } + } + } + else if(args){ + var v = args[1]; + if(typeof v !== "number") + switch(v[0]){ + case 1: + var w = args[2]; + if(w){ + var z = w[1], x$3 = v[1]; + if(typeof z !== "number") + switch(z[0]){ + case 1: + if(! w[2]){var y$3 = z[1]; return [0, y$3 < x$3 ? 1 : 0];} + break; + case 2: + if(! w[2]){var y$4 = z[1]; return [0, y$4 < x$3 ? 1 : 0];} + break; + } + } + break; + case 2: + var A = args[2]; + if(A){ + var B = A[1], x$4 = v[1]; + if(typeof B !== "number") + switch(B[0]){ + case 1: + if(! A[2]){var y$5 = B[1]; return [0, y$5 < x$4 ? 1 : 0];} + break; + case 2: + if(! A[2]){var y$6 = B[1]; return [0, y$6 < x$4 ? 1 : 0];} + break; + } + } + break; + } + } + } + else if(args){ + var M = args[2]; + if(M && ! M[2]){ + var b$0 = M[1], a$0 = args[1]; + return [0, fast_eq(a$0, b$0)]; + } + } + } + else if(args){ + var C = args[1]; + if(typeof C !== "number") + switch(C[0]){ + case 1: + var D = args[2]; + if(D){ + var E = D[1], x$5 = C[1]; + if(typeof E !== "number") + switch(E[0]){ + case 1: + if(! D[2]){var y$7 = E[1]; return [0, x$5 <= y$7 ? 1 : 0];} + break; + case 2: + if(! D[2]){var y$8 = E[1]; return [0, x$5 <= y$8 ? 1 : 0];} + break; + } + } + break; + case 2: + var F = args[2]; + if(F){ + var G = F[1], x$6 = C[1]; + if(typeof G !== "number") + switch(G[0]){ + case 1: + if(! F[2]){var y$9 = G[1]; return [0, x$6 <= y$9 ? 1 : 0];} + break; + case 2: + if(! F[2]){var y$10 = G[1]; return [0, x$6 <= y$10 ? 1 : 0];} + break; + } + } + break; + } + } + } + else if(args){ + var H = args[1]; + if(typeof H !== "number") + switch(H[0]){ + case 1: + var I = args[2]; + if(I){ + var J = I[1], x$7 = H[1]; + if(typeof J !== "number") + switch(J[0]){ + case 1: + if(! I[2]){var y$11 = J[1]; return [0, x$7 < y$11 ? 1 : 0];} + break; + case 2: + if(! I[2]){var y$12 = J[1]; return [0, x$7 < y$12 ? 1 : 0];} + break; + } + } + break; + case 2: + var K = args[2]; + if(K){ + var L = K[1], x$8 = H[1]; + if(typeof L !== "number") + switch(L[0]){ + case 1: + if(! K[2]){var y$13 = L[1]; return [0, x$8 < y$13 ? 1 : 0];} + break; + case 2: + if(! K[2]){var y$14 = L[1]; return [0, x$8 < y$14 ? 1 : 0];} + break; + } + } + break; + } + } var match = Stdlib_Hashtbl[7].call(null, Sx_primitives[1], name); - if(match){var f = match[1]; return caml_call1(f, args);} - var a = Stdlib[28].call(null, "Unknown primitive: ", name); - throw caml_maybe_attach_backtrace([0, Sx_types[9], a], 1); + if(match){var f$0 = match[1]; return caml_call1(f$0, args);} + var R = Stdlib[28].call(null, "Unknown primitive: ", name); + throw caml_maybe_attach_backtrace([0, Sx_types[9], R], 1); } var cst = ""; function value_to_str(v){ @@ -49697,7 +56687,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 5: var s = v[1]; return s; } - return Sx_types[112].call(null, v); + return Sx_types[117].call(null, v); } function sx_to_string(v){return [3, value_to_str(v)];} function sx_str(args){ @@ -49714,7 +56704,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var r = v[1]; return r[1]; } var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call(null, "Expected list, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -49747,7 +56737,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[20].call (null, function(a){ - var s = Sx_types[112].call(null, a); + var s = Sx_types[117].call(null, a); if(40 >= caml_ml_string_length(s)) return s; var b = Stdlib_String[16].call(null, s, 0, 40); return Stdlib[28].call(null, b, ".."); @@ -49757,20 +56747,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= e = Stdlib[28].call(null, s, "]"), args_preview = Stdlib[28].call(null, " with args=[", e); var - a = Sx_types[112].call(null, f), + a = Sx_types[117].call(null, f), b = Stdlib[28].call(null, a, args_preview), c = Stdlib[28].call(null, "Not callable: ", b); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); } Sx_primitives[2][1] = sx_call; function sx_apply(f, args_list){return sx_call(f, sx_to_list(args_list));} - var cst_eval_error = "__eval_error__", a = [0, 1]; + var cst_eval_error = "__eval_error__", k = [0, 1]; function sx_apply_cek(f, args_list){ if(typeof f !== "number") switch(f[0]){ case 15: case 24: - try{var b = sx_apply(f, args_list); return b;} + try{var a = sx_apply(f, args_list); return a;} catch(e$0){ var e = caml_wrap_exception(e$0); if(e[1] === Sx_types[11]) throw caml_maybe_attach_backtrace(e, 0); @@ -49778,7 +56768,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(match){var marker = match[1]; return marker;} if(e[1] !== Sx_types[9]) throw caml_maybe_attach_backtrace(e, 0); var msg = e[2], d = Stdlib_Hashtbl[1].call(null, 0, 3); - Stdlib_Hashtbl[11].call(null, d, cst_eval_error, a); + Stdlib_Hashtbl[11].call(null, d, cst_eval_error, k); Stdlib_Hashtbl[11].call(null, d, "message", [3, msg]); return [7, d]; } @@ -49808,7 +56798,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return lst; } var - a = Sx_types[57].call(null, lst), + a = Sx_types[61].call(null, lst), b = Stdlib[28].call(null, "append!: expected list, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -49909,7 +56899,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, "dict-set! vm-frame: unknown field ", key$1); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); } - f$0[2] = Sx_types[90].call(null, v); + f$0[2] = Sx_types[94].call(null, v); return v; } break; @@ -49917,7 +56907,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof k !== "number" && 3 === k[0]){ var key$2 = k[1], m = d[1]; if(key$2 !== cst_frames){ - if(key$2 === cst_sp){m[2] = Sx_types[90].call(null, v); return v;} + if(key$2 === cst_sp){m[2] = Sx_types[94].call(null, v); return v;} if(key$2 !== cst_stack){ var e = @@ -49959,7 +56949,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cst_body = "body", cst_else = "else", cst_name = "name", - cst_type = "type"; + cst_type = "type", + l = [0, 1]; function get_val(container, key){ a: if(typeof container === "number"){if(0 === container) return 0;} @@ -49967,18 +56958,18 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cst_env = "env"; switch(container[0]){ case 6: - var l = container[1]; break; + var l$0 = container[1]; break; case 7: var d = container[1]; if(typeof key === "number") break a; switch(key[0]){ case 3: case 5: - var k = key[1]; return Sx_types[106].call(null, d, k); + var k = key[1]; return Sx_types[110].call(null, d, k); default: break a; } case 21: - var l = container[1][1]; break; + var l$0 = container[1][1]; break; case 22: if(typeof key === "number") break a; if(3 !== key[0]) break a; @@ -50063,21 +57054,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(k$2 === "vm-code"){ var c = cl[1], match$0 = c[6]; if(match$0) - var l$1 = match$0[1], bc = l$1; + var l$2 = match$0[1], bc = l$2; else{ var - h = Stdlib_Array[14].call(null, function(i){return [2, i];}, c[4]), - l$4 = Stdlib_Array[10].call(null, h); - c[6] = [0, l$4]; - var bc = l$4; + i = Stdlib_Array[14].call(null, function(i){return [2, i];}, c[4]), + l$5 = Stdlib_Array[10].call(null, i); + c[6] = [0, l$5]; + var bc = l$5; } var match$1 = c[7]; if(match$1) - var l$2 = match$1[1], consts = l$2; + var l$3 = match$1[1], consts = l$3; else{ - var l$3 = Stdlib_Array[10].call(null, c[5]); - c[7] = [0, l$3]; - var consts = l$3; + var l$4 = Stdlib_Array[10].call(null, c[5]); + c[7] = [0, l$4]; + var consts = l$4; } var d$0 = Stdlib_Hashtbl[1].call(null, 0, 4); Stdlib_Hashtbl[11].call(null, d$0, "vc-bytecode", [6, bc]); @@ -50091,8 +57082,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(k$2 !== "vm-name"){ if(k$2 !== "vm-upvalues") return 0; var - g = Stdlib_Array[14].call(null, function(uv){return uv[1];}, cl[2]); - return [6, Stdlib_Array[10].call(null, g)]; + h = Stdlib_Array[14].call(null, function(uv){return uv[1];}, cl[2]); + return [6, Stdlib_Array[10].call(null, h)]; } var match = cl[3]; if(! match) return 0; @@ -50123,24 +57114,42 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= : [6, Stdlib_List[20].call (null, function(f){return [25, f];}, m[3])]; + case 38: + var a = container[1]; + if(typeof key === "number") break a; + switch(key[0]){ + case 3: + case 5: + var k$5 = key[1]; + return k$5 !== "_adt" + ? k$5 + !== "_ctor" + ? k$5 + !== "_fields" + ? k$5 !== "_type" ? 0 : [3, a[1]] + : [6, Stdlib_Array[10].call(null, a[3])] + : [3, a[2]] + : l; + default: break a; + } default: break a; } if(typeof key !== "number" && 2 === key[0]){ var n$0 = key[1]; - try{var b = Stdlib_List[8].call(null, l, n$0 | 0); return b;} + try{var g = Stdlib_List[8].call(null, l$0, n$0 | 0); return g;} catch(exn){return 0;} } if(typeof container !== "number"){ switch(container[0]){ case 6: - var l$0 = container[1]; break; + var l$1 = container[1]; break; case 21: - var l$0 = container[1][1]; break; + var l$1 = container[1][1]; break; default: break a; } if(typeof key !== "number" && 1 === key[0]){ var n = key[1]; - try{var a = Stdlib_List[8].call(null, l$0, n); return a;} + try{var b = Stdlib_List[8].call(null, l$1, n); return b;} catch(exn){return 0;} } } @@ -50177,8 +57186,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var f = match[1]; return f; } - function first(args){return caml_call1(prim("first"), [0, args, 0]);} - function rest(args){return caml_call1(prim("rest"), [0, args, 0]);} + function first(args){return caml_call1(prim(cst_first), [0, args, 0]);} + function rest(args){return caml_call1(prim(cst_rest), [0, args, 0]);} function last(args){return caml_call1(prim("last"), [0, args, 0]);} function nth(coll, i){ return caml_call1(prim("nth"), [0, coll, [0, i, 0]]); @@ -50193,7 +57202,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return caml_call1(prim("concat"), [0, a, [0, b, 0]]); } function slice(a, b){return caml_call1(prim("slice"), [0, a, [0, b, 0]]);} - function len(a){return caml_call1(prim("len"), [0, a, 0]);} + function len(a){return caml_call1(prim(cst_len), [0, a, 0]);} function get(a, b){return get_val(a, b);} function sort(a){return caml_call1(prim("sort"), [0, a, 0]);} function range(a){return caml_call1(prim("range"), [0, a, 0]);} @@ -50202,7 +57211,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function take(a, b){return caml_call1(prim("take"), [0, a, [0, b, 0]]);} function drop(a, b){return caml_call1(prim("drop"), [0, a, [0, b, 0]]);} function keyword_p(a){return caml_call1(prim("keyword?"), [0, a, 0]);} - function empty_p(a){return caml_call1(prim("empty?"), [0, a, 0]);} + function empty_p(a){return caml_call1(prim(cst_empty), [0, a, 0]);} function number_p(a){return caml_call1(prim("number?"), [0, a, 0]);} function string_p(a){return caml_call1(prim("string?"), [0, a, 0]);} function boolean_p(a){return caml_call1(prim("boolean?"), [0, a, 0]);} @@ -50256,14 +57265,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = value_to_str(msg); throw caml_maybe_attach_backtrace([0, Sx_types[9], a], 1); } - function inspect(v){return [3, Sx_types[112].call(null, v)];} + function inspect(v){return [3, Sx_types[117].call(null, v)];} function apply(f, args){return sx_apply(f, args);} function spread_attrs(a){ return caml_call1(prim("spread-attrs"), [0, a, 0]); } function sx_context(a, b){return prim_call("context", [0, a, [0, b, 0]]);} function trampoline(v){return v;} - function type_of(v){return [3, Sx_types[57].call(null, v)];} + function type_of(v){return [3, Sx_types[61].call(null, v)];} function unwrap_env(v){ if(typeof v === "number"){ if(0 === v) return Sx_types[20].call(null, 0); @@ -50281,7 +57290,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var e$0 = v[1]; return e$0; } var - a = Sx_types[57].call(null, v), + a = Sx_types[61].call(null, v), b = Stdlib[28].call(null, "Expected env, got ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -50312,16 +57321,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } function set_lambda_name(l, n){ var a = value_to_str(n); - return Sx_types[74].call(null, l, a); + return Sx_types[78].call(null, l, a); } - function is_nil(v){return [0, Sx_types[58].call(null, v)];} - function is_thunk(v){return [0, Sx_types[63].call(null, v)];} - function is_lambda(v){return [0, Sx_types[59].call(null, v)];} - function is_component(v){return [0, Sx_types[60].call(null, v)];} - function is_island(v){return [0, Sx_types[61].call(null, v)];} - function is_macro(v){return [0, Sx_types[62].call(null, v)];} - function is_signal(v){return [0, Sx_types[64].call(null, v)];} - function is_callable(v){return [0, Sx_types[66].call(null, v)];} + function is_nil(v){return [0, Sx_types[62].call(null, v)];} + function is_thunk(v){return [0, Sx_types[67].call(null, v)];} + function is_lambda(v){return [0, Sx_types[63].call(null, v)];} + function is_component(v){return [0, Sx_types[64].call(null, v)];} + function is_island(v){return [0, Sx_types[65].call(null, v)];} + function is_macro(v){return [0, Sx_types[66].call(null, v)];} + function is_signal(v){return [0, Sx_types[68].call(null, v)];} + function is_callable(v){return [0, Sx_types[70].call(null, v)];} function is_primitive(name){ var a = value_to_str(name); return [0, Sx_primitives[14].call(null, a)]; @@ -50336,10 +57345,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, function(i, x){sx_call(fn, [0, [2, i], [0, x, 0]]); return 0;}, a); return 0; } - var b = [0, 0], c = [0, 1]; + var m = [0, 0], n = [0, 1]; function continuation_p(v){ - if(typeof v !== "number" && 13 === v[0]) return c; - return b; + if(typeof v !== "number" && 13 === v[0]) return n; + return m; } function make_cek_continuation(captured, rest_kont){ var data = Stdlib_Hashtbl[1].call(null, 0, 2); @@ -50357,10 +57366,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "not a continuation"], 1); } - var e = [0, 0], f = [0, 1]; + var o = [0, 0], p = [0, 1]; function callcc_continuation_p(v){ - if(typeof v !== "number" && 14 === v[0]) return f; - return e; + if(typeof v !== "number" && 14 === v[0]) return p; + return o; } function make_callcc_continuation(captured, winders_len){ a: @@ -50381,15 +57390,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace ([0, Sx_types[9], "not a callcc continuation"], 1); } - var g = [2, 0.]; + var q = [2, 0.]; function callcc_continuation_winders_le(v){ if(typeof v !== "number" && 14 === v[0]){var n = v[2]; return [2, n];} - return g; + return q; } function host_error(msg){ var a = value_to_str(msg); throw caml_maybe_attach_backtrace([0, Sx_types[9], a], 1); } + function host_warn(msg){ + var a = value_to_str(msg); + Stdlib[53].call(null, a); + return 0; + } function dynamic_wind_call(before, body, after, env){ sx_call(before, 0); var result = sx_call(body, 0); @@ -50419,18 +57433,18 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_Hashtbl[11].call(null, tbl, a, handler); return handler; } - var h = [0, 0], i = [0, 1]; + var r = [0, 0], s = [0, 1]; function is_else_clause(v){ if(typeof v !== "number"){ var cst_default = "default"; switch(v[0]){ case 0: - if(v[1]) return i; break; + if(v[1]) return s; break; case 4: var - s = v[1], - a = s === cst_else ? 1 : 0, - b = a || (s === cst_default ? 1 : 0); + s$0 = v[1], + a = s$0 === cst_else ? 1 : 0, + b = a || (s$0 === cst_default ? 1 : 0); return [0, b]; case 5: var @@ -50440,7 +57454,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return [0, d]; } } - return h; + return r; } function signal_value(s){ if(typeof s !== "number") @@ -50513,33 +57527,33 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } function register_in_scope(dispose_fn){return 0;} function component_set_param_types_b(comp, types){return 0;} - var j = [6, [0, [6, 0], [0, 0, [0, [0, 0], 0]]]]; - function parse_comp_params(params){return j;} - var k = [6, [0, [6, 0], [0, 0, 0]]]; - function parse_macro_params(params){return k;} - var l = [0, [6, 0], 0]; + var t = [6, [0, [6, 0], [0, 0, [0, [0, 0], 0]]]]; + function parse_comp_params(params){return t;} + var u = [6, [0, [6, 0], [0, 0, 0]]]; + function parse_macro_params(params){return u;} + var v = [0, [6, 0], 0]; function parse_keyword_args(raw_args, env){ - return [6, [0, [7, Stdlib_Hashtbl[1].call(null, 0, 0)], l]]; + return [6, [0, [7, Stdlib_Hashtbl[1].call(null, 0, 0)], v]]; } - var m = [3, "handler"]; + var w = [3, "handler"]; function make_handler_def(name, params, body, env){ var d = Stdlib_Hashtbl[1].call(null, 0, 4); - Stdlib_Hashtbl[11].call(null, d, cst_type, m); + Stdlib_Hashtbl[11].call(null, d, cst_type, w); Stdlib_Hashtbl[11].call(null, d, cst_name, name); Stdlib_Hashtbl[11].call(null, d, "params", params); Stdlib_Hashtbl[11].call(null, d, cst_body, body); return [7, d]; } - var n = [3, "page"]; + var x = [3, "page"]; function make_page_def(name, opts){ var d = Stdlib_Hashtbl[1].call(null, 0, 4); - Stdlib_Hashtbl[11].call(null, d, cst_type, n); + Stdlib_Hashtbl[11].call(null, d, cst_type, x); Stdlib_Hashtbl[11].call(null, d, cst_name, name); return [7, d]; } - var o = [2, 1.]; + var y = [2, 1.]; function sf_defhandler(args, env){ - var name = first(args), rest_args = rest(args), a = nth(rest_args, o); + var name = first(args), rest_args = rest(args), a = nth(rest_args, y); return make_handler_def(name, first(rest_args), a, env); } function strip_prefix(s, prefix){ @@ -50605,8 +57619,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return jit_skip_sentinel; } runtime.caml_register_global - (211, + (234, [0, + fast_eq, prim_call, value_to_str, sx_to_string, @@ -50708,6 +57723,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= callcc_continuation_data, callcc_continuation_winders_le, host_error, + host_warn, dynamic_wind_call, scope_push, scope_pop, @@ -50749,8 +57765,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 14003 "../lib/.sx.objs/jsoo/default/sx.cma.js" -//# shape: Sx_ref:[N,F(1),N,N,N,N,F(1),F(3)*,F(3)*,F(3),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(3)*,F(2)*,F(2)*,F(4)*,F(4)*,F(3)*,F(2)*,F(6)*,F(3)*,F(3)*,F(2)*,F(3)*,F(4)*,F(3),F(3),F(4)*,F(4)*,F(4)*,F(5)*,F(3)*,F(3)*,F(3)*,F(3)*,F(3)*,F(4)*,F(3)*,F(2)*,F(4)*,F(1)*,F(3)*,F(2)*,F(2)*,F(4)*,F(3)*,F(1)*,F(3)*,F(2)*,F(1)*,F(4)*,F(2)*,F(1),F(3)*,F(3)*,F(2)*,F(2)*,F(2)*,F(1)*,F(2)*,F(3)*,F(5)*,F(2),F(2),F(2),F(1),F(2),F(2),F(1),F(2),F(1),F(1),F(1),F(1),F(3),F(2),F(2),F(1),F(1),N,F(2),N,N,N,N,N,N,N,N,N,N,N,N,N,F(1),F(1),F(1),F(2),N,F(2),F(1),F(1),F(1),N,F(2),F(1),F(1),F(1),F(1),F(2),F(1),F(3),F(1),F(2),F(3),F(2),F(2),F(3),N,N,F(1),N,N,F(1),F(2),F(2),F(3),F(3),F(3),F(2),F(1),F(1),F(2),F(2),F(2),F(3),F(1),F(2),F(2),F(2),F(2),F(1),F(2),F(2),F(3),F(3),F(2),F(2),F(3),F(1),F(1),F(2),F(1),F(1),F(3),F(3),F(3),F(3),F(3),F(3),F(1),F(1),F(1),F(1),F(3),F(3),F(3),F(5),F(2),F(2),F(2),F(3),F(3),F(3),F(2),F(3),F(2),F(3),F(3),F(2),F(2),F(2),F(2),F(1),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(2),F(3),F(4),F(1),F(1)*,F(2),F(4),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(1),F(5),F(4),F(2),F(1),F(1)*,F(2),F(1),F(1),F(1),F(1),F(2),F(1),F(1),F(2),F(2),F(2),F(2),F(2),F(1),F(1)] +//# 19362 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_ref:[N,F(1),N,N,N,N,F(1),F(3)*,F(3)*,F(3),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(1),F(3)*,F(2)*,F(2)*,F(4)*,F(4)*,F(3)*,F(2)*,F(6)*,F(3)*,F(3)*,F(2)*,F(3)*,F(4)*,F(3),F(3),F(4)*,F(4)*,F(4)*,F(5)*,F(3)*,F(3)*,F(3)*,F(3)*,F(3)*,F(4)*,F(3)*,F(2)*,F(4)*,F(1)*,F(3)*,F(2)*,F(2)*,F(4)*,F(3)*,F(1)*,F(3)*,F(2)*,F(1)*,F(4)*,F(2)*,F(1),F(3)*,F(3)*,F(2)*,F(2)*,F(2)*,F(1)*,F(2)*,F(3)*,F(5)*,F(2),F(2),F(2),F(1),F(2),F(2),F(1),F(2),F(1),F(1),F(1),F(1),F(3),F(2),F(2),F(1),F(1),N,F(2),N,N,N,N,N,N,N,N,N,N,N,N,N,F(1),F(1),F(1),F(2),N,F(2),F(1),F(1),F(1),N,F(2),F(1),F(1),F(1),F(1),F(2),F(1),F(3),F(1),F(2),F(3),F(2),F(2),F(3),N,N,F(1),N,N,F(1),F(2),F(2),F(3),F(3),F(3),F(2),F(1),F(1),F(2),F(2),F(2),F(3),F(1),F(2),F(2),F(2),F(2),F(1),F(2),F(2),F(3),F(3),F(2),F(2),F(3),F(1),F(1),F(2),F(1),F(1),F(3),F(3),F(3),F(3),F(3),F(3),F(1),F(1),F(1),F(1),F(3),F(3),F(3),F(5),F(2),F(2),F(2),F(3),F(3),F(3),F(2),F(3),F(2),F(3),F(3),F(2),F(2),F(2),F(2),F(1),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(2),F(3),F(4),F(1),F(1)*,F(2),F(4),F(3),F(3),F(3),F(3),F(3),F(3),F(3),F(1),F(5),F(4),F(2),F(1),F(1)*,F(2),F(1),F(1),F(1),F(1),F(2),F(1),F(1),F(2),F(2),F(2),F(2),F(2),F(1),F(1)] (function (globalThis){ "use strict"; @@ -50778,9 +57794,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Sx_runtime = global_data.Sx_runtime, Sx_types = global_data.Sx_types, Stdlib_List = global_data.Stdlib__List, + Stdlib_String = global_data.Stdlib__String, Stdlib = global_data.Stdlib, Stdlib_Printf = global_data.Stdlib__Printf, - Stdlib_String = global_data.Stdlib__String, Stdlib_Array = global_data.Stdlib__Array, Sx_primitives = global_data.Sx_primitives, trampoline_fn = [0, function(v){return v;}]; @@ -50842,29 +57858,29 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= f = [3, cst_kont]; function cek_terminal_p(state){ var - a = [0, Sx_runtime[25].call(null, state, e), d], - and = Sx_runtime[1].call(null, cst, a); - if(! Sx_types[67].call(null, and)) return and; - var b = Sx_runtime[25].call(null, state, f); - return Sx_runtime[33].call(null, b); + a = [0, Sx_runtime[26].call(null, state, e), d], + and = Sx_runtime[2].call(null, cst, a); + if(! Sx_types[71].call(null, and)) return and; + var b = Sx_runtime[26].call(null, state, f); + return Sx_runtime[34].call(null, b); } var g = [0, [3, cst_io_suspended], 0], h = [3, cst_phase]; function cek_suspended_p(state){ - var a = [0, Sx_runtime[25].call(null, state, h), g]; - return Sx_runtime[1].call(null, cst, a); + var a = [0, Sx_runtime[26].call(null, state, h), g]; + return Sx_runtime[2].call(null, cst, a); } var i = [3, "control"]; - function cek_control(s){return Sx_runtime[25].call(null, s, i);} + function cek_control(s){return Sx_runtime[26].call(null, s, i);} var j = [3, cst_env]; - function cek_env(s){return Sx_runtime[25].call(null, s, j);} + function cek_env(s){return Sx_runtime[26].call(null, s, j);} var k = [3, cst_kont]; - function cek_kont(s){return Sx_runtime[25].call(null, s, k);} + function cek_kont(s){return Sx_runtime[26].call(null, s, k);} var l = [3, cst_phase]; - function cek_phase(s){return Sx_runtime[25].call(null, s, l);} + function cek_phase(s){return Sx_runtime[26].call(null, s, l);} var m = [3, cst_request]; - function cek_io_request(s){return Sx_runtime[25].call(null, s, m);} + function cek_io_request(s){return Sx_runtime[26].call(null, s, m);} var cst_value = "value", n = [3, cst_value]; - function cek_value(s){return Sx_runtime[25].call(null, s, n);} + function cek_value(s){return Sx_runtime[26].call(null, s, n);} var cst_if = "if"; function make_if_frame(then_expr, else_expr, env){ return [23, [0, cst_if, env, else_expr, then_expr, 0, 0, 0, 0, 0, 0]]; @@ -50906,7 +57922,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var cst_arg = "arg"; function make_arg_frame(f, evaled, remaining, env, raw_args, head_name){ - var head_name$0 = Sx_types[67].call(null, head_name) ? head_name : 0; + var head_name$0 = Sx_types[71].call(null, head_name) ? head_name : 0; return [23, [0, cst_arg, @@ -50947,16 +57963,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= q = [4, cst_quote]; function thread_insert_arg(form, value, fenv){ var - a = [0, Sx_runtime[73].call(null, form), o], - b = Sx_runtime[1].call(null, cst, a); - if(! Sx_types[67].call(null, b)) + a = [0, Sx_runtime[74].call(null, form), o], + b = Sx_runtime[2].call(null, cst, a); + if(! Sx_types[71].call(null, b)) return eval_expr ([6, [0, form, [0, [6, [0, q, [0, value, 0]]], 0]]], fenv); var - c = Sx_runtime[15].call(null, form), - d = Sx_runtime[18].call(null, [6, [0, p, [0, value, 0]]], c), - e = Sx_runtime[14].call(null, form); - return eval_expr(Sx_runtime[18].call(null, e, d), fenv); + c = Sx_runtime[16].call(null, form), + d = Sx_runtime[19].call(null, [6, [0, p, [0, value, 0]]], c), + e = Sx_runtime[15].call(null, form); + return eval_expr(Sx_runtime[19].call(null, e, d), fenv); } var cst_append = "append", @@ -50965,11 +57981,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= t = [4, cst_quote]; function thread_insert_arg_last(form, value, fenv){ var - a = [0, Sx_runtime[73].call(null, form), r], - b = Sx_runtime[1].call(null, cst, a); - return Sx_types[67].call(null, b) + a = [0, Sx_runtime[74].call(null, form), r], + b = Sx_runtime[2].call(null, cst, a); + return Sx_types[71].call(null, b) ? eval_expr - (Sx_runtime[1].call + (Sx_runtime[2].call (null, cst_append, [0, form, [0, [6, [0, [6, [0, s, [0, value, 0]]], 0]], 0]]), @@ -51049,7 +58065,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var cst_scope_acc = "scope-acc", x = [6, 0]; function make_scope_acc_frame(name, value, remaining, env){ - var value$0 = Sx_types[67].call(null, value) ? value : 0; + var value$0 = Sx_types[71].call(null, value) ? value : 0; return [23, [0, cst_scope_acc, env, name, 0, remaining, 0, 0, 0, value$0, x]]; } @@ -51145,23 +58161,23 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_collect_comp_trace(kont$1){ var kont = kont$1; for(;;){ - var a = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, a)) return y; + var a = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, a)) return y; var - frame = Sx_runtime[14].call(null, kont), + frame = Sx_runtime[15].call(null, kont), b = [0, frame_type(frame), z], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)){ + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)){ var - e = kont_collect_comp_trace(Sx_runtime[15].call(null, kont)), + e = kont_collect_comp_trace(Sx_runtime[16].call(null, kont)), d = Stdlib_Hashtbl[1].call(null, 0, 2), - f = Sx_runtime[25].call(null, frame, A); + f = Sx_runtime[26].call(null, frame, A); Stdlib_Hashtbl[11].call(null, d, cst_file, f); - var g = Sx_runtime[25].call(null, frame, B); + var g = Sx_runtime[26].call(null, frame, B); Stdlib_Hashtbl[11].call(null, d, cst_name, g); - return Sx_runtime[18].call(null, [7, d], e); + return Sx_runtime[19].call(null, [7, d], e); } - var kont$0 = Sx_runtime[15].call(null, kont); + var kont$0 = Sx_runtime[16].call(null, kont); kont = kont$0; } } @@ -51218,15 +58234,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function find_matching_handler(handlers$1, condition){ var handlers = handlers$1; for(;;){ - var a = Sx_runtime[33].call(null, handlers); - if(Sx_types[67].call(null, a)) return 0; + var a = Sx_runtime[34].call(null, handlers); + if(Sx_types[71].call(null, a)) return 0; var - pair = Sx_runtime[14].call(null, handlers), - pred = Sx_runtime[14].call(null, pair), - handler_fn = Sx_runtime[17].call(null, pair, C), + pair = Sx_runtime[15].call(null, handlers), + pred = Sx_runtime[15].call(null, pair), + handler_fn = Sx_runtime[18].call(null, pair, C), b = cek_call(pred, [6, [0, condition, 0]]); - if(Sx_types[67].call(null, b)) return handler_fn; - var handlers$0 = Sx_runtime[15].call(null, handlers); + if(Sx_types[71].call(null, b)) return handler_fn; + var handlers$0 = Sx_runtime[16].call(null, handlers); handlers = handlers$0; } } @@ -51234,22 +58250,22 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_find_handler(kont$2, condition){ var kont = kont$2; for(;;){ - var a = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, a)) return 0; + var a = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, a)) return 0; var - frame = Sx_runtime[14].call(null, kont), + frame = Sx_runtime[15].call(null, kont), b = [0, frame_type(frame), D], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)){ + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)){ var match = - find_matching_handler(Sx_runtime[25].call(null, frame, E), condition), - d = Sx_runtime[83].call(null, match); - if(! Sx_types[67].call(null, d)) return match; - var kont$0 = Sx_runtime[15].call(null, kont); + find_matching_handler(Sx_runtime[26].call(null, frame, E), condition), + d = Sx_runtime[84].call(null, match); + if(! Sx_types[71].call(null, d)) return match; + var kont$0 = Sx_runtime[16].call(null, kont); kont = kont$0; } - else{var kont$1 = Sx_runtime[15].call(null, kont); kont = kont$1;} + else{var kont$1 = Sx_runtime[16].call(null, kont); kont = kont$1;} } } var @@ -51266,24 +58282,24 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_unwind_to_handler(kont$0, condition){ var kont = kont$0; for(;;){ - var a = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, a)){ + var a = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, a)){ var d = Stdlib_Hashtbl[1].call(null, 0, 2); Stdlib_Hashtbl[11].call(null, d, cst_handler, 0); Stdlib_Hashtbl[11].call(null, d, cst_kont, kont); return [7, d]; } var - frame = Sx_runtime[14].call(null, kont), - rest_k = Sx_runtime[15].call(null, kont), + frame = Sx_runtime[15].call(null, kont), + rest_k = Sx_runtime[16].call(null, kont), b = [0, frame_type(frame), F], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)){ + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)){ var match = - find_matching_handler(Sx_runtime[25].call(null, frame, G), condition), - e = Sx_runtime[83].call(null, match); - if(! Sx_types[67].call(null, e)){ + find_matching_handler(Sx_runtime[26].call(null, frame, G), condition), + e = Sx_runtime[84].call(null, match); + if(! Sx_types[71].call(null, e)){ var d$0 = Stdlib_Hashtbl[1].call(null, 0, 2); Stdlib_Hashtbl[11].call(null, d$0, cst_handler, match); Stdlib_Hashtbl[11].call(null, d$0, cst_kont, kont); @@ -51292,15 +58308,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= kont = rest_k; } else{ - var f = [0, frame_type(frame), H], g = Sx_runtime[1].call(null, cst, f); - if(Sx_types[67].call(null, g)){ + var f = [0, frame_type(frame), H], g = Sx_runtime[2].call(null, cst, f); + if(Sx_types[71].call(null, g)){ var - h = [0, Sx_runtime[25].call(null, frame, I), 0], - i = [0, Sx_runtime[24].call(null, winders_ref[1]), h], - j = Sx_runtime[1].call(null, cst$0, i); - if(Sx_types[67].call(null, j)) - winders_ref[1] = Sx_runtime[15].call(null, winders_ref[1]); - cek_call(Sx_runtime[25].call(null, frame, K), J); + h = [0, Sx_runtime[26].call(null, frame, I), 0], + i = [0, Sx_runtime[25].call(null, winders_ref[1]), h], + j = Sx_runtime[2].call(null, cst$0, i); + if(Sx_types[71].call(null, j)) + winders_ref[1] = Sx_runtime[16].call(null, winders_ref[1]); + cek_call(Sx_runtime[26].call(null, frame, K), J); kont = rest_k; } else @@ -51312,25 +58328,25 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function wind_escape_to(target_len){ for(;;){ var - a = [0, Sx_runtime[24].call(null, winders_ref[1]), [0, target_len, 0]], - b = Sx_runtime[1].call(null, cst$0, a); - if(! Sx_types[67].call(null, b)) return 0; - var after_thunk = Sx_runtime[14].call(null, winders_ref[1]); - winders_ref[1] = Sx_runtime[15].call(null, winders_ref[1]); + a = [0, Sx_runtime[25].call(null, winders_ref[1]), [0, target_len, 0]], + b = Sx_runtime[2].call(null, cst$0, a); + if(! Sx_types[71].call(null, b)) return 0; + var after_thunk = Sx_runtime[15].call(null, winders_ref[1]); + winders_ref[1] = Sx_runtime[16].call(null, winders_ref[1]); cek_call(after_thunk, L); } } function find_named_restart(restarts$1, name){ var restarts = restarts$1; for(;;){ - var a = Sx_runtime[33].call(null, restarts); - if(Sx_types[67].call(null, a)) return 0; + var a = Sx_runtime[34].call(null, restarts); + if(Sx_types[71].call(null, a)) return 0; var - entry = Sx_runtime[14].call(null, restarts), - b = [0, Sx_runtime[14].call(null, entry), [0, name, 0]], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)) return entry; - var restarts$0 = Sx_runtime[15].call(null, restarts); + entry = Sx_runtime[15].call(null, restarts), + b = [0, Sx_runtime[15].call(null, entry), [0, name, 0]], + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)) return entry; + var restarts$0 = Sx_runtime[16].call(null, restarts); restarts = restarts$0; } } @@ -51338,33 +58354,33 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_find_restart(kont$2, name){ var kont = kont$2; for(;;){ - var a = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, a)) return 0; + var a = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, a)) return 0; var - frame = Sx_runtime[14].call(null, kont), + frame = Sx_runtime[15].call(null, kont), b = [0, frame_type(frame), M], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)){ + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)){ var - match = find_named_restart(Sx_runtime[25].call(null, frame, N), name), - d = Sx_runtime[83].call(null, match); - if(! Sx_types[67].call(null, d)) + match = find_named_restart(Sx_runtime[26].call(null, frame, N), name), + d = Sx_runtime[84].call(null, match); + if(! Sx_types[71].call(null, d)) return [6, - [0, match, [0, frame, [0, Sx_runtime[15].call(null, kont), 0]]]]; - var kont$0 = Sx_runtime[15].call(null, kont); + [0, match, [0, frame, [0, Sx_runtime[16].call(null, kont), 0]]]]; + var kont$0 = Sx_runtime[16].call(null, kont); kont = kont$0; } - else{var kont$1 = Sx_runtime[15].call(null, kont); kont = kont$1;} + else{var kont$1 = Sx_runtime[16].call(null, kont); kont = kont$1;} } } var cst_type = "type", O = [3, cst_type]; - function frame_type(f){return Sx_runtime[25].call(null, f, O);} + function frame_type(f){return Sx_runtime[26].call(null, f, O);} function kont_push(frame, kont){ - return Sx_runtime[18].call(null, frame, kont); + return Sx_runtime[19].call(null, frame, kont); } - function kont_top(kont){return Sx_runtime[14].call(null, kont);} - function kont_pop(kont){return Sx_runtime[15].call(null, kont);} - function kont_empty_p(kont){return Sx_runtime[33].call(null, kont);} + function kont_top(kont){return Sx_runtime[15].call(null, kont);} + function kont_pop(kont){return Sx_runtime[16].call(null, kont);} + function kont_empty_p(kont){return Sx_runtime[34].call(null, kont);} var captured = [6, 0], P = [3, "shift without enclosing reset"], @@ -51373,28 +58389,28 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_capture_to_reset(kont){ var k = kont, captured$0 = captured; for(;;){ - var a = Sx_runtime[33].call(null, k); - if(Sx_types[67].call(null, a)){ - var b = Sx_runtime[2].call(null, P); + var a = Sx_runtime[34].call(null, k); + if(Sx_types[71].call(null, a)){ + var b = Sx_runtime[3].call(null, P); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } var - frame = Sx_runtime[14].call(null, k), + frame = Sx_runtime[15].call(null, k), c = [0, frame_type(frame), Q], - or = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, or)) + or = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, or)) var or$0 = or; else var d = [0, frame_type(frame), R], - or$0 = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, or$0)) - return [6, [0, captured$0, [0, Sx_runtime[15].call(null, k), 0]]]; + or$0 = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, or$0)) + return [6, [0, captured$0, [0, Sx_runtime[16].call(null, k), 0]]]; var captured$1 = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, captured$0, [0, [6, [0, frame, 0]], 0]]), - k$0 = Sx_runtime[15].call(null, k); + k$0 = Sx_runtime[16].call(null, k); k = k$0; captured$0 = captured$1; } @@ -51403,14 +58419,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_push_provides(pairs$1, env, kont$1){ var pairs = pairs$1, kont = kont$1; for(;;){ - var a = Sx_runtime[33].call(null, pairs); - if(Sx_types[67].call(null, a)) return kont; + var a = Sx_runtime[34].call(null, pairs); + if(Sx_types[71].call(null, a)) return kont; var - pair = Sx_runtime[14].call(null, pairs), - b = Sx_runtime[17].call(null, pair, T), - c = make_provide_frame(Sx_runtime[14].call(null, pair), b, S, env), - kont$0 = Sx_runtime[18].call(null, c, kont), - pairs$0 = Sx_runtime[15].call(null, pairs); + pair = Sx_runtime[15].call(null, pairs), + b = Sx_runtime[18].call(null, pair, T), + c = make_provide_frame(Sx_runtime[15].call(null, pair), b, S, env), + kont$0 = Sx_runtime[19].call(null, c, kont), + pairs$0 = Sx_runtime[16].call(null, pairs); pairs = pairs$0; kont = kont$0; } @@ -51419,20 +58435,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_find_provide(kont$1, name){ var kont = kont$1; for(;;){ - var b = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, b)) return 0; + var b = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, b)) return 0; var - frame = Sx_runtime[14].call(null, kont), + frame = Sx_runtime[15].call(null, kont), c = [0, frame_type(frame), U], - and = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and)) + and = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and)) var - d = [0, Sx_runtime[25].call(null, frame, V), [0, name, 0]], - a = Sx_runtime[1].call(null, cst, d); + d = [0, Sx_runtime[26].call(null, frame, V), [0, name, 0]], + a = Sx_runtime[2].call(null, cst, d); else var a = and; - if(Sx_types[67].call(null, a)) return frame; - var kont$0 = Sx_runtime[15].call(null, kont); + if(Sx_types[71].call(null, a)) return frame; + var kont$0 = Sx_runtime[16].call(null, kont); kont = kont$0; } } @@ -51440,20 +58456,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_find_scope_acc(kont$1, name){ var kont = kont$1; for(;;){ - var b = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, b)) return 0; + var b = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, b)) return 0; var - frame = Sx_runtime[14].call(null, kont), + frame = Sx_runtime[15].call(null, kont), c = [0, frame_type(frame), W], - and = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and)) + and = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and)) var - d = [0, Sx_runtime[25].call(null, frame, X), [0, name, 0]], - a = Sx_runtime[1].call(null, cst, d); + d = [0, Sx_runtime[26].call(null, frame, X), [0, name, 0]], + a = Sx_runtime[2].call(null, cst, d); else var a = and; - if(Sx_types[67].call(null, a)) return frame; - var kont$0 = Sx_runtime[15].call(null, kont); + if(Sx_types[71].call(null, a)) return frame; + var kont$0 = Sx_runtime[16].call(null, kont); kont = kont$0; } } @@ -51461,13 +58477,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function has_reactive_reset_frame_p(kont$1){ var kont = kont$1; for(;;){ - var a = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, a)) return Y; + var a = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, a)) return Y; var - b = [0, frame_type(Sx_runtime[14].call(null, kont)), Z], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)) return _; - var kont$0 = Sx_runtime[15].call(null, kont); + b = [0, frame_type(Sx_runtime[15].call(null, kont)), Z], + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)) return _; + var kont$0 = Sx_runtime[16].call(null, kont); kont = kont$0; } } @@ -51478,35 +58494,35 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function kont_capture_to_reactive_reset(kont){ var k = kont, captured = captured$0; for(;;){ - var a = Sx_runtime[33].call(null, k); - if(Sx_types[67].call(null, a)){ - var b = Sx_runtime[2].call(null, $); + var a = Sx_runtime[34].call(null, k); + if(Sx_types[71].call(null, a)){ + var b = Sx_runtime[3].call(null, $); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } var - frame = Sx_runtime[14].call(null, k), + frame = Sx_runtime[15].call(null, k), c = [0, frame_type(frame), aa], - d = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, d)) + d = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, d)) return [6, - [0, captured, [0, frame, [0, Sx_runtime[15].call(null, k), 0]]]]; + [0, captured, [0, frame, [0, Sx_runtime[16].call(null, k), 0]]]]; var captured$1 = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, captured, [0, [6, [0, frame, 0]], 0]]), - k$0 = Sx_runtime[15].call(null, k); + k$0 = Sx_runtime[16].call(null, k); k = k$0; captured = captured$1; } } var custom_special_forms = []; function register_special_form(name, handler){ - return Sx_runtime[11].call(null, custom_special_forms, name, handler); + return Sx_runtime[12].call(null, custom_special_forms, name, handler); } var cst$1 = ".", cst_join = "join", ab = [3, cst$1]; function library_name_key(spec){ var - a = Sx_runtime[5].call(null, spec), + a = Sx_runtime[6].call(null, spec), b = [0, ab, @@ -51515,67 +58531,69 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_List[20].call (null, function(s){ - var a = Sx_runtime[39].call(null, s); - return Sx_types[67].call(null, a) - ? Sx_types[68].call(null, s) - : [3, Sx_runtime[4].call(null, [0, s, 0])]; + var a = Sx_runtime[40].call(null, s); + return Sx_types[71].call(null, a) + ? Sx_types[72].call(null, s) + : [3, Sx_runtime[5].call(null, [0, s, 0])]; }, a)], 0]]; - return Sx_runtime[1].call(null, cst_join, b); + return Sx_runtime[2].call(null, cst_join, b); } var cst_has_key = "has-key?", library_registry = []; function library_loaded_p(spec){ var a = [0, library_registry, [0, library_name_key(spec), 0]]; - return Sx_runtime[1].call(null, cst_has_key, a); + return Sx_runtime[2].call(null, cst_has_key, a); } var cst_exports = "exports", ac = [3, cst_exports]; function library_exports(spec){ var a = library_name_key(spec), - b = Sx_runtime[25].call(null, library_registry, a); - return Sx_runtime[25].call(null, b, ac); + entry = Sx_runtime[26].call(null, library_registry, a); + return Sx_types[71].call(null, entry) + ? Sx_runtime[26].call(null, entry, ac) + : [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; } function register_library(spec, exports){ var d = Stdlib_Hashtbl[1].call(null, 0, 1); Stdlib_Hashtbl[11].call(null, d, cst_exports, exports); var a = library_name_key(spec); - return Sx_runtime[11].call(null, library_registry, a, [7, d]); + return Sx_runtime[12].call(null, library_registry, a, [7, d]); } var io_registry = []; function io_register_b(name, spec){ - return Sx_runtime[11].call(null, io_registry, name, spec); + return Sx_runtime[12].call(null, io_registry, name, spec); } function io_registered_p(name){ - return Sx_runtime[1].call + return Sx_runtime[2].call (null, cst_has_key, [0, io_registry, [0, name, 0]]); } function io_lookup(name){ - return Sx_runtime[25].call(null, io_registry, name); + return Sx_runtime[26].call(null, io_registry, name); } var cst_keys = "keys"; function io_names(param){ - return Sx_runtime[1].call(null, cst_keys, [0, io_registry, 0]); + return Sx_runtime[2].call(null, cst_keys, [0, io_registry, 0]); } var foreign_registry = []; function foreign_register_b(name, spec){ - return Sx_runtime[11].call(null, foreign_registry, name, spec); + return Sx_runtime[12].call(null, foreign_registry, name, spec); } function foreign_registered_p(name){ - return Sx_runtime[1].call + return Sx_runtime[2].call (null, cst_has_key, [0, foreign_registry, [0, name, 0]]); } function foreign_lookup(name){ - return Sx_runtime[25].call(null, foreign_registry, name); + return Sx_runtime[26].call(null, foreign_registry, name); } function foreign_names(param){ - return Sx_runtime[1].call(null, cst_keys, [0, foreign_registry, 0]); + return Sx_runtime[2].call(null, cst_keys, [0, foreign_registry, 0]); } var result = [6, 0], ad = [6, 0]; function foreign_parse_params(param_list){ var - a = Sx_runtime[37].call(null, param_list), - items = Sx_types[67].call(null, a) ? param_list : ad; + a = Sx_runtime[38].call(null, param_list), + items = Sx_types[71].call(null, a) ? param_list : ad; return foreign_parse_params_loop(items, result); } var cst$2 = ">=", ae = [0, [2, 2.], 0], af = [2, 1.]; @@ -51583,32 +58601,32 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var remaining = remaining$1; for(;;){ var - b = Sx_runtime[33].call(null, remaining), - and = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and)){ + b = Sx_runtime[34].call(null, remaining), + and = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and)){ var - c = [0, Sx_runtime[24].call(null, remaining), ae], - and$0 = Sx_runtime[1].call(null, cst$2, c); - if(Sx_types[67].call(null, and$0)) + c = [0, Sx_runtime[25].call(null, remaining), ae], + and$0 = Sx_runtime[2].call(null, cst$2, c); + if(Sx_types[71].call(null, and$0)) var - d = Sx_runtime[14].call(null, remaining), - a = Sx_runtime[32].call(null, d); + d = Sx_runtime[15].call(null, remaining), + a = Sx_runtime[33].call(null, d); else var a = and$0; } else var a = and; - if(! Sx_types[67].call(null, a)) return 0; + if(! Sx_types[71].call(null, a)) return 0; var - v = Sx_runtime[17].call(null, remaining, af), - e = Sx_runtime[32].call(null, v), - f = Sx_types[67].call(null, e) ? Sx_types[69].call(null, v) : v, - g = Sx_runtime[14].call(null, remaining), - h = Sx_types[69].call(null, g); - Sx_runtime[11].call(null, spec, h, f); + v = Sx_runtime[18].call(null, remaining, af), + e = Sx_runtime[33].call(null, v), + f = Sx_types[71].call(null, e) ? Sx_types[73].call(null, v) : v, + g = Sx_runtime[15].call(null, remaining), + h = Sx_types[73].call(null, g); + Sx_runtime[12].call(null, spec, h, f); var - i = Sx_runtime[15].call(null, remaining), - remaining$0 = Sx_runtime[15].call(null, i); + i = Sx_runtime[16].call(null, remaining), + remaining$0 = Sx_runtime[16].call(null, i); remaining = remaining$0; } } @@ -51620,21 +58638,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ai = [3, cst$1]; function foreign_resolve_binding(binding_str){ var - parts = Sx_runtime[1].call(null, "split", [0, binding_str, ag]), - a = [0, Sx_runtime[24].call(null, parts), ah], - b = Sx_runtime[1].call(null, "<=", a); - if(Sx_types[67].call(null, b)){ + parts = Sx_runtime[2].call(null, "split", [0, binding_str, ag]), + a = [0, Sx_runtime[25].call(null, parts), ah], + b = Sx_runtime[2].call(null, "<=", a); + if(Sx_types[71].call(null, b)){ var d = Stdlib_Hashtbl[1].call(null, 0, 2); Stdlib_Hashtbl[11].call(null, d, cst_method, binding_str); Stdlib_Hashtbl[11].call(null, d, cst_object, 0); return [7, d]; } var - method = Sx_runtime[16].call(null, parts), - c = Sx_runtime[20].call(null, parts), - e = Sx_runtime[15].call(null, c), - f = [0, ai, [0, Sx_runtime[20].call(null, e), 0]], - obj = Sx_runtime[1].call(null, cst_join, f), + method = Sx_runtime[17].call(null, parts), + c = Sx_runtime[21].call(null, parts), + e = Sx_runtime[16].call(null, c), + f = [0, ai, [0, Sx_runtime[21].call(null, e), 0]], + obj = Sx_runtime[2].call(null, cst_join, f), d$0 = Stdlib_Hashtbl[1].call(null, 0, 2); Stdlib_Hashtbl[11].call(null, d$0, cst_method, method); Stdlib_Hashtbl[11].call(null, d$0, cst_object, obj); @@ -51661,57 +58679,57 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= at = [3, cst_foreign]; function foreign_check_args(name, params, args){ var - b = Sx_runtime[33].call(null, params), - and = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and)) + b = Sx_runtime[34].call(null, params), + and = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and)) var - c = [0, Sx_runtime[24].call(null, params), 0], - d = [0, Sx_runtime[24].call(null, args), c], - a = Sx_runtime[1].call(null, cst$3, d); + c = [0, Sx_runtime[25].call(null, params), 0], + d = [0, Sx_runtime[25].call(null, args), c], + a = Sx_runtime[2].call(null, cst$3, d); else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - e = [0, aj, [0, Sx_runtime[24].call(null, args), 0]], + e = [0, aj, [0, Sx_runtime[25].call(null, args), 0]], f = - [0, al, [0, name, [0, ak, [0, Sx_runtime[24].call(null, params), e]]]], - g = [3, Sx_runtime[4].call(null, f)], - h = Sx_runtime[2].call(null, g); + [0, al, [0, name, [0, ak, [0, Sx_runtime[25].call(null, params), e]]]], + g = [3, Sx_runtime[5].call(null, f)], + h = Sx_runtime[3].call(null, g); throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); } var - i = [0, Sx_runtime[24].call(null, args), 0], - j = [0, Sx_runtime[24].call(null, params), i], - k = [0, am, [0, Sx_runtime[1].call(null, "min", j), 0]], - l = Sx_runtime[1].call(null, cst_range, k), - m = Sx_runtime[5].call(null, l); + i = [0, Sx_runtime[25].call(null, args), 0], + j = [0, Sx_runtime[25].call(null, params), i], + k = [0, am, [0, Sx_runtime[2].call(null, "min", j), 0]], + l = Sx_runtime[2].call(null, cst_range, k), + m = Sx_runtime[6].call(null, l); Stdlib_List[18].call (null, function(i){ var - spec = Sx_runtime[17].call(null, params, i), - val = Sx_runtime[17].call(null, args, i), - expected = Sx_runtime[25].call(null, spec, an), - b = Sx_runtime[1].call(null, cst, [0, expected, ao]), - and = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and)) + spec = Sx_runtime[18].call(null, params, i), + val = Sx_runtime[18].call(null, args, i), + expected = Sx_runtime[26].call(null, spec, an), + b = Sx_runtime[2].call(null, cst, [0, expected, ao]), + and = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and)) var c = value_matches_type_p(val, expected), - a = [0, 1 - Sx_types[67].call(null, c)]; + a = [0, 1 - Sx_types[71].call(null, c)]; else var a = and; - if(! Sx_types[67].call(null, a)) return 0; + if(! Sx_types[71].call(null, a)) return 0; var d = [0, aq, - [0, expected, [0, ap, [0, Sx_runtime[73].call(null, val), 0]]]], + [0, expected, [0, ap, [0, Sx_runtime[74].call(null, val), 0]]]], e = [0, at, - [0, name, [0, as, [0, Sx_runtime[25].call(null, spec, ar), d]]]], - f = [3, Sx_runtime[4].call(null, e)], - g = Sx_runtime[2].call(null, f); + [0, name, [0, as, [0, Sx_runtime[26].call(null, spec, ar), d]]]], + f = [3, Sx_runtime[5].call(null, e)], + g = Sx_runtime[3].call(null, f); throw caml_maybe_attach_backtrace([0, Sx_types[9], g], 1); }, m); @@ -51746,17 +58764,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= aM = [3, cst_sync]; function foreign_build_lambda(spec){ var - name = Sx_runtime[25].call(null, spec, au), - a = Sx_runtime[1].call(null, cst_has_key, [0, spec, av]); - if(Sx_types[67].call(null, a)) + name = Sx_runtime[26].call(null, spec, au), + a = Sx_runtime[2].call(null, cst_has_key, [0, spec, av]); + if(Sx_types[71].call(null, a)) var - r = Sx_runtime[25].call(null, spec, aw), - b = Sx_runtime[1].call(null, cst, [0, r, ax]), - mode = Sx_types[67].call(null, b) ? ay : aL; + r = Sx_runtime[26].call(null, spec, aw), + b = Sx_runtime[2].call(null, cst, [0, r, ax]), + mode = Sx_types[71].call(null, b) ? ay : aL; else var mode = aM; - var c = Sx_runtime[1].call(null, cst, [0, mode, az]); - return Sx_types[67].call(null, c) + var c = Sx_runtime[2].call(null, cst, [0, mode, az]); + return Sx_types[71].call(null, c) ? [6, [0, aF, @@ -51781,35 +58799,35 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= aO = [3, cst_name], aP = [3, cst_params]; function sf_define_foreign(args, env){ - var a = Sx_runtime[14].call(null, args), b = Sx_runtime[39].call(null, a); - if(Sx_types[67].call(null, b)) + var a = Sx_runtime[15].call(null, args), b = Sx_runtime[40].call(null, a); + if(Sx_types[71].call(null, b)) var - c = Sx_runtime[14].call(null, args), - name = Sx_types[68].call(null, c); + c = Sx_runtime[15].call(null, args), + name = Sx_types[72].call(null, c); else - var name = Sx_runtime[14].call(null, args); + var name = Sx_runtime[15].call(null, args); var - param_list = Sx_runtime[17].call(null, args, aN), + param_list = Sx_runtime[18].call(null, args, aN), spec = [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; - Sx_runtime[11].call(null, spec, aO, name); + Sx_runtime[12].call(null, spec, aO, name); var d = foreign_parse_params(param_list); - Sx_runtime[11].call(null, spec, aP, d); - var e = Sx_runtime[15].call(null, args); - foreign_parse_kwargs_b(spec, Sx_runtime[15].call(null, e)); + Sx_runtime[12].call(null, spec, aP, d); + var e = Sx_runtime[16].call(null, args); + foreign_parse_kwargs_b(spec, Sx_runtime[16].call(null, e)); foreign_register_b(name, spec); return spec; } function step_sf_define_foreign(args, env, kont){ var spec = sf_define_foreign(args, env), - a = Sx_runtime[14].call(null, args), - b = Sx_runtime[39].call(null, a); - if(Sx_types[67].call(null, b)) + a = Sx_runtime[15].call(null, args), + b = Sx_runtime[40].call(null, a); + if(Sx_types[71].call(null, b)) var - c = Sx_runtime[14].call(null, args), - name = Sx_types[68].call(null, c); + c = Sx_runtime[15].call(null, args), + name = Sx_types[72].call(null, c); else - var name = Sx_runtime[14].call(null, args); + var name = Sx_runtime[15].call(null, args); var lambda_expr = foreign_build_lambda(spec); return make_cek_state (lambda_expr, @@ -51835,53 +58853,53 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= a3 = [0, [3, ": host-call not available on this platform"], 0], a4 = [3, cst_foreign]; function foreign_dispatch(name, args){ - var spec = foreign_lookup(name), a = Sx_runtime[83].call(null, spec); - if(Sx_types[67].call(null, a)){ + var spec = foreign_lookup(name), a = Sx_runtime[84].call(null, spec); + if(Sx_types[71].call(null, a)){ var - b = [3, Sx_runtime[4].call(null, [0, aR, [0, name, aQ]])], - c = Sx_runtime[2].call(null, b); + b = [3, Sx_runtime[5].call(null, [0, aR, [0, name, aQ]])], + c = Sx_runtime[3].call(null, b); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); } var - params = Sx_runtime[25].call(null, spec, aS), - binding = Sx_runtime[25].call(null, spec, aT), - d = Sx_runtime[83].call(null, params), - e = Sx_types[67].call(null, d) ? aU : params; + params = Sx_runtime[26].call(null, spec, aS), + binding = Sx_runtime[26].call(null, spec, aT), + d = Sx_runtime[84].call(null, params), + e = Sx_types[71].call(null, d) ? aU : params; foreign_check_args(name, e, args); - var f = Sx_runtime[83].call(null, binding); - if(Sx_types[67].call(null, f)){ + var f = Sx_runtime[84].call(null, binding); + if(Sx_types[71].call(null, f)){ var - g = [3, Sx_runtime[4].call(null, [0, aW, [0, name, aV]])], - h = Sx_runtime[2].call(null, g); + g = [3, Sx_runtime[5].call(null, [0, aW, [0, name, aV]])], + h = Sx_runtime[3].call(null, g); throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); } var resolved = foreign_resolve_binding(binding), - obj_name = Sx_runtime[25].call(null, resolved, aX), - method = Sx_runtime[25].call(null, resolved, aY), - i = Sx_runtime[91].call(null, aZ); - if(! Sx_types[67].call(null, i)){ + obj_name = Sx_runtime[26].call(null, resolved, aX), + method = Sx_runtime[26].call(null, resolved, aY), + i = Sx_runtime[92].call(null, aZ); + if(! Sx_types[71].call(null, i)){ var - o = [3, Sx_runtime[4].call(null, [0, a4, [0, name, a3]])], - p = Sx_runtime[2].call(null, o); + o = [3, Sx_runtime[5].call(null, [0, a4, [0, name, a3]])], + p = Sx_runtime[3].call(null, o); throw caml_maybe_attach_backtrace([0, Sx_types[9], p], 1); } - var j = Sx_runtime[83].call(null, obj_name); - if(Sx_types[67].call(null, j)){ + var j = Sx_runtime[84].call(null, obj_name); + if(Sx_types[71].call(null, j)){ var k = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_concat, [0, [6, [0, 0, [0, method, 0]]], [0, args, 0]]), - l = Sx_runtime[92].call(null, a0); - return Sx_runtime[7].call(null, l, k); + l = Sx_runtime[93].call(null, a0); + return Sx_runtime[8].call(null, l, k); } var - obj = cek_call(Sx_runtime[92].call(null, a1), [6, [0, obj_name, 0]]), + obj = cek_call(Sx_runtime[93].call(null, a1), [6, [0, obj_name, 0]]), m = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_concat, [0, [6, [0, obj, [0, method, 0]]], [0, args, 0]]), - n = Sx_runtime[92].call(null, a2); - return Sx_runtime[7].call(null, n, m); + n = Sx_runtime[93].call(null, a2); + return Sx_runtime[8].call(null, n, m); } var cst_as = "as", @@ -51891,26 +58909,26 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function foreign_parse_params_loop(items$1, acc$2){ var items = items$1, acc = acc$2; for(;;){ - var b = Sx_runtime[33].call(null, items); - if(Sx_types[67].call(null, b)) return acc; + var b = Sx_runtime[34].call(null, items); + if(Sx_types[71].call(null, b)) return acc; var - item = Sx_runtime[14].call(null, items), - rest_items = Sx_runtime[15].call(null, items), - c = Sx_runtime[33].call(null, rest_items), - and = [0, 1 - Sx_types[67].call(null, c)]; - if(Sx_types[67].call(null, and)){ + item = Sx_runtime[15].call(null, items), + rest_items = Sx_runtime[16].call(null, items), + c = Sx_runtime[34].call(null, rest_items), + and = [0, 1 - Sx_types[71].call(null, c)]; + if(Sx_types[71].call(null, and)){ var - e = Sx_runtime[14].call(null, rest_items), - and$0 = Sx_runtime[32].call(null, e); - if(Sx_types[67].call(null, and$0)){ + e = Sx_runtime[15].call(null, rest_items), + and$0 = Sx_runtime[33].call(null, e); + if(Sx_types[71].call(null, and$0)){ var - f = Sx_runtime[14].call(null, rest_items), - g = [0, Sx_types[69].call(null, f), a5], - and$1 = Sx_runtime[1].call(null, cst, g); - if(Sx_types[67].call(null, and$1)) + f = Sx_runtime[15].call(null, rest_items), + g = [0, Sx_types[73].call(null, f), a5], + and$1 = Sx_runtime[2].call(null, cst, g); + if(Sx_types[71].call(null, and$1)) var - h = [0, Sx_runtime[24].call(null, rest_items), a6], - a = Sx_runtime[1].call(null, cst$2, h); + h = [0, Sx_runtime[25].call(null, rest_items), a6], + a = Sx_runtime[2].call(null, cst$2, h); else var a = and$1; } @@ -51919,41 +58937,41 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var d = Stdlib_Hashtbl[1].call(null, 0, 2), - t = Sx_runtime[17].call(null, rest_items, a7), - i = Sx_runtime[32].call(null, t), + t = Sx_runtime[18].call(null, rest_items, a7), + i = Sx_runtime[33].call(null, t), j = - Sx_types[67].call(null, i) - ? Sx_types[69].call(null, t) - : [3, Sx_runtime[4].call(null, [0, t, 0])]; + Sx_types[71].call(null, i) + ? Sx_types[73].call(null, t) + : [3, Sx_runtime[5].call(null, [0, t, 0])]; Stdlib_Hashtbl[11].call(null, d, cst_type, j); var - k = Sx_runtime[39].call(null, item), + k = Sx_runtime[40].call(null, item), l = - Sx_types[67].call(null, k) - ? Sx_types[68].call(null, item) - : [3, Sx_runtime[4].call(null, [0, item, 0])]; + Sx_types[71].call(null, k) + ? Sx_types[72].call(null, item) + : [3, Sx_runtime[5].call(null, [0, item, 0])]; Stdlib_Hashtbl[11].call(null, d, cst_name, l); var acc$0 = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, acc, [0, [6, [0, [7, d], 0]], 0]]), - m = Sx_runtime[15].call(null, rest_items), - items$0 = Sx_runtime[15].call(null, m); + m = Sx_runtime[16].call(null, rest_items), + items$0 = Sx_runtime[16].call(null, m); items = items$0; acc = acc$0; } else{ var - n = Sx_runtime[39].call(null, item), + n = Sx_runtime[40].call(null, item), o = - Sx_types[67].call(null, n) - ? Sx_types[68].call(null, item) - : [3, Sx_runtime[4].call(null, [0, item, 0])], + Sx_types[71].call(null, n) + ? Sx_types[72].call(null, item) + : [3, Sx_runtime[5].call(null, [0, item, 0])], acc$1 = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, @@ -51972,21 +58990,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= a_ = [4, cst_perform]; function step_sf_io(args, env, kont){ var - name = Sx_runtime[14].call(null, args), - io_args = Sx_runtime[15].call(null, args), + name = Sx_runtime[15].call(null, args), + io_args = Sx_runtime[16].call(null, args), a = io_registered_p(name), - b = [0, 1 - Sx_types[67].call(null, a)]; - if(Sx_types[67].call(null, b)){ + b = [0, 1 - Sx_types[71].call(null, a)]; + if(Sx_types[71].call(null, b)){ var - c = [3, Sx_runtime[4].call(null, [0, a9, [0, name, a8]])], - e = Sx_runtime[2].call(null, c); + c = [3, Sx_runtime[5].call(null, [0, a9, [0, name, a8]])], + e = Sx_runtime[3].call(null, c); throw caml_maybe_attach_backtrace([0, Sx_types[9], e], 1); } var d = Stdlib_Hashtbl[1].call(null, 0, 2); Stdlib_Hashtbl[11].call(null, d, cst_args, io_args); Stdlib_Hashtbl[11].call(null, d, cst_op, name); return make_cek_state - (Sx_runtime[18].call(null, a_, [6, [0, [7, d], 0]]), env, kont); + (Sx_runtime[19].call(null, a_, [6, [0, [7, d], 0]]), env, kont); } var strict_ref = []; function set_strict_b(val){strict_ref[1] = val; return 0;} @@ -52027,51 +59045,51 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function value_matches_type_p(val, expected_type$1){ var expected_type = expected_type$1; for(;;){ - var a = Sx_runtime[1].call(null, cst, [0, expected_type, a$]); - if(Sx_types[67].call(null, a)) return ba; - var b = Sx_runtime[1].call(null, cst, [0, expected_type, bb]); - if(Sx_types[67].call(null, b)) return Sx_runtime[34].call(null, val); - var c = Sx_runtime[1].call(null, cst, [0, expected_type, bc]); - if(Sx_types[67].call(null, c)) return Sx_runtime[35].call(null, val); - var d = Sx_runtime[1].call(null, cst, [0, expected_type, bd]); - if(Sx_types[67].call(null, d)) return Sx_runtime[36].call(null, val); - var e = Sx_runtime[1].call(null, cst, [0, expected_type, be]); - if(Sx_types[67].call(null, e)) return Sx_runtime[83].call(null, val); - var f = Sx_runtime[1].call(null, cst, [0, expected_type, bf]); - if(Sx_types[67].call(null, f)) return Sx_runtime[37].call(null, val); - var g = Sx_runtime[1].call(null, cst, [0, expected_type, bg]); - if(Sx_types[67].call(null, g)) return Sx_runtime[38].call(null, val); - var h = Sx_runtime[1].call(null, cst, [0, expected_type, bh]); - if(Sx_types[67].call(null, h)) return Sx_runtime[85].call(null, val); - var i = Sx_runtime[1].call(null, cst, [0, expected_type, bi]); - if(Sx_types[67].call(null, i)){ - var j = [0, Sx_runtime[73].call(null, val), bj]; - return Sx_runtime[1].call(null, cst, j); + var a = Sx_runtime[2].call(null, cst, [0, expected_type, a$]); + if(Sx_types[71].call(null, a)) return ba; + var b = Sx_runtime[2].call(null, cst, [0, expected_type, bb]); + if(Sx_types[71].call(null, b)) return Sx_runtime[35].call(null, val); + var c = Sx_runtime[2].call(null, cst, [0, expected_type, bc]); + if(Sx_types[71].call(null, c)) return Sx_runtime[36].call(null, val); + var d = Sx_runtime[2].call(null, cst, [0, expected_type, bd]); + if(Sx_types[71].call(null, d)) return Sx_runtime[37].call(null, val); + var e = Sx_runtime[2].call(null, cst, [0, expected_type, be]); + if(Sx_types[71].call(null, e)) return Sx_runtime[84].call(null, val); + var f = Sx_runtime[2].call(null, cst, [0, expected_type, bf]); + if(Sx_types[71].call(null, f)) return Sx_runtime[38].call(null, val); + var g = Sx_runtime[2].call(null, cst, [0, expected_type, bg]); + if(Sx_types[71].call(null, g)) return Sx_runtime[39].call(null, val); + var h = Sx_runtime[2].call(null, cst, [0, expected_type, bh]); + if(Sx_types[71].call(null, h)) return Sx_runtime[86].call(null, val); + var i = Sx_runtime[2].call(null, cst, [0, expected_type, bi]); + if(Sx_types[71].call(null, i)){ + var j = [0, Sx_runtime[74].call(null, val), bj]; + return Sx_runtime[2].call(null, cst, j); } - var k = Sx_runtime[1].call(null, cst, [0, expected_type, bk]); - if(Sx_types[67].call(null, k)){ - var l = [0, Sx_runtime[73].call(null, val), bl]; - return Sx_runtime[1].call(null, cst, l); + var k = Sx_runtime[2].call(null, cst, [0, expected_type, bk]); + if(Sx_types[71].call(null, k)){ + var l = [0, Sx_runtime[74].call(null, val), bl]; + return Sx_runtime[2].call(null, cst, l); } var - and = Sx_runtime[35].call(null, expected_type), + and = Sx_runtime[36].call(null, expected_type), m = - Sx_types[67].call(null, and) - ? Sx_runtime[1].call(null, cst_ends_with, [0, expected_type, bm]) + Sx_types[71].call(null, and) + ? Sx_runtime[2].call(null, cst_ends_with, [0, expected_type, bm]) : and; - if(! Sx_types[67].call(null, m)) return bp; - var or = Sx_runtime[83].call(null, val); - if(Sx_types[67].call(null, or)) return or; + if(! Sx_types[71].call(null, m)) return bp; + var or = Sx_runtime[84].call(null, val); + if(Sx_types[71].call(null, or)) return or; var n = [0, - Sx_runtime[1].call(null, "string-length", [0, expected_type, 0]), + Sx_runtime[2].call(null, "string-length", [0, expected_type, 0]), bn], o = [0, expected_type, - [0, bo, [0, Sx_runtime[1].call(null, cst$5, n), 0]]], - expected_type$0 = Sx_runtime[1].call(null, cst_slice, o); + [0, bo, [0, Sx_runtime[2].call(null, cst$5, n), 0]]], + expected_type$0 = Sx_runtime[2].call(null, cst_slice, o); expected_type = expected_type$0; } } @@ -52102,41 +59120,41 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function strict_check_args(name, args){ var and = strict_ref[1], - b = Sx_types[67].call(null, and) ? prim_param_types_ref[1] : and; - if(! Sx_types[67].call(null, b)) return 0; - var spec = Sx_runtime[25].call(null, prim_param_types_ref[1], name); - if(! Sx_types[67].call(null, spec)) return 0; + b = Sx_types[71].call(null, and) ? prim_param_types_ref[1] : and; + if(! Sx_types[71].call(null, b)) return 0; + var spec = Sx_runtime[26].call(null, prim_param_types_ref[1], name); + if(! Sx_types[71].call(null, spec)) return 0; var - positional = Sx_runtime[25].call(null, spec, bq), - rest_type = Sx_runtime[25].call(null, spec, br); - if(Sx_types[67].call(null, positional)){ + positional = Sx_runtime[26].call(null, spec, bq), + rest_type = Sx_runtime[26].call(null, spec, br); + if(Sx_types[71].call(null, positional)){ var - c = Sx_runtime[5].call(null, positional), + c = Sx_runtime[6].call(null, positional), d = [6, Stdlib_List[21].call (null, function(i, p){var i$0 = [2, i]; return [6, [0, i$0, [0, p, 0]]];}, c)], - e = Sx_runtime[5].call(null, d); + e = Sx_runtime[6].call(null, d); Stdlib_List[18].call (null, function(pair){ var - idx = Sx_runtime[14].call(null, pair), - param = Sx_runtime[17].call(null, pair, bs), - p_name = Sx_runtime[14].call(null, param), - p_type = Sx_runtime[17].call(null, param, bt), - a = [0, idx, [0, Sx_runtime[24].call(null, args), 0]], - b = Sx_runtime[1].call(null, cst$3, a); - if(Sx_types[67].call(null, b)){ + idx = Sx_runtime[15].call(null, pair), + param = Sx_runtime[18].call(null, pair, bs), + p_name = Sx_runtime[15].call(null, param), + p_type = Sx_runtime[18].call(null, param, bt), + a = [0, idx, [0, Sx_runtime[25].call(null, args), 0]], + b = Sx_runtime[2].call(null, cst$3, a); + if(Sx_types[71].call(null, b)){ var - val = Sx_runtime[17].call(null, args, idx), + val = Sx_runtime[18].call(null, args, idx), c = value_matches_type_p(val, p_type), - d = [0, 1 - Sx_types[67].call(null, c)]; - if(Sx_types[67].call(null, d)){ + d = [0, 1 - Sx_types[71].call(null, c)]; + if(Sx_types[71].call(null, d)){ var - e = [0, bv, [0, [3, Sx_runtime[4].call(null, [0, val, 0])], bu]], + e = [0, bv, [0, [3, Sx_runtime[5].call(null, [0, val, 0])], bu]], f = [0, bz, @@ -52148,9 +59166,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= p_type, [0, bx, - [0, p_name, [0, bw, [0, Sx_runtime[73].call(null, val), e]]]]]]]], - g = [3, Sx_runtime[4].call(null, f)], - h = Sx_runtime[2].call(null, g); + [0, p_name, [0, bw, [0, Sx_runtime[74].call(null, val), e]]]]]]]], + g = [3, Sx_runtime[5].call(null, f)], + h = Sx_runtime[3].call(null, g); throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); } } @@ -52158,38 +59176,38 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }, e); } - if(Sx_types[67].call(null, rest_type)) + if(Sx_types[71].call(null, rest_type)) var - positional$0 = Sx_types[67].call(null, positional) ? positional : bI, - f = [0, Sx_runtime[24].call(null, positional$0), 0], - g = [0, Sx_runtime[24].call(null, args), f], - a = Sx_runtime[1].call(null, cst$0, g); + positional$0 = Sx_types[71].call(null, positional) ? positional : bI, + f = [0, Sx_runtime[25].call(null, positional$0), 0], + g = [0, Sx_runtime[25].call(null, args), f], + a = Sx_runtime[2].call(null, cst$0, g); else var a = rest_type; - if(! Sx_types[67].call(null, a)) return 0; + if(! Sx_types[71].call(null, a)) return 0; var - positional$1 = Sx_types[67].call(null, positional) ? positional : bH, - h = [0, args, [0, Sx_runtime[24].call(null, positional$1), 0]], - i = Sx_runtime[1].call(null, cst_slice, h), - j = Sx_runtime[5].call(null, i), + positional$1 = Sx_types[71].call(null, positional) ? positional : bH, + h = [0, args, [0, Sx_runtime[25].call(null, positional$1), 0]], + i = Sx_runtime[2].call(null, cst_slice, h), + j = Sx_runtime[6].call(null, i), k = [6, Stdlib_List[21].call (null, function(i, v){var i$0 = [2, i]; return [6, [0, i$0, [0, v, 0]]];}, j)], - l = Sx_runtime[5].call(null, k); + l = Sx_runtime[6].call(null, k); Stdlib_List[18].call (null, function(pair){ var - idx = Sx_runtime[14].call(null, pair), - val = Sx_runtime[17].call(null, pair, bA), + idx = Sx_runtime[15].call(null, pair), + val = Sx_runtime[18].call(null, pair, bA), a = value_matches_type_p(val, rest_type), - b = [0, 1 - Sx_types[67].call(null, a)]; - if(! Sx_types[67].call(null, b)) return 0; + b = [0, 1 - Sx_types[71].call(null, a)]; + if(! Sx_types[71].call(null, b)) return 0; var - c = [0, bC, [0, [3, Sx_runtime[4].call(null, [0, val, 0])], bB]], + c = [0, bC, [0, [3, Sx_runtime[5].call(null, [0, val, 0])], bB]], d = [0, bG, @@ -52201,9 +59219,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= rest_type, [0, bE, - [0, idx, [0, bD, [0, Sx_runtime[73].call(null, val), c]]]]]]]], - e = [3, Sx_runtime[4].call(null, d)], - f = Sx_runtime[2].call(null, e); + [0, idx, [0, bD, [0, Sx_runtime[74].call(null, val), c]]]]]]]], + e = [3, Sx_runtime[5].call(null, d)], + f = Sx_runtime[3].call(null, e); throw caml_maybe_attach_backtrace([0, Sx_types[9], f], 1); }, l); @@ -52221,22 +59239,22 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= bO = [0, 0]; function bind_lambda_params(params, args, local){ var - rest_idx = Sx_runtime[1].call(null, cst_index_of, [0, params, bJ]), - and = Sx_runtime[34].call(null, rest_idx); - if(Sx_types[67].call(null, and)) + rest_idx = Sx_runtime[2].call(null, cst_index_of, [0, params, bJ]), + and = Sx_runtime[35].call(null, rest_idx); + if(Sx_types[71].call(null, and)) var - b = [0, rest_idx, [0, Sx_runtime[24].call(null, params), 0]], - a = Sx_runtime[1].call(null, cst$3, b); + b = [0, rest_idx, [0, Sx_runtime[25].call(null, params), 0]], + a = Sx_runtime[2].call(null, cst$3, b); else var a = and; - if(! Sx_types[67].call(null, a)) return bO; + if(! Sx_types[71].call(null, a)) return bO; var positional = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_slice, [0, params, [0, bK, [0, rest_idx, 0]]]), - c = Sx_runtime[1].call(null, cst$8, [0, rest_idx, bL]), - rest_name = Sx_runtime[17].call(null, params, c); - Sx_runtime[93].call + c = Sx_runtime[2].call(null, cst$8, [0, rest_idx, bL]), + rest_name = Sx_runtime[18].call(null, params, c); + Sx_runtime[94].call (null, [15, cst$9, @@ -52247,28 +59265,28 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var p = a[1], i = args$0[1], - b = [0, i, [0, Sx_runtime[24].call(null, args), 0]], - c = Sx_runtime[1].call(null, cst$3, b), + b = [0, i, [0, Sx_runtime[25].call(null, args), 0]], + c = Sx_runtime[2].call(null, cst$3, b), d = - Sx_types[67].call(null, c) - ? Sx_runtime[17].call(null, args, i) + Sx_types[71].call(null, c) + ? Sx_runtime[18].call(null, args, i) : 0, - e = Sx_runtime[3].call(null, p); - return Sx_runtime[77].call(null, local, e, d); + e = Sx_runtime[4].call(null, p); + return Sx_runtime[78].call(null, local, e, d); } } return 0; }], positional); var - d = [0, Sx_runtime[24].call(null, args), [0, rest_idx, 0]], - e = Sx_runtime[1].call(null, cst$0, d), + d = [0, Sx_runtime[25].call(null, args), [0, rest_idx, 0]], + e = Sx_runtime[2].call(null, cst$0, d), f = - Sx_types[67].call(null, e) - ? Sx_runtime[1].call(null, cst_slice, [0, args, [0, rest_idx, 0]]) + Sx_types[71].call(null, e) + ? Sx_runtime[2].call(null, cst_slice, [0, args, [0, rest_idx, 0]]) : bN, - g = Sx_runtime[3].call(null, rest_name); - Sx_runtime[77].call(null, local, g, f); + g = Sx_runtime[4].call(null, rest_name); + Sx_runtime[78].call(null, local, g, f); return bM; } var @@ -52280,84 +59298,84 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= bS = [2, 1.]; function call_lambda(f, args, caller_env){ var - params = Sx_types[70].call(null, f), - a = Sx_types[72].call(null, f), - local = Sx_runtime[81].call(null, a, caller_env), + params = Sx_types[74].call(null, f), + a = Sx_types[76].call(null, f), + local = Sx_runtime[82].call(null, a, caller_env), b = bind_lambda_params(params, args, local), - c = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, c)){ + c = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, c)){ var - d = [0, Sx_runtime[24].call(null, params), 0], - e = [0, Sx_runtime[24].call(null, args), d], - g = Sx_runtime[1].call(null, cst$0, e); - if(Sx_types[67].call(null, g)){ + d = [0, Sx_runtime[25].call(null, params), 0], + e = [0, Sx_runtime[25].call(null, args), d], + g = Sx_runtime[2].call(null, cst$0, e); + if(Sx_types[71].call(null, g)){ var - h = [0, bP, [0, Sx_runtime[24].call(null, args), 0]], - i = [0, bQ, [0, Sx_runtime[24].call(null, params), h]], - or = Sx_types[73].call(null, f), - or$0 = Sx_types[67].call(null, or) ? or : bR, - j = [3, Sx_runtime[4].call(null, [0, or$0, i])], - k = Sx_runtime[2].call(null, j); + h = [0, bP, [0, Sx_runtime[25].call(null, args), 0]], + i = [0, bQ, [0, Sx_runtime[25].call(null, params), h]], + or = Sx_types[77].call(null, f), + or$0 = Sx_types[71].call(null, or) ? or : bR, + j = [3, Sx_runtime[5].call(null, [0, or$0, i])], + k = Sx_runtime[3].call(null, j); throw caml_maybe_attach_backtrace([0, Sx_types[9], k], 1); } var - l = Sx_runtime[1].call(null, cst_zip, [0, params, [0, args, 0]]), - m = Sx_runtime[5].call(null, l); + l = Sx_runtime[2].call(null, cst_zip, [0, params, [0, args, 0]]), + m = Sx_runtime[6].call(null, l); Stdlib_List[18].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, bS), - b = Sx_runtime[14].call(null, pair), - c = Sx_runtime[3].call(null, b); - Sx_runtime[77].call(null, local, c, a); + a = Sx_runtime[18].call(null, pair, bS), + b = Sx_runtime[15].call(null, pair), + c = Sx_runtime[4].call(null, b); + Sx_runtime[78].call(null, local, c, a); return 0; }, m); var - n = [0, params, [0, Sx_runtime[24].call(null, args), 0]], - o = Sx_runtime[1].call(null, cst_slice, n), - p = Sx_runtime[5].call(null, o); + n = [0, params, [0, Sx_runtime[25].call(null, args), 0]], + o = Sx_runtime[2].call(null, cst_slice, n), + p = Sx_runtime[6].call(null, o); Stdlib_List[18].call (null, function(p){ - var a = Sx_runtime[3].call(null, p); - Sx_runtime[77].call(null, local, a, 0); + var a = Sx_runtime[4].call(null, p); + Sx_runtime[78].call(null, local, a, 0); return 0; }, p); } - var q = Sx_types[71].call(null, f); - return Sx_types[54].call(null, q, local); + var q = Sx_types[75].call(null, f); + return Sx_types[58].call(null, q, local); } var cst_children = "children", bT = [2, 1.], bU = [3, cst_children]; function call_component(comp, raw_args, env){ var parsed = parse_keyword_args(raw_args, env), - kwargs = Sx_runtime[14].call(null, parsed), - children = Sx_runtime[17].call(null, parsed, bT), - a = Sx_types[81].call(null, comp), - local = Sx_runtime[81].call(null, a, env), - b = Sx_types[79].call(null, comp), - c = Sx_runtime[5].call(null, b); + kwargs = Sx_runtime[15].call(null, parsed), + children = Sx_runtime[18].call(null, parsed, bT), + a = Sx_types[85].call(null, comp), + local = Sx_runtime[82].call(null, a, env), + b = Sx_types[83].call(null, comp), + c = Sx_runtime[6].call(null, b); Stdlib_List[18].call (null, function(p){ var - or = Sx_runtime[56].call(null, kwargs, p), - or$0 = Sx_types[67].call(null, or) ? or : 0, - a = Sx_runtime[3].call(null, p); - Sx_runtime[77].call(null, local, a, or$0); + or = Sx_runtime[57].call(null, kwargs, p), + or$0 = Sx_types[71].call(null, or) ? or : 0, + a = Sx_runtime[4].call(null, p); + Sx_runtime[78].call(null, local, a, or$0); return 0; }, c); - var d = Sx_types[82].call(null, comp); - if(Sx_types[67].call(null, d)){ - var e = Sx_runtime[3].call(null, bU); - Sx_runtime[77].call(null, local, e, children); + var d = Sx_types[86].call(null, comp); + if(Sx_types[71].call(null, d)){ + var e = Sx_runtime[4].call(null, bU); + Sx_runtime[78].call(null, local, e, children); } - var f = Sx_types[80].call(null, comp); - return Sx_types[54].call(null, f, local); + var f = Sx_types[84].call(null, comp); + return Sx_types[58].call(null, f, local); } var cst_assoc = "assoc", @@ -52382,20 +59400,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function parse_keyword_args(raw_args, env){ var kwargs = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - a = Sx_runtime[5].call(null, raw_args), + a = Sx_runtime[6].call(null, raw_args), d = Stdlib_Hashtbl[1].call(null, 0, 2), - b = Sx_runtime[2].call(null, bX); + b = Sx_runtime[3].call(null, bX); Stdlib_Hashtbl[11].call(null, d, b, bW); - var c = Sx_runtime[2].call(null, bZ); + var c = Sx_runtime[3].call(null, bZ); Stdlib_Hashtbl[11].call(null, d, c, bY); var children = [0, bV]; Stdlib_List[26].call (null, function(state, arg){ var - idx = Sx_runtime[25].call(null, state, b0), - skip = Sx_runtime[25].call(null, state, b1); - if(Sx_types[67].call(null, skip)){ + idx = Sx_runtime[26].call(null, state, b0), + skip = Sx_runtime[26].call(null, state, b1); + if(Sx_types[71].call(null, skip)){ var b = [0, @@ -52404,26 +59422,26 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= b4, [0, b3, - [0, b2, [0, Sx_runtime[1].call(null, cst_inc, [0, idx, 0]), 0]]]]]; - return Sx_runtime[1].call(null, cst_assoc, b); + [0, b2, [0, Sx_runtime[2].call(null, cst_inc, [0, idx, 0]), 0]]]]]; + return Sx_runtime[2].call(null, cst_assoc, b); } var - c = [0, Sx_runtime[73].call(null, arg), b5], - and = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and)) + c = [0, Sx_runtime[74].call(null, arg), b5], + and = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and)) var - d = [0, Sx_runtime[24].call(null, raw_args), 0], - e = [0, Sx_runtime[1].call(null, cst_inc, [0, idx, 0]), d], - a = Sx_runtime[1].call(null, cst$3, e); + d = [0, Sx_runtime[25].call(null, raw_args), 0], + e = [0, Sx_runtime[2].call(null, cst_inc, [0, idx, 0]), d], + a = Sx_runtime[2].call(null, cst$3, e); else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - f = Sx_runtime[1].call(null, cst_inc, [0, idx, 0]), + f = Sx_runtime[2].call(null, cst_inc, [0, idx, 0]), g = - trampoline(eval_expr(Sx_runtime[17].call(null, raw_args, f), env)), - h = Sx_types[69].call(null, arg); - Sx_runtime[11].call(null, kwargs, h, g); + trampoline(eval_expr(Sx_runtime[18].call(null, raw_args, f), env)), + h = Sx_types[73].call(null, arg); + Sx_runtime[12].call(null, kwargs, h, g); var i = [0, @@ -52432,17 +59450,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= b8, [0, b7, - [0, b6, [0, Sx_runtime[1].call(null, cst_inc, [0, idx, 0]), 0]]]]]; - return Sx_runtime[1].call(null, cst_assoc, i); + [0, b6, [0, Sx_runtime[2].call(null, cst_inc, [0, idx, 0]), 0]]]]]; + return Sx_runtime[2].call(null, cst_assoc, i); } var j = trampoline(eval_expr(arg, env)); - children[1] = Sx_runtime[10].call(null, children[1], j); + children[1] = Sx_runtime[11].call(null, children[1], j); var k = [0, state, - [0, b9, [0, Sx_runtime[1].call(null, cst_inc, [0, idx, 0]), 0]]]; - return Sx_runtime[1].call(null, cst_assoc, k); + [0, b9, [0, Sx_runtime[2].call(null, cst_inc, [0, idx, 0]), 0]]]; + return Sx_runtime[2].call(null, cst_assoc, k); }, [7, d], a); @@ -52458,34 +59476,34 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cd = [0, [3, cst$10], 0], ce = [2, 1.]; function cond_scheme_p(clauses){ - var a = Sx_runtime[5].call(null, clauses); + var a = Sx_runtime[6].call(null, clauses); return [0, Stdlib_List[33].call (null, function(c){ var - a = [0, Sx_runtime[73].call(null, c), b_], - and = Sx_runtime[1].call(null, cst, a); - if(Sx_types[67].call(null, and)){ + a = [0, Sx_runtime[74].call(null, c), b_], + and = Sx_runtime[2].call(null, cst, a); + if(Sx_types[71].call(null, and)){ var - b = [0, Sx_runtime[24].call(null, c), b$], - or = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, or)) + b = [0, Sx_runtime[25].call(null, c), b$], + or = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, or)) var or$0 = or; else{ var - d = [0, Sx_runtime[24].call(null, c), ca], - and$0 = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, and$0)){ + d = [0, Sx_runtime[25].call(null, c), ca], + and$0 = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, and$0)){ var - e = Sx_runtime[17].call(null, c, cc), - f = [0, Sx_runtime[73].call(null, e), cb], - and$1 = Sx_runtime[1].call(null, cst, f); - if(Sx_types[67].call(null, and$1)) + e = Sx_runtime[18].call(null, c, cc), + f = [0, Sx_runtime[74].call(null, e), cb], + and$1 = Sx_runtime[2].call(null, cst, f); + if(Sx_types[71].call(null, and$1)) var - g = Sx_runtime[17].call(null, c, ce), - h = [0, Sx_types[68].call(null, g), cd], - or$0 = Sx_runtime[1].call(null, cst, h); + g = Sx_runtime[18].call(null, c, ce), + h = [0, Sx_types[72].call(null, g), cd], + or$0 = Sx_runtime[2].call(null, cst, h); else var or$0 = and$1; } @@ -52495,7 +59513,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var or$0 = and; - return Sx_types[67].call(null, or$0); + return Sx_types[71].call(null, or$0); }, a)]; } @@ -52508,25 +59526,25 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cj = [0, [3, ":else"], 0]; function is_else_clause(test){ var - a = [0, Sx_runtime[73].call(null, test), cf], - and = Sx_runtime[1].call(null, cst, a); - if(Sx_types[67].call(null, and)) + a = [0, Sx_runtime[74].call(null, test), cf], + and = Sx_runtime[2].call(null, cst, a); + if(Sx_types[71].call(null, and)) var - b = [0, Sx_types[69].call(null, test), cg], - or = Sx_runtime[1].call(null, cst, b); + b = [0, Sx_types[73].call(null, test), cg], + or = Sx_runtime[2].call(null, cst, b); else var or = and; - if(Sx_types[67].call(null, or)) return or; + if(Sx_types[71].call(null, or)) return or; var - c = [0, Sx_runtime[73].call(null, test), ch], - and$0 = Sx_runtime[1].call(null, cst, c); - if(! Sx_types[67].call(null, and$0)) return and$0; + c = [0, Sx_runtime[74].call(null, test), ch], + and$0 = Sx_runtime[2].call(null, cst, c); + if(! Sx_types[71].call(null, and$0)) return and$0; var - d = [0, Sx_types[68].call(null, test), ci], - or$0 = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, or$0)) return or$0; - var e = [0, Sx_types[68].call(null, test), cj]; - return Sx_runtime[1].call(null, cst, e); + d = [0, Sx_types[72].call(null, test), ci], + or$0 = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, or$0)) return or$0; + var e = [0, Sx_types[72].call(null, test), cj]; + return Sx_runtime[2].call(null, cst, e); } var cst$11 = "*", @@ -52550,96 +59568,96 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cA = [0, [2, 2.], 0]; function sf_named_let(args, env){ var - b = Sx_runtime[14].call(null, args), - loop_name = Sx_types[68].call(null, b), - bindings = Sx_runtime[17].call(null, args, ck), - body = Sx_runtime[1].call(null, cst_slice, [0, args, cl]), - c = Sx_runtime[14].call(null, bindings), - d = [0, Sx_runtime[73].call(null, c), co], - and = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, and)) + b = Sx_runtime[15].call(null, args), + loop_name = Sx_types[72].call(null, b), + bindings = Sx_runtime[18].call(null, args, ck), + body = Sx_runtime[2].call(null, cst_slice, [0, args, cl]), + c = Sx_runtime[15].call(null, bindings), + d = [0, Sx_runtime[74].call(null, c), co], + and = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, and)) var - e = Sx_runtime[14].call(null, bindings), - f = [0, Sx_runtime[24].call(null, e), cp], - a = Sx_runtime[1].call(null, cst, f); + e = Sx_runtime[15].call(null, bindings), + f = [0, Sx_runtime[25].call(null, e), cp], + a = Sx_runtime[2].call(null, cst, f); else var a = and; var params = [0, cm], inits = [0, cn]; - if(Sx_types[67].call(null, a)){ - var g = Sx_runtime[5].call(null, bindings); + if(Sx_types[71].call(null, a)){ + var g = Sx_runtime[6].call(null, bindings); Stdlib_List[18].call (null, function(binding){ var - b = Sx_runtime[14].call(null, binding), - c = [0, Sx_runtime[73].call(null, b), cq], - d = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, d)) + b = Sx_runtime[15].call(null, binding), + c = [0, Sx_runtime[74].call(null, b), cq], + d = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, d)) var - e = Sx_runtime[14].call(null, binding), - a = Sx_types[68].call(null, e); + e = Sx_runtime[15].call(null, binding), + a = Sx_types[72].call(null, e); else - var a = Sx_runtime[14].call(null, binding); - params[1] = Sx_runtime[10].call(null, params[1], a); - var f = Sx_runtime[17].call(null, binding, cr); - inits[1] = Sx_runtime[10].call(null, inits[1], f); + var a = Sx_runtime[15].call(null, binding); + params[1] = Sx_runtime[11].call(null, params[1], a); + var f = Sx_runtime[18].call(null, binding, cr); + inits[1] = Sx_runtime[11].call(null, inits[1], f); return 0; }, g); } else{ var - o = [0, Sx_runtime[24].call(null, bindings), cu], - p = [0, cv, [0, Sx_runtime[1].call(null, cst$12, o), 0]], - q = Sx_runtime[1].call(null, cst_range, p), - r = Sx_runtime[5].call(null, q); + o = [0, Sx_runtime[25].call(null, bindings), cu], + p = [0, cv, [0, Sx_runtime[2].call(null, cst$12, o), 0]], + q = Sx_runtime[2].call(null, cst_range, p), + r = Sx_runtime[6].call(null, q); Stdlib_List[26].call (null, function(acc, pair_idx){ var - b = Sx_runtime[1].call(null, cst$11, [0, pair_idx, cx]), - c = Sx_runtime[17].call(null, bindings, b), - d = [0, Sx_runtime[73].call(null, c), cw], - e = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, e)) + b = Sx_runtime[2].call(null, cst$11, [0, pair_idx, cx]), + c = Sx_runtime[18].call(null, bindings, b), + d = [0, Sx_runtime[74].call(null, c), cw], + e = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, e)) var - f = Sx_runtime[1].call(null, cst$11, [0, pair_idx, cy]), - g = Sx_runtime[17].call(null, bindings, f), - a = Sx_types[68].call(null, g); + f = Sx_runtime[2].call(null, cst$11, [0, pair_idx, cy]), + g = Sx_runtime[18].call(null, bindings, f), + a = Sx_types[72].call(null, g); else var - k = Sx_runtime[1].call(null, cst$11, [0, pair_idx, cA]), - a = Sx_runtime[17].call(null, bindings, k); - params[1] = Sx_runtime[10].call(null, params[1], a); + k = Sx_runtime[2].call(null, cst$11, [0, pair_idx, cA]), + a = Sx_runtime[18].call(null, bindings, k); + params[1] = Sx_runtime[11].call(null, params[1], a); var - h = [0, Sx_runtime[1].call(null, cst$11, [0, pair_idx, cz]), 0], - i = Sx_runtime[1].call(null, cst_inc, h), - j = Sx_runtime[17].call(null, bindings, i); - inits[1] = Sx_runtime[10].call(null, inits[1], j); + h = [0, Sx_runtime[2].call(null, cst$11, [0, pair_idx, cz]), 0], + i = Sx_runtime[2].call(null, cst_inc, h), + j = Sx_runtime[18].call(null, bindings, i); + inits[1] = Sx_runtime[11].call(null, inits[1], j); return 0; }, 0, r); } var - h = [0, Sx_runtime[24].call(null, body), cs], - i = Sx_runtime[1].call(null, cst, h); - if(Sx_types[67].call(null, i)) - var loop_body = Sx_runtime[14].call(null, body); + h = [0, Sx_runtime[25].call(null, body), cs], + i = Sx_runtime[2].call(null, cst, h); + if(Sx_types[71].call(null, i)) + var loop_body = Sx_runtime[15].call(null, body); else var - n = Sx_types[55].call(null, ct), - loop_body = Sx_runtime[18].call(null, n, body); + n = Sx_types[59].call(null, ct), + loop_body = Sx_runtime[19].call(null, n, body); var loop_fn = Sx_types[42].call(null, params[1], loop_body, env), - j = Sx_runtime[3].call(null, loop_name); - Sx_runtime[82].call(null, loop_fn, j); + j = Sx_runtime[4].call(null, loop_name); + Sx_runtime[83].call(null, loop_fn, j); var - k = Sx_runtime[3].call(null, loop_name), - l = Sx_types[72].call(null, loop_fn); - Sx_runtime[77].call(null, l, k, loop_fn); + k = Sx_runtime[4].call(null, loop_name), + l = Sx_types[76].call(null, loop_fn); + Sx_runtime[78].call(null, l, k, loop_fn); var - m = Sx_runtime[5].call(null, inits[1]), + m = Sx_runtime[6].call(null, inits[1]), init_vals = [6, Stdlib_List[20].call @@ -52658,44 +59676,44 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cJ = [3, cst_begin]; function sf_lambda(args, env){ var - params_expr = Sx_runtime[14].call(null, args), - body_exprs = Sx_runtime[15].call(null, args), - a = [0, Sx_runtime[24].call(null, body_exprs), cB], - b = Sx_runtime[1].call(null, cst, a); - if(Sx_types[67].call(null, b)) - var body = Sx_runtime[14].call(null, body_exprs); + params_expr = Sx_runtime[15].call(null, args), + body_exprs = Sx_runtime[16].call(null, args), + a = [0, Sx_runtime[25].call(null, body_exprs), cB], + b = Sx_runtime[2].call(null, cst, a); + if(Sx_types[71].call(null, b)) + var body = Sx_runtime[15].call(null, body_exprs); else var - d = Sx_types[55].call(null, cJ), - body = Sx_runtime[18].call(null, d, body_exprs); + d = Sx_types[59].call(null, cJ), + body = Sx_runtime[19].call(null, d, body_exprs); var - c = Sx_runtime[5].call(null, params_expr), + c = Sx_runtime[6].call(null, params_expr), param_names = [6, Stdlib_List[20].call (null, function(p){ var - b = [0, Sx_runtime[73].call(null, p), cC], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)) return Sx_types[68].call(null, p); + b = [0, Sx_runtime[74].call(null, p), cC], + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)) return Sx_types[72].call(null, p); var - d = [0, Sx_runtime[73].call(null, p), cD], - and = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, and)){ + d = [0, Sx_runtime[74].call(null, p), cD], + and = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, and)){ var - e = [0, Sx_runtime[24].call(null, p), cE], - and$0 = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, and$0)){ + e = [0, Sx_runtime[25].call(null, p), cE], + and$0 = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, and$0)){ var - f = Sx_runtime[17].call(null, p, cG), - g = [0, Sx_runtime[73].call(null, f), cF], - and$1 = Sx_runtime[1].call(null, cst, g); - if(Sx_types[67].call(null, and$1)) + f = Sx_runtime[18].call(null, p, cG), + g = [0, Sx_runtime[74].call(null, f), cF], + and$1 = Sx_runtime[2].call(null, cst, g); + if(Sx_types[71].call(null, and$1)) var - h = Sx_runtime[17].call(null, p, cI), - i = [0, Sx_types[69].call(null, h), cH], - a = Sx_runtime[1].call(null, cst, i); + h = Sx_runtime[18].call(null, p, cI), + i = [0, Sx_types[73].call(null, h), cH], + a = Sx_runtime[2].call(null, cst, i); else var a = and$1; } @@ -52704,9 +59722,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and; - if(! Sx_types[67].call(null, a)) return p; - var j = Sx_runtime[14].call(null, p); - return Sx_types[68].call(null, j); + if(! Sx_types[71].call(null, a)) return p; + var j = Sx_runtime[15].call(null, p); + return Sx_types[72].call(null, j); }, c)]; return Sx_types[42].call(null, param_names, body, env); @@ -52732,73 +59750,73 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cX = [3, cst_current_file]; function sf_defcomp(args, env){ var - name_sym = Sx_runtime[14].call(null, args), - params_raw = Sx_runtime[17].call(null, args, cK), - body = Sx_runtime[16].call(null, args), - a = Sx_types[68].call(null, name_sym), - comp_name = Sx_runtime[126].call(null, a, cL), + name_sym = Sx_runtime[15].call(null, args), + params_raw = Sx_runtime[18].call(null, args, cK), + body = Sx_runtime[17].call(null, args), + a = Sx_types[72].call(null, name_sym), + comp_name = Sx_runtime[128].call(null, a, cL), parsed = parse_comp_params(params_raw), - params = Sx_runtime[14].call(null, parsed), - has_children = Sx_runtime[17].call(null, parsed, cM), - param_types = Sx_runtime[17].call(null, parsed, cN), + params = Sx_runtime[15].call(null, parsed), + has_children = Sx_runtime[18].call(null, parsed, cM), + param_types = Sx_runtime[18].call(null, parsed, cN), affinity = defcomp_kwarg(args, cP, cO), comp = - Sx_types[51].call + Sx_types[55].call (null, comp_name, params, has_children, body, env, affinity), effects = defcomp_kwarg(args, cQ, 0), - b = Sx_runtime[83].call(null, param_types), - and = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and)){ - var c = Sx_runtime[1].call(null, cst_keys, [0, param_types, 0]); - Sx_runtime[33].call(null, c); + b = Sx_runtime[84].call(null, param_types), + and = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and)){ + var c = Sx_runtime[2].call(null, cst_keys, [0, param_types, 0]); + Sx_runtime[34].call(null, c); } var - d = Sx_runtime[83].call(null, effects), - e = [0, 1 - Sx_types[67].call(null, d)]; - if(Sx_types[67].call(null, e)){ + d = Sx_runtime[84].call(null, effects), + e = [0, 1 - Sx_types[71].call(null, d)]; + if(Sx_types[71].call(null, e)){ var - f = [0, Sx_runtime[73].call(null, effects), cR], - g = Sx_runtime[1].call(null, cst, f); - if(Sx_types[67].call(null, g)) + f = [0, Sx_runtime[74].call(null, effects), cR], + g = Sx_runtime[2].call(null, cst, f); + if(Sx_types[71].call(null, g)) var - h = Sx_runtime[5].call(null, effects), + h = Sx_runtime[6].call(null, effects), effect_list = [6, Stdlib_List[20].call (null, function(e){ var - a = [0, Sx_runtime[73].call(null, e), cS], - b = Sx_runtime[1].call(null, cst, a); - return Sx_types[67].call(null, b) - ? Sx_types[68].call(null, e) - : [3, Sx_runtime[4].call(null, [0, e, 0])]; + a = [0, Sx_runtime[74].call(null, e), cS], + b = Sx_runtime[2].call(null, cst, a); + return Sx_types[71].call(null, b) + ? Sx_types[72].call(null, e) + : [3, Sx_runtime[5].call(null, [0, e, 0])]; }, h)]; else var effect_list = - [6, [0, [3, Sx_runtime[4].call(null, [0, effects, 0])], 0]]; + [6, [0, [3, Sx_runtime[5].call(null, [0, effects, 0])], 0]]; var - i = Sx_runtime[75].call(null, env, cT), + i = Sx_runtime[76].call(null, env, cT), effect_anns = - Sx_types[67].call(null, i) - ? Sx_runtime[76].call(null, env, cU) + Sx_types[71].call(null, i) + ? Sx_runtime[77].call(null, env, cU) : [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - j = Sx_types[68].call(null, name_sym); - Sx_runtime[11].call(null, effect_anns, j, effect_list); - var k = Sx_runtime[3].call(null, cV); - Sx_runtime[77].call(null, env, k, effect_anns); + j = Sx_types[72].call(null, name_sym); + Sx_runtime[12].call(null, effect_anns, j, effect_list); + var k = Sx_runtime[4].call(null, cV); + Sx_runtime[78].call(null, env, k, effect_anns); } - var l = Sx_runtime[75].call(null, env, cW); - if(Sx_types[67].call(null, l)){ - var m = Sx_runtime[76].call(null, env, cX); - Sx_types[78].call(null, comp, m); + var l = Sx_runtime[76].call(null, env, cW); + if(Sx_types[71].call(null, l)){ + var m = Sx_runtime[77].call(null, env, cX); + Sx_types[82].call(null, comp, m); } var - n = Sx_types[68].call(null, name_sym), - o = Sx_runtime[3].call(null, n); - Sx_runtime[77].call(null, env, o, comp); + n = Sx_types[72].call(null, name_sym), + o = Sx_runtime[4].call(null, n); + Sx_runtime[78].call(null, env, o, comp); return comp; } var @@ -52811,39 +59829,39 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= c4 = [0, [3, cst_keyword], 0]; function defcomp_kwarg(args, key, default$){ var - a = [0, Sx_runtime[24].call(null, args), cY], - end = Sx_runtime[1].call(null, cst$5, a), + a = [0, Sx_runtime[25].call(null, args), cY], + end = Sx_runtime[2].call(null, cst$5, a), result = [0, default$], - b = Sx_runtime[1].call(null, cst_range, [0, c0, [0, end, cZ]]), - c = Sx_runtime[5].call(null, b); + b = Sx_runtime[2].call(null, cst_range, [0, c0, [0, end, cZ]]), + c = Sx_runtime[6].call(null, b); Stdlib_List[18].call (null, function(i){ var - b = Sx_runtime[17].call(null, args, i), - c = [0, Sx_runtime[73].call(null, b), c1], - and = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and)){ + b = Sx_runtime[18].call(null, args, i), + c = [0, Sx_runtime[74].call(null, b), c1], + and = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and)){ var - d = Sx_runtime[17].call(null, args, i), - e = [0, Sx_types[69].call(null, d), [0, key, 0]], - and$0 = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, and$0)) + d = Sx_runtime[18].call(null, args, i), + e = [0, Sx_types[73].call(null, d), [0, key, 0]], + and$0 = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, and$0)) var - f = [0, Sx_runtime[1].call(null, cst$8, [0, i, c2]), [0, end, 0]], - a = Sx_runtime[1].call(null, cst$3, f); + f = [0, Sx_runtime[2].call(null, cst$8, [0, i, c2]), [0, end, 0]], + a = Sx_runtime[2].call(null, cst$3, f); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - g = Sx_runtime[1].call(null, cst$8, [0, i, c3]), - val = Sx_runtime[17].call(null, args, g), - h = [0, Sx_runtime[73].call(null, val), c4], - j = Sx_runtime[1].call(null, cst, h), - k = Sx_types[67].call(null, j) ? Sx_types[69].call(null, val) : val; + g = Sx_runtime[2].call(null, cst$8, [0, i, c3]), + val = Sx_runtime[18].call(null, args, g), + h = [0, Sx_runtime[74].call(null, val), c4], + j = Sx_runtime[2].call(null, cst, h), + k = Sx_types[71].call(null, j) ? Sx_types[73].call(null, val) : val; result[1] = k; } return 0; @@ -52874,7 +59892,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function parse_comp_params(params_expr){ var param_types = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - a = Sx_runtime[5].call(null, params_expr), + a = Sx_runtime[6].call(null, params_expr), params = [0, c5], has_children = [0, c6], in_key = [0, c7]; @@ -52882,27 +59900,27 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, function(p){ var - b = [0, Sx_runtime[73].call(null, p), c8], - and = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, and)){ + b = [0, Sx_runtime[74].call(null, p), c8], + and = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, and)){ var - c = [0, Sx_runtime[24].call(null, p), c9], - and$0 = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and$0)){ + c = [0, Sx_runtime[25].call(null, p), c9], + and$0 = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and$0)){ var - d = Sx_runtime[14].call(null, p), - e = [0, Sx_runtime[73].call(null, d), c_], - and$1 = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, and$1)){ + d = Sx_runtime[15].call(null, p), + e = [0, Sx_runtime[74].call(null, d), c_], + and$1 = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, and$1)){ var - f = Sx_runtime[17].call(null, p, da), - g = [0, Sx_runtime[73].call(null, f), c$], - and$2 = Sx_runtime[1].call(null, cst, g); - if(Sx_types[67].call(null, and$2)) + f = Sx_runtime[18].call(null, p, da), + g = [0, Sx_runtime[74].call(null, f), c$], + and$2 = Sx_runtime[2].call(null, cst, g); + if(Sx_types[71].call(null, and$2)) var - h = Sx_runtime[17].call(null, p, dc), - i = [0, Sx_types[69].call(null, h), db], - a = Sx_runtime[1].call(null, cst, i); + h = Sx_runtime[18].call(null, p, dc), + i = [0, Sx_types[73].call(null, h), db], + a = Sx_runtime[2].call(null, cst, i); else var a = and$2; } @@ -52914,44 +59932,44 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - j = Sx_runtime[14].call(null, p), - name = Sx_types[68].call(null, j), - ptype = Sx_runtime[17].call(null, p, dd), - k = [0, Sx_runtime[73].call(null, ptype), de], - l = Sx_runtime[1].call(null, cst, k), + j = Sx_runtime[15].call(null, p), + name = Sx_types[72].call(null, j), + ptype = Sx_runtime[18].call(null, p, dd), + k = [0, Sx_runtime[74].call(null, ptype), de], + l = Sx_runtime[2].call(null, cst, k), type_val = - Sx_types[67].call(null, l) ? Sx_types[68].call(null, ptype) : ptype, - m = [0, 1 - Sx_types[67].call(null, has_children[1])]; - if(Sx_types[67].call(null, m)){ - params[1] = Sx_runtime[10].call(null, params[1], name); - Sx_runtime[11].call(null, param_types, name, type_val); + Sx_types[71].call(null, l) ? Sx_types[72].call(null, ptype) : ptype, + m = [0, 1 - Sx_types[71].call(null, has_children[1])]; + if(Sx_types[71].call(null, m)){ + params[1] = Sx_runtime[11].call(null, params[1], name); + Sx_runtime[12].call(null, param_types, name, type_val); } } else{ var - n = [0, Sx_runtime[73].call(null, p), df], - o = Sx_runtime[1].call(null, cst, n); - if(Sx_types[67].call(null, o)){ + n = [0, Sx_runtime[74].call(null, p), df], + o = Sx_runtime[2].call(null, cst, n); + if(Sx_types[71].call(null, o)){ var - name$0 = Sx_types[68].call(null, p), - q = Sx_runtime[1].call(null, cst, [0, name$0, dg]); - if(Sx_types[67].call(null, q)) + name$0 = Sx_types[72].call(null, p), + q = Sx_runtime[2].call(null, cst, [0, name$0, dg]); + if(Sx_types[71].call(null, q)) in_key[1] = dh; else{ - var r = Sx_runtime[1].call(null, cst, [0, name$0, di]); - if(Sx_types[67].call(null, r)) + var r = Sx_runtime[2].call(null, cst, [0, name$0, di]); + if(Sx_types[71].call(null, r)) has_children[1] = dj; else{ - var s = Sx_runtime[1].call(null, cst, [0, name$0, dk]); - if(Sx_types[67].call(null, s)) + var s = Sx_runtime[2].call(null, cst, [0, name$0, dk]); + if(Sx_types[71].call(null, s)) has_children[1] = dl; - else if(! Sx_types[67].call(null, has_children[1])) - if(Sx_types[67].call(null, in_key[1])) - params[1] = Sx_runtime[10].call(null, params[1], name$0); + else if(! Sx_types[71].call(null, has_children[1])) + if(Sx_types[71].call(null, in_key[1])) + params[1] = Sx_runtime[11].call(null, params[1], name$0); else - params[1] = Sx_runtime[10].call(null, params[1], name$0); + params[1] = Sx_runtime[11].call(null, params[1], name$0); } } } @@ -52972,34 +59990,34 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= du = [3, cst_begin]; function sf_defisland(args, env){ var - name_sym = Sx_runtime[14].call(null, args), - params_raw = Sx_runtime[17].call(null, args, dm), - body_exprs = Sx_runtime[1].call(null, cst_slice, [0, args, dn]), - a = [0, Sx_runtime[24].call(null, body_exprs), dp], - b = Sx_runtime[1].call(null, cst, a); - if(Sx_types[67].call(null, b)) - var body = Sx_runtime[14].call(null, body_exprs); + name_sym = Sx_runtime[15].call(null, args), + params_raw = Sx_runtime[18].call(null, args, dm), + body_exprs = Sx_runtime[2].call(null, cst_slice, [0, args, dn]), + a = [0, Sx_runtime[25].call(null, body_exprs), dp], + b = Sx_runtime[2].call(null, cst, a); + if(Sx_types[71].call(null, b)) + var body = Sx_runtime[15].call(null, body_exprs); else var - h = Sx_types[55].call(null, du), - body = Sx_runtime[18].call(null, h, body_exprs); + h = Sx_types[59].call(null, du), + body = Sx_runtime[19].call(null, h, body_exprs); var - c = Sx_types[68].call(null, name_sym), - comp_name = Sx_runtime[126].call(null, c, dq), + c = Sx_types[72].call(null, name_sym), + comp_name = Sx_runtime[128].call(null, c, dq), parsed = parse_comp_params(params_raw), - params = Sx_runtime[14].call(null, parsed), - has_children = Sx_runtime[17].call(null, parsed, dr), + params = Sx_runtime[15].call(null, parsed), + has_children = Sx_runtime[18].call(null, parsed, dr), island = - Sx_types[52].call(null, comp_name, params, has_children, body, env), - d = Sx_runtime[75].call(null, env, ds); - if(Sx_types[67].call(null, d)){ - var e = Sx_runtime[76].call(null, env, dt); - Sx_types[78].call(null, island, e); + Sx_types[56].call(null, comp_name, params, has_children, body, env), + d = Sx_runtime[76].call(null, env, ds); + if(Sx_types[71].call(null, d)){ + var e = Sx_runtime[77].call(null, env, dt); + Sx_types[82].call(null, island, e); } var - f = Sx_types[68].call(null, name_sym), - g = Sx_runtime[3].call(null, f); - Sx_runtime[77].call(null, env, g, island); + f = Sx_types[72].call(null, name_sym), + g = Sx_runtime[4].call(null, f); + Sx_runtime[78].call(null, env, g, island); return island; } var dv = [0, [2, 2.], 0], dw = [2, 1.]; @@ -53007,57 +60025,57 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var remaining = remaining$1; for(;;){ var - b = Sx_runtime[33].call(null, remaining), - and = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and)){ + b = Sx_runtime[34].call(null, remaining), + and = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and)){ var - c = [0, Sx_runtime[24].call(null, remaining), dv], - and$0 = Sx_runtime[1].call(null, cst$2, c); - if(Sx_types[67].call(null, and$0)) + c = [0, Sx_runtime[25].call(null, remaining), dv], + and$0 = Sx_runtime[2].call(null, cst$2, c); + if(Sx_types[71].call(null, and$0)) var - d = Sx_runtime[14].call(null, remaining), - a = Sx_runtime[32].call(null, d); + d = Sx_runtime[15].call(null, remaining), + a = Sx_runtime[33].call(null, d); else var a = and$0; } else var a = and; - if(! Sx_types[67].call(null, a)) return 0; + if(! Sx_types[71].call(null, a)) return 0; var - e = Sx_runtime[17].call(null, remaining, dw), - f = Sx_runtime[14].call(null, remaining), - g = Sx_types[69].call(null, f); - Sx_runtime[11].call(null, spec, g, e); + e = Sx_runtime[18].call(null, remaining, dw), + f = Sx_runtime[15].call(null, remaining), + g = Sx_types[73].call(null, f); + Sx_runtime[12].call(null, spec, g, e); var - h = Sx_runtime[15].call(null, remaining), - remaining$0 = Sx_runtime[15].call(null, h); + h = Sx_runtime[16].call(null, remaining), + remaining$0 = Sx_runtime[16].call(null, h); remaining = remaining$0; } } var dx = [3, cst_name]; function sf_defio(args, env){ var - name = Sx_runtime[14].call(null, args), + name = Sx_runtime[15].call(null, args), spec = [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; - Sx_runtime[11].call(null, spec, dx, name); - defio_parse_kwargs_b(spec, Sx_runtime[15].call(null, args)); + Sx_runtime[12].call(null, spec, dx, name); + defio_parse_kwargs_b(spec, Sx_runtime[16].call(null, args)); io_register_b(name, spec); return spec; } var dy = [2, 1.], dz = [2, 2.], dA = [2, 1.]; function sf_defmacro(args, env){ var - name_sym = Sx_runtime[14].call(null, args), - params_raw = Sx_runtime[17].call(null, args, dy), - body = Sx_runtime[17].call(null, args, dz), + name_sym = Sx_runtime[15].call(null, args), + params_raw = Sx_runtime[18].call(null, args, dy), + body = Sx_runtime[18].call(null, args, dz), parsed = parse_macro_params(params_raw), - params = Sx_runtime[14].call(null, parsed), - rest_param = Sx_runtime[17].call(null, parsed, dA), - a = Sx_types[68].call(null, name_sym), - mac = Sx_types[53].call(null, params, rest_param, body, env, a), - b = Sx_types[68].call(null, name_sym), - c = Sx_runtime[3].call(null, b); - Sx_runtime[77].call(null, env, c, mac); + params = Sx_runtime[15].call(null, parsed), + rest_param = Sx_runtime[18].call(null, parsed, dA), + a = Sx_types[72].call(null, name_sym), + mac = Sx_types[57].call(null, params, rest_param, body, env, a), + b = Sx_types[72].call(null, name_sym), + c = Sx_runtime[4].call(null, b); + Sx_runtime[78].call(null, env, c, mac); return mac; } var @@ -53073,39 +60091,39 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= dJ = [0, [3, cst_symbol], 0]; function parse_macro_params(params_expr){ var - a = Sx_runtime[5].call(null, params_expr), + a = Sx_runtime[6].call(null, params_expr), d = Stdlib_Hashtbl[1].call(null, 0, 1), - b = Sx_runtime[2].call(null, dD); + b = Sx_runtime[3].call(null, dD); Stdlib_Hashtbl[11].call(null, d, b, dC); var params = [0, dB], rest_param = [0, 0]; Stdlib_List[26].call (null, function(state, p){ var - b = [0, Sx_runtime[73].call(null, p), dE], - and = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, and)) + b = [0, Sx_runtime[74].call(null, p), dE], + and = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, and)) var - c = [0, Sx_types[68].call(null, p), dF], - a = Sx_runtime[1].call(null, cst, c); + c = [0, Sx_types[72].call(null, p), dF], + a = Sx_runtime[2].call(null, cst, c); else var a = and; - if(Sx_types[67].call(null, a)) - return Sx_runtime[1].call(null, cst_assoc, [0, state, dG]); - var d = Sx_runtime[25].call(null, state, dH); - if(Sx_types[67].call(null, d)){ + if(Sx_types[71].call(null, a)) + return Sx_runtime[2].call(null, cst_assoc, [0, state, dG]); + var d = Sx_runtime[26].call(null, state, dH); + if(Sx_types[71].call(null, d)){ var - e = [0, Sx_runtime[73].call(null, p), dI], - f = Sx_runtime[1].call(null, cst, e), - g = Sx_types[67].call(null, f) ? Sx_types[68].call(null, p) : p; + e = [0, Sx_runtime[74].call(null, p), dI], + f = Sx_runtime[2].call(null, cst, e), + g = Sx_types[71].call(null, f) ? Sx_types[72].call(null, p) : p; rest_param[1] = g; return state; } var - h = [0, Sx_runtime[73].call(null, p), dJ], - i = Sx_runtime[1].call(null, cst, h), - j = Sx_types[67].call(null, i) ? Sx_types[68].call(null, p) : p; - params[1] = Sx_runtime[10].call(null, params[1], j); + h = [0, Sx_runtime[74].call(null, p), dJ], + i = Sx_runtime[2].call(null, cst, h), + j = Sx_types[71].call(null, i) ? Sx_types[72].call(null, p) : p; + params[1] = Sx_runtime[11].call(null, params[1], j); return state; }, [7, d], @@ -53127,46 +60145,46 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= dV = [0, [3, cst_list], 0]; function qq_expand(template, env){ var - b = [0, Sx_runtime[73].call(null, template), dK], - c = Sx_runtime[1].call(null, cst, b), - d = [0, 1 - Sx_types[67].call(null, c)]; - if(Sx_types[67].call(null, d)) return template; - var e = Sx_runtime[33].call(null, template); - if(Sx_types[67].call(null, e)) return dL; + b = [0, Sx_runtime[74].call(null, template), dK], + c = Sx_runtime[2].call(null, cst, b), + d = [0, 1 - Sx_types[71].call(null, c)]; + if(Sx_types[71].call(null, d)) return template; + var e = Sx_runtime[34].call(null, template); + if(Sx_types[71].call(null, e)) return dL; var - head = Sx_runtime[14].call(null, template), - f = [0, Sx_runtime[73].call(null, head), dM], - and = Sx_runtime[1].call(null, cst, f); - if(Sx_types[67].call(null, and)) + head = Sx_runtime[15].call(null, template), + f = [0, Sx_runtime[74].call(null, head), dM], + and = Sx_runtime[2].call(null, cst, f); + if(Sx_types[71].call(null, and)) var - g = [0, Sx_types[68].call(null, head), dN], - a = Sx_runtime[1].call(null, cst, g); + g = [0, Sx_types[72].call(null, head), dN], + a = Sx_runtime[2].call(null, cst, g); else var a = and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) return trampoline - (eval_expr(Sx_runtime[17].call(null, template, dO), env)); - var h = Sx_runtime[5].call(null, template); + (eval_expr(Sx_runtime[18].call(null, template, dO), env)); + var h = Sx_runtime[6].call(null, template); return Stdlib_List[26].call (null, function(result, item){ var - b = [0, Sx_runtime[73].call(null, item), dQ], - and = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, and)){ + b = [0, Sx_runtime[74].call(null, item), dQ], + and = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, and)){ var - c = [0, Sx_runtime[24].call(null, item), dR], - and$0 = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and$0)){ + c = [0, Sx_runtime[25].call(null, item), dR], + and$0 = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and$0)){ var - d = Sx_runtime[14].call(null, item), - e = [0, Sx_runtime[73].call(null, d), dS], - and$1 = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, and$1)) + d = Sx_runtime[15].call(null, item), + e = [0, Sx_runtime[74].call(null, d), dS], + and$1 = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, and$1)) var - f = Sx_runtime[14].call(null, item), - g = [0, Sx_types[68].call(null, f), dT], - a = Sx_runtime[1].call(null, cst, g); + f = Sx_runtime[15].call(null, item), + g = [0, Sx_types[72].call(null, f), dT], + a = Sx_runtime[2].call(null, cst, g); else var a = and$1; } @@ -53175,24 +60193,24 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and; - if(! Sx_types[67].call(null, a)){ + if(! Sx_types[71].call(null, a)){ var k = [0, result, [0, [6, [0, qq_expand(item, env), 0]], 0]]; - return Sx_runtime[1].call(null, cst_concat, k); + return Sx_runtime[2].call(null, cst_concat, k); } var spliced = trampoline - (eval_expr(Sx_runtime[17].call(null, item, dU), env)), - h = [0, Sx_runtime[73].call(null, spliced), dV], - i = Sx_runtime[1].call(null, cst, h); - if(Sx_types[67].call(null, i)) - return Sx_runtime[1].call + (eval_expr(Sx_runtime[18].call(null, item, dU), env)), + h = [0, Sx_runtime[74].call(null, spliced), dV], + i = Sx_runtime[2].call(null, cst, h); + if(Sx_types[71].call(null, i)) + return Sx_runtime[2].call (null, cst_concat, [0, result, [0, spliced, 0]]); - var j = Sx_runtime[83].call(null, spliced); - return Sx_types[67].call(null, j) + var j = Sx_runtime[84].call(null, spliced); + return Sx_types[71].call(null, j) ? result : Sx_runtime - [1].call + [2].call (null, cst_concat, [0, result, [0, [6, [0, spliced, 0]], 0]]); @@ -53219,113 +60237,113 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= d_ = [0, [2, 2.], 0]; function sf_letrec(args, env){ var - bindings = Sx_runtime[14].call(null, args), - body = Sx_runtime[15].call(null, args), - local = Sx_runtime[80].call(null, env), - b = Sx_runtime[14].call(null, bindings), - c = [0, Sx_runtime[73].call(null, b), dY], - and = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, and)) + bindings = Sx_runtime[15].call(null, args), + body = Sx_runtime[16].call(null, args), + local = Sx_runtime[81].call(null, env), + b = Sx_runtime[15].call(null, bindings), + c = [0, Sx_runtime[74].call(null, b), dY], + and = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, and)) var - d = Sx_runtime[14].call(null, bindings), - e = [0, Sx_runtime[24].call(null, d), dZ], - a = Sx_runtime[1].call(null, cst, e); + d = Sx_runtime[15].call(null, bindings), + e = [0, Sx_runtime[25].call(null, d), dZ], + a = Sx_runtime[2].call(null, cst, e); else var a = and; var names = [0, dW], val_exprs = [0, dX]; - if(Sx_types[67].call(null, a)){ - var f = Sx_runtime[5].call(null, bindings); + if(Sx_types[71].call(null, a)){ + var f = Sx_runtime[6].call(null, bindings); Stdlib_List[18].call (null, function(binding){ var - a = Sx_runtime[14].call(null, binding), - b = [0, Sx_runtime[73].call(null, a), d0], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)) + a = Sx_runtime[15].call(null, binding), + b = [0, Sx_runtime[74].call(null, a), d0], + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)) var - d = Sx_runtime[14].call(null, binding), - vname = Sx_types[68].call(null, d); + d = Sx_runtime[15].call(null, binding), + vname = Sx_types[72].call(null, d); else - var vname = Sx_runtime[14].call(null, binding); - names[1] = Sx_runtime[10].call(null, names[1], vname); - var e = Sx_runtime[17].call(null, binding, d1); - val_exprs[1] = Sx_runtime[10].call(null, val_exprs[1], e); - var f = Sx_runtime[3].call(null, vname); - Sx_runtime[77].call(null, local, f, 0); + var vname = Sx_runtime[15].call(null, binding); + names[1] = Sx_runtime[11].call(null, names[1], vname); + var e = Sx_runtime[18].call(null, binding, d1); + val_exprs[1] = Sx_runtime[11].call(null, val_exprs[1], e); + var f = Sx_runtime[4].call(null, vname); + Sx_runtime[78].call(null, local, f, 0); return 0; }, f); } else{ var - p = [0, Sx_runtime[24].call(null, bindings), d4], - q = [0, d5, [0, Sx_runtime[1].call(null, cst$12, p), 0]], - r = Sx_runtime[1].call(null, cst_range, q), - s = Sx_runtime[5].call(null, r); + p = [0, Sx_runtime[25].call(null, bindings), d4], + q = [0, d5, [0, Sx_runtime[2].call(null, cst$12, p), 0]], + r = Sx_runtime[2].call(null, cst_range, q), + s = Sx_runtime[6].call(null, r); Stdlib_List[26].call (null, function(acc, pair_idx){ var - a = Sx_runtime[1].call(null, cst$11, [0, pair_idx, d7]), - b = Sx_runtime[17].call(null, bindings, a), - c = [0, Sx_runtime[73].call(null, b), d6], - d = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, d)) + a = Sx_runtime[2].call(null, cst$11, [0, pair_idx, d7]), + b = Sx_runtime[18].call(null, bindings, a), + c = [0, Sx_runtime[74].call(null, b), d6], + d = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, d)) var - e = Sx_runtime[1].call(null, cst$11, [0, pair_idx, d8]), - f = Sx_runtime[17].call(null, bindings, e), - vname = Sx_types[68].call(null, f); + e = Sx_runtime[2].call(null, cst$11, [0, pair_idx, d8]), + f = Sx_runtime[18].call(null, bindings, e), + vname = Sx_types[72].call(null, f); else var - j = Sx_runtime[1].call(null, cst$11, [0, pair_idx, d_]), - vname = Sx_runtime[17].call(null, bindings, j); + j = Sx_runtime[2].call(null, cst$11, [0, pair_idx, d_]), + vname = Sx_runtime[18].call(null, bindings, j); var - g = [0, Sx_runtime[1].call(null, cst$11, [0, pair_idx, d9]), 0], - h = Sx_runtime[1].call(null, cst_inc, g), - val_expr = Sx_runtime[17].call(null, bindings, h); - names[1] = Sx_runtime[10].call(null, names[1], vname); - val_exprs[1] = Sx_runtime[10].call(null, val_exprs[1], val_expr); - var i = Sx_runtime[3].call(null, vname); - return Sx_runtime[77].call(null, local, i, 0); + g = [0, Sx_runtime[2].call(null, cst$11, [0, pair_idx, d9]), 0], + h = Sx_runtime[2].call(null, cst_inc, g), + val_expr = Sx_runtime[18].call(null, bindings, h); + names[1] = Sx_runtime[11].call(null, names[1], vname); + val_exprs[1] = Sx_runtime[11].call(null, val_exprs[1], val_expr); + var i = Sx_runtime[4].call(null, vname); + return Sx_runtime[78].call(null, local, i, 0); }, 0, s); } var - g = Sx_runtime[5].call(null, val_exprs[1]), + g = Sx_runtime[6].call(null, val_exprs[1]), values = [6, Stdlib_List[20].call (null, function(e){return trampoline(eval_expr(e, local));}, g)], - h = Sx_runtime[1].call(null, cst_zip, [0, names[1], [0, values, 0]]), - i = Sx_runtime[5].call(null, h); + h = Sx_runtime[2].call(null, cst_zip, [0, names[1], [0, values, 0]]), + i = Sx_runtime[6].call(null, h); Stdlib_List[18].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, d2), - b = Sx_runtime[14].call(null, pair), - c = Sx_runtime[3].call(null, b); - Sx_runtime[77].call(null, local, c, a); + a = Sx_runtime[18].call(null, pair, d2), + b = Sx_runtime[15].call(null, pair), + c = Sx_runtime[4].call(null, b); + Sx_runtime[78].call(null, local, c, a); return 0; }, i); - var j = Sx_runtime[5].call(null, values); + var j = Sx_runtime[6].call(null, values); Stdlib_List[18].call (null, function(val){ - var a = Sx_runtime[85].call(null, val); - if(Sx_types[67].call(null, a)){ - var b = Sx_runtime[5].call(null, names[1]); + var a = Sx_runtime[86].call(null, val); + if(Sx_types[71].call(null, a)){ + var b = Sx_runtime[6].call(null, names[1]); Stdlib_List[18].call (null, function(n){ var - a = Sx_runtime[76].call(null, local, n), - b = Sx_runtime[3].call(null, n), - c = Sx_types[72].call(null, val); - Sx_runtime[77].call(null, c, b, a); + a = Sx_runtime[77].call(null, local, n), + b = Sx_runtime[4].call(null, n), + c = Sx_types[76].call(null, val); + Sx_runtime[78].call(null, c, b, a); return 0; }, b); @@ -53334,28 +60352,28 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }, j); var - k = [0, Sx_runtime[24].call(null, body), 0], - l = [0, body, [0, d3, [0, Sx_runtime[1].call(null, cst_dec, k), 0]]], - m = Sx_runtime[1].call(null, cst_slice, l), - n = Sx_runtime[5].call(null, m); + k = [0, Sx_runtime[25].call(null, body), 0], + l = [0, body, [0, d3, [0, Sx_runtime[2].call(null, cst_dec, k), 0]]], + m = Sx_runtime[2].call(null, cst_slice, l), + n = Sx_runtime[6].call(null, m); Stdlib_List[18].call (null, function(e){trampoline(eval_expr(e, local)); return 0;}, n); - var o = Sx_runtime[16].call(null, body); - return Sx_types[54].call(null, o, local); + var o = Sx_runtime[17].call(null, body); + return Sx_types[58].call(null, o, local); } function step_sf_letrec(args, env, kont){ - var thk = sf_letrec(args, env), a = Sx_types[89].call(null, thk); - return make_cek_state(Sx_types[88].call(null, thk), a, kont); + var thk = sf_letrec(args, env), a = Sx_types[93].call(null, thk); + return make_cek_state(Sx_types[92].call(null, thk), a, kont); } var d$ = [2, 1.], ea = [2, 2.], eb = [6, 0], ec = [6, 0], ed = [6, 0]; function step_sf_dynamic_wind(args, env, kont){ var - before = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - body = trampoline(eval_expr(Sx_runtime[17].call(null, args, d$), env)), - after = trampoline(eval_expr(Sx_runtime[17].call(null, args, ea), env)); + before = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + body = trampoline(eval_expr(Sx_runtime[18].call(null, args, d$), env)), + after = trampoline(eval_expr(Sx_runtime[18].call(null, args, ea), env)); cek_call(before, eb); - var winders_len = Sx_runtime[24].call(null, winders_ref[1]); - winders_ref[1] = Sx_runtime[18].call(null, after, winders_ref[1]); + var winders_len = Sx_runtime[25].call(null, winders_ref[1]); + winders_ref[1] = Sx_runtime[19].call(null, after, winders_ref[1]); return continue_with_call (body, ed, @@ -53372,54 +60390,54 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ej = [0, [2, 2.], 0]; function sf_scope(args, env){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - rest = Sx_runtime[1].call(null, cst_slice, [0, args, ee]), - b = [0, Sx_runtime[24].call(null, rest), ef], - and = Sx_runtime[1].call(null, cst$2, b); - if(Sx_types[67].call(null, and)){ + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + rest = Sx_runtime[2].call(null, cst_slice, [0, args, ee]), + b = [0, Sx_runtime[25].call(null, rest), ef], + and = Sx_runtime[2].call(null, cst$2, b); + if(Sx_types[71].call(null, and)){ var - c = Sx_runtime[14].call(null, rest), - d = [0, Sx_runtime[73].call(null, c), eg], - and$0 = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, and$0)) + c = Sx_runtime[15].call(null, rest), + d = [0, Sx_runtime[74].call(null, c), eg], + and$0 = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, and$0)) var - e = Sx_runtime[14].call(null, rest), - f = [0, Sx_types[69].call(null, e), eh], - a = Sx_runtime[1].call(null, cst, f); + e = Sx_runtime[15].call(null, rest), + f = [0, Sx_types[73].call(null, e), eh], + a = Sx_runtime[2].call(null, cst, f); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) var - g = trampoline(eval_expr(Sx_runtime[17].call(null, rest, ei), env)), - body_exprs = Sx_runtime[1].call(null, cst_slice, [0, rest, ej]), + g = trampoline(eval_expr(Sx_runtime[18].call(null, rest, ei), env)), + body_exprs = Sx_runtime[2].call(null, cst_slice, [0, rest, ej]), val = g; else var body_exprs = rest, val = 0; - Sx_runtime[103].call(null, name, val); - var h = Sx_runtime[5].call(null, body_exprs), result = [0, 0]; + Sx_runtime[105].call(null, name, val); + var h = Sx_runtime[6].call(null, body_exprs), result = [0, 0]; Stdlib_List[18].call (null, function(e){result[1] = trampoline(eval_expr(e, env)); return 0;}, h); - Sx_runtime[104].call(null, name); + Sx_runtime[106].call(null, name); return result[1]; } var ek = [2, 1.], el = [0, [2, 2.], 0]; function sf_provide(args, env){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - val = trampoline(eval_expr(Sx_runtime[17].call(null, args, ek), env)), - body_exprs = Sx_runtime[1].call(null, cst_slice, [0, args, el]); - Sx_runtime[103].call(null, name, val); - var a = Sx_runtime[5].call(null, body_exprs), result = [0, 0]; + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + val = trampoline(eval_expr(Sx_runtime[18].call(null, args, ek), env)), + body_exprs = Sx_runtime[2].call(null, cst_slice, [0, args, el]); + Sx_runtime[105].call(null, name, val); + var a = Sx_runtime[6].call(null, body_exprs), result = [0, 0]; Stdlib_List[18].call (null, function(e){result[1] = trampoline(eval_expr(e, env)); return 0;}, a); - Sx_runtime[104].call(null, name); + Sx_runtime[106].call(null, name); return result[1]; } var @@ -53433,72 +60451,72 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= eq = [2, 1.]; function expand_macro(mac, raw_args, env){ var - body = Sx_types[86].call(null, mac), - and = Sx_runtime[39].call(null, body); - if(Sx_types[67].call(null, and)) + body = Sx_types[90].call(null, mac), + and = Sx_runtime[40].call(null, body); + if(Sx_types[71].call(null, and)) var - b = [0, Sx_types[68].call(null, body), em], - a = Sx_runtime[1].call(null, cst, b); + b = [0, Sx_types[72].call(null, body), em], + a = Sx_runtime[2].call(null, cst, b); else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - closure = Sx_types[87].call(null, mac), - c = Sx_runtime[76].call(null, closure, en); + closure = Sx_types[91].call(null, mac), + c = Sx_runtime[77].call(null, closure, en); return syntax_rules_expand - (Sx_runtime[76].call(null, closure, eo), c, raw_args); + (Sx_runtime[77].call(null, closure, eo), c, raw_args); } var - d = Sx_types[87].call(null, mac), - local = Sx_runtime[81].call(null, d, env), - e = Sx_types[84].call(null, mac), - f = Sx_runtime[5].call(null, e), + d = Sx_types[91].call(null, mac), + local = Sx_runtime[82].call(null, d, env), + e = Sx_types[88].call(null, mac), + f = Sx_runtime[6].call(null, e), g = [6, Stdlib_List[21].call (null, function(i, p){var i$0 = [2, i]; return [6, [0, p, [0, i$0, 0]]];}, f)], - h = Sx_runtime[5].call(null, g); + h = Sx_runtime[6].call(null, g); Stdlib_List[18].call (null, function(pair){ var - b = [0, Sx_runtime[24].call(null, raw_args), 0], - c = [0, Sx_runtime[17].call(null, pair, ep), b], - d = Sx_runtime[1].call(null, cst$3, c); - if(Sx_types[67].call(null, d)) + b = [0, Sx_runtime[25].call(null, raw_args), 0], + c = [0, Sx_runtime[18].call(null, pair, ep), b], + d = Sx_runtime[2].call(null, cst$3, c); + if(Sx_types[71].call(null, d)) var - e = Sx_runtime[17].call(null, pair, eq), - a = Sx_runtime[17].call(null, raw_args, e); + e = Sx_runtime[18].call(null, pair, eq), + a = Sx_runtime[18].call(null, raw_args, e); else var a = 0; var - f = Sx_runtime[14].call(null, pair), - g = Sx_runtime[3].call(null, f); - Sx_runtime[77].call(null, local, g, a); + f = Sx_runtime[15].call(null, pair), + g = Sx_runtime[4].call(null, f); + Sx_runtime[78].call(null, local, g, a); return 0; }, h); - var i = Sx_types[85].call(null, mac); - if(Sx_types[67].call(null, i)){ + var i = Sx_types[89].call(null, mac); + if(Sx_types[71].call(null, i)){ var - j = Sx_types[84].call(null, mac), - k = [0, raw_args, [0, Sx_runtime[24].call(null, j), 0]], - l = Sx_runtime[1].call(null, cst_slice, k), - m = Sx_types[85].call(null, mac), - n = Sx_runtime[3].call(null, m); - Sx_runtime[77].call(null, local, n, l); + j = Sx_types[88].call(null, mac), + k = [0, raw_args, [0, Sx_runtime[25].call(null, j), 0]], + l = Sx_runtime[2].call(null, cst_slice, k), + m = Sx_types[89].call(null, mac), + n = Sx_runtime[4].call(null, m); + Sx_runtime[78].call(null, local, n, l); } - return trampoline(eval_expr(Sx_types[86].call(null, mac), local)); + return trampoline(eval_expr(Sx_types[90].call(null, mac), local)); } function cek_step_loop(state$1){ var state = state$1; for(;;){ var or = cek_terminal_p(state), - or$0 = Sx_types[67].call(null, or) ? or : cek_suspended_p(state); - if(Sx_types[67].call(null, or$0)) return state; + or$0 = Sx_types[71].call(null, or) ? or : cek_suspended_p(state); + if(Sx_types[71].call(null, or$0)) return state; var state$0 = cek_step(state); state = state$0; } @@ -53508,8 +60526,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= er = [3, cst_IO_suspension_in_non_IO_co]; function cek_run(state){ var final = cek_step_loop(state), a = cek_suspended_p(final); - if(! Sx_types[67].call(null, a)) return cek_value(final); - var b = Sx_runtime[2].call(null, er); + if(! Sx_types[71].call(null, a)) return cek_value(final); + var match = Sx_types[13][1]; + if(match){var hook = match[1]; return caml_call1(hook, final);} + var b = Sx_runtime[3].call(null, er); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } function cek_resume(suspended_state, result){ @@ -53518,8 +60538,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var es = [0, [3, cst_eval], 0]; function cek_step(state){ - var a = [0, cek_phase(state), es], b = Sx_runtime[1].call(null, cst, a); - return Sx_types[67].call(null, b) + var a = [0, cek_phase(state), es], b = Sx_runtime[2].call(null, cst, a); + return Sx_types[71].call(null, b) ? step_eval(state) : step_continue(state); } @@ -53547,32 +60567,32 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= expr = cek_control(state), env = cek_env(state), kont = cek_kont(state), - match_val = Sx_runtime[73].call(null, expr); + match_val = Sx_runtime[74].call(null, expr); if(caml_equal(match_val, et)) return make_cek_value(expr, env, kont); if(caml_equal(match_val, eu)) return make_cek_value(expr, env, kont); if(caml_equal(match_val, ev)) return make_cek_value(expr, env, kont); if(caml_equal(match_val, ew)) return make_cek_value(0, env, kont); if(! caml_equal(match_val, ex)){ if(caml_equal(match_val, eF)) - return make_cek_value(Sx_types[69].call(null, expr), env, kont); + return make_cek_value(Sx_types[73].call(null, expr), env, kont); if(caml_equal(match_val, eG)){ var - ks = Sx_runtime[1].call(null, cst_keys, [0, expr, 0]), - h = Sx_runtime[33].call(null, ks); - if(Sx_types[67].call(null, h)) + ks = Sx_runtime[2].call(null, cst_keys, [0, expr, 0]), + h = Sx_runtime[34].call(null, ks); + if(Sx_types[71].call(null, h)) return make_cek_value ([7, Stdlib_Hashtbl[1].call(null, 0, 0)], env, kont); var - first_key = Sx_runtime[14].call(null, ks), - i = Sx_runtime[15].call(null, ks), - j = Sx_runtime[5].call(null, i), + first_key = Sx_runtime[15].call(null, ks), + i = Sx_runtime[16].call(null, ks), + j = Sx_runtime[6].call(null, i), remaining_entries = [0, eH]; Stdlib_List[18].call (null, function(k){ - var a = [6, [0, k, [0, Sx_runtime[25].call(null, expr, k), 0]]]; + var a = [6, [0, k, [0, Sx_runtime[26].call(null, expr, k), 0]]]; remaining_entries[1] = - Sx_runtime[10].call(null, remaining_entries[1], a); + Sx_runtime[11].call(null, remaining_entries[1], a); return 0; }, j); @@ -53583,37 +60603,37 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (remaining_entries[1], [6, [0, [6, [0, first_key, 0]], 0]], env), kont); return make_cek_state - (Sx_runtime[25].call(null, expr, first_key), env, k); + (Sx_runtime[26].call(null, expr, first_key), env, k); } if(! caml_equal(match_val, eI)) return make_cek_value(expr, env, kont); - var l = Sx_runtime[33].call(null, expr); - return Sx_types[67].call(null, l) + var l = Sx_runtime[34].call(null, expr); + return Sx_types[71].call(null, l) ? make_cek_value(eJ, env, kont) : step_eval_list(expr, env, kont); } var - name = Sx_types[68].call(null, expr), - a = Sx_runtime[75].call(null, env, name); - if(Sx_types[67].call(null, a)) - var val = Sx_runtime[76].call(null, env, name); + name = Sx_types[72].call(null, expr), + a = Sx_runtime[76].call(null, env, name); + if(Sx_types[71].call(null, a)) + var val = Sx_runtime[77].call(null, env, name); else{ - var b = Sx_runtime[91].call(null, name); - if(Sx_types[67].call(null, b)) - var val = Sx_runtime[92].call(null, name); + var b = Sx_runtime[92].call(null, name); + if(Sx_types[71].call(null, b)) + var val = Sx_runtime[93].call(null, name); else{ - var c = Sx_runtime[1].call(null, cst, [0, name, ez]); - if(Sx_types[67].call(null, c)) + var c = Sx_runtime[2].call(null, cst, [0, name, ez]); + if(Sx_types[71].call(null, c)) var val = eA; else{ - var d = Sx_runtime[1].call(null, cst, [0, name, eB]); - if(Sx_types[67].call(null, d)) + var d = Sx_runtime[2].call(null, cst, [0, name, eB]); + if(Sx_types[71].call(null, d)) var val = eC; else{ - var e = Sx_runtime[1].call(null, cst, [0, name, eD]); - if(! Sx_types[67].call(null, e)){ + var e = Sx_runtime[2].call(null, cst, [0, name, eD]); + if(! Sx_types[71].call(null, e)){ var - f = [3, Sx_runtime[4].call(null, [0, eE, [0, name, 0]])], - g = Sx_runtime[2].call(null, f); + f = [3, Sx_runtime[5].call(null, [0, eE, [0, name, 0]])], + g = Sx_runtime[3].call(null, f); throw caml_maybe_attach_backtrace([0, Sx_types[9], g], 1); } var val = 0; @@ -53621,15 +60641,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } } } - var and = Sx_runtime[83].call(null, val); - if(Sx_types[67].call(null, and)) - Sx_runtime[1].call(null, cst_starts_with, [0, name, ey]); + var and = Sx_runtime[84].call(null, val); + if(Sx_types[71].call(null, and)) + Sx_runtime[2].call(null, cst_starts_with, [0, name, ey]); return make_cek_value(val, env, kont); } var eK = [0, 0]; function step_sf_raise(args, env, kont){ var a = kont_push(make_raise_eval_frame(env, eK), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } var cst$14 = "_", @@ -53681,15 +60701,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= e_ = [4, cst_let]; function step_sf_guard$0(counter, args, env, kont){ var - var_clauses = Sx_runtime[14].call(null, args), - body = Sx_runtime[15].call(null, args), - var$ = Sx_runtime[14].call(null, var_clauses), - clauses = Sx_runtime[15].call(null, var_clauses), - sentinel = Sx_types[55].call(null, eL), + var_clauses = Sx_runtime[15].call(null, args), + body = Sx_runtime[16].call(null, args), + var$ = Sx_runtime[15].call(null, var_clauses), + clauses = Sx_runtime[16].call(null, var_clauses), + sentinel = Sx_types[59].call(null, eL), b = - [6, [0, [6, [0, eV, [0, Sx_runtime[18].call(null, eU, body), 0]]], 0]], + [6, [0, [6, [0, eV, [0, Sx_runtime[19].call(null, eU, body), 0]]], 0]], c = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, @@ -53706,21 +60726,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= 0]]], 0]], 0]]), - d = [6, [0, [6, [0, e0, [0, Sx_runtime[18].call(null, eZ, c), 0]]], 0]], - e = Sx_runtime[18].call(null, [6, [0, var$, 0]], d), - f = [0, Sx_runtime[18].call(null, e1, e), 0], - g = Sx_runtime[18].call(null, e3, e2), - h = [6, [0, [6, [0, Sx_runtime[18].call(null, e4, g), f]], 0]], - i = Sx_runtime[18].call(null, h, b), - j = [6, [0, Sx_runtime[18].call(null, e5, i), 0]], - k = Sx_runtime[18].call(null, e6, j), - l = [6, [0, Sx_runtime[18].call(null, e7, k), 0]], + d = [6, [0, [6, [0, e0, [0, Sx_runtime[19].call(null, eZ, c), 0]]], 0]], + e = Sx_runtime[19].call(null, [6, [0, var$, 0]], d), + f = [0, Sx_runtime[19].call(null, e1, e), 0], + g = Sx_runtime[19].call(null, e3, e2), + h = [6, [0, [6, [0, Sx_runtime[19].call(null, e4, g), f]], 0]], + i = Sx_runtime[19].call(null, h, b), + j = [6, [0, Sx_runtime[19].call(null, e5, i), 0]], + k = Sx_runtime[19].call(null, e6, j), + l = [6, [0, Sx_runtime[19].call(null, e7, k), 0]], a = [6, [0, e_, [0, - [6, [0, [6, [0, e9, [0, Sx_runtime[18].call(null, e8, l), 0]]], 0]], + [6, [0, [6, [0, e9, [0, Sx_runtime[19].call(null, e8, l), 0]]], 0]], [0, [6, [0, @@ -53748,28 +60768,28 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } function step_sf_callcc(args, env, kont){ var a = kont_push(make_callcc_frame(env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } function step_sf_case(args, env, kont){ var a = kont_push - (make_case_frame(0, Sx_runtime[15].call(null, args), env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + (make_case_frame(0, Sx_runtime[16].call(null, args), env), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } var e$ = [2, 1.], fa = [4, cst_begin]; function step_sf_let_match(args, env, kont){ var - pattern = Sx_runtime[14].call(null, args), - expr = Sx_runtime[17].call(null, args, e$), - a = Sx_runtime[15].call(null, args), - body = Sx_runtime[15].call(null, a); + pattern = Sx_runtime[15].call(null, args), + expr = Sx_runtime[18].call(null, args, e$), + a = Sx_runtime[16].call(null, args), + body = Sx_runtime[16].call(null, a); return step_sf_match ([6, [0, expr, [0, - [6, [0, pattern, [0, Sx_runtime[18].call(null, fa, body), 0]]], + [6, [0, pattern, [0, Sx_runtime[19].call(null, fa, body), 0]]], 0]]], env, kont); @@ -53871,100 +60891,100 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var expr = expr$1; for(;;){ var - head = Sx_runtime[14].call(null, expr), - args = Sx_runtime[15].call(null, expr), - e = [0, Sx_runtime[73].call(null, head), fb], - or = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, or)) + head = Sx_runtime[15].call(null, expr), + args = Sx_runtime[16].call(null, expr), + e = [0, Sx_runtime[74].call(null, head), fb], + or = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, or)) var or$0 = or; else{ var - aY = [0, Sx_runtime[73].call(null, head), gt], - or$1 = Sx_runtime[1].call(null, cst, aY); - if(Sx_types[67].call(null, or$1)) + aY = [0, Sx_runtime[74].call(null, head), gt], + or$1 = Sx_runtime[2].call(null, cst, aY); + if(Sx_types[71].call(null, or$1)) var or$0 = or$1; else var - aZ = [0, Sx_runtime[73].call(null, head), gu], - or$0 = Sx_runtime[1].call(null, cst, aZ); + aZ = [0, Sx_runtime[74].call(null, head), gu], + or$0 = Sx_runtime[2].call(null, cst, aZ); } - var f = [0, 1 - Sx_types[67].call(null, or$0)]; - if(Sx_types[67].call(null, f)){ - var g = Sx_runtime[33].call(null, expr); - if(Sx_types[67].call(null, g)) return make_cek_value(fc, env, kont); + var f = [0, 1 - Sx_types[71].call(null, or$0)]; + if(Sx_types[71].call(null, f)){ + var g = Sx_runtime[34].call(null, expr); + if(Sx_types[71].call(null, g)) return make_cek_value(fc, env, kont); var h = kont_push - (make_map_frame(0, Sx_runtime[15].call(null, expr), fd, env), kont); - return make_cek_state(Sx_runtime[14].call(null, expr), env, h); + (make_map_frame(0, Sx_runtime[16].call(null, expr), fd, env), kont); + return make_cek_state(Sx_runtime[15].call(null, expr), env, h); } var - i = [0, Sx_runtime[73].call(null, head), fe], - j = Sx_runtime[1].call(null, cst, i); - if(! Sx_types[67].call(null, j)) + i = [0, Sx_runtime[74].call(null, head), fe], + j = Sx_runtime[2].call(null, cst, i); + if(! Sx_types[71].call(null, j)) return step_eval_call(head, args, env, kont); var - match_val = Sx_types[68].call(null, head), - k = Sx_runtime[1].call(null, cst, [0, match_val, ff]); - if(Sx_types[67].call(null, k)) return step_sf_if(args, env, kont); - var l = Sx_runtime[1].call(null, cst, [0, match_val, fg]); - if(Sx_types[67].call(null, l)) return step_sf_when(args, env, kont); - var m = Sx_runtime[1].call(null, cst, [0, match_val, fh]); - if(Sx_types[67].call(null, m)) return step_sf_cond(args, env, kont); - var n = Sx_runtime[1].call(null, cst, [0, match_val, fi]); - if(Sx_types[67].call(null, n)) return step_sf_case(args, env, kont); - var o = Sx_runtime[1].call(null, cst, [0, match_val, fj]); - if(Sx_types[67].call(null, o)) return step_sf_and(args, env, kont); - var p = Sx_runtime[1].call(null, cst, [0, match_val, fk]); - if(Sx_types[67].call(null, p)) return step_sf_or(args, env, kont); - var q = Sx_runtime[1].call(null, cst, [0, match_val, fl]); - if(Sx_types[67].call(null, q)) return step_sf_let(args, env, kont); - var r = Sx_runtime[1].call(null, cst, [0, match_val, fm]); - if(Sx_types[67].call(null, r)) return step_sf_let(args, env, kont); - var s = Sx_runtime[1].call(null, cst, [0, match_val, fn]); - if(Sx_types[67].call(null, s)) return step_sf_lambda(args, env, kont); - var t = Sx_runtime[1].call(null, cst, [0, match_val, fo]); - if(Sx_types[67].call(null, t)) return step_sf_lambda(args, env, kont); - var u = Sx_runtime[1].call(null, cst, [0, match_val, fp]); - if(Sx_types[67].call(null, u)) return step_sf_define(args, env, kont); - var v = Sx_runtime[1].call(null, cst, [0, match_val, fq]); - if(Sx_types[67].call(null, v)) + match_val = Sx_types[72].call(null, head), + k = Sx_runtime[2].call(null, cst, [0, match_val, ff]); + if(Sx_types[71].call(null, k)) return step_sf_if(args, env, kont); + var l = Sx_runtime[2].call(null, cst, [0, match_val, fg]); + if(Sx_types[71].call(null, l)) return step_sf_when(args, env, kont); + var m = Sx_runtime[2].call(null, cst, [0, match_val, fh]); + if(Sx_types[71].call(null, m)) return step_sf_cond(args, env, kont); + var n = Sx_runtime[2].call(null, cst, [0, match_val, fi]); + if(Sx_types[71].call(null, n)) return step_sf_case(args, env, kont); + var o = Sx_runtime[2].call(null, cst, [0, match_val, fj]); + if(Sx_types[71].call(null, o)) return step_sf_and(args, env, kont); + var p = Sx_runtime[2].call(null, cst, [0, match_val, fk]); + if(Sx_types[71].call(null, p)) return step_sf_or(args, env, kont); + var q = Sx_runtime[2].call(null, cst, [0, match_val, fl]); + if(Sx_types[71].call(null, q)) return step_sf_let(args, env, kont); + var r = Sx_runtime[2].call(null, cst, [0, match_val, fm]); + if(Sx_types[71].call(null, r)) return step_sf_let(args, env, kont); + var s = Sx_runtime[2].call(null, cst, [0, match_val, fn]); + if(Sx_types[71].call(null, s)) return step_sf_lambda(args, env, kont); + var t = Sx_runtime[2].call(null, cst, [0, match_val, fo]); + if(Sx_types[71].call(null, t)) return step_sf_lambda(args, env, kont); + var u = Sx_runtime[2].call(null, cst, [0, match_val, fp]); + if(Sx_types[71].call(null, u)) return step_sf_define(args, env, kont); + var v = Sx_runtime[2].call(null, cst, [0, match_val, fq]); + if(Sx_types[71].call(null, v)) return make_cek_value(sf_defcomp(args, env), env, kont); - var w = Sx_runtime[1].call(null, cst, [0, match_val, fr]); - if(Sx_types[67].call(null, w)) + var w = Sx_runtime[2].call(null, cst, [0, match_val, fr]); + if(Sx_types[71].call(null, w)) return make_cek_value(sf_defisland(args, env), env, kont); - var x = Sx_runtime[1].call(null, cst, [0, match_val, fs]); - if(Sx_types[67].call(null, x)) + var x = Sx_runtime[2].call(null, cst, [0, match_val, fs]); + if(Sx_types[71].call(null, x)) return make_cek_value(sf_defmacro(args, env), env, kont); - var y = Sx_runtime[1].call(null, cst, [0, match_val, ft]); - if(Sx_types[67].call(null, y)) + var y = Sx_runtime[2].call(null, cst, [0, match_val, ft]); + if(Sx_types[71].call(null, y)) return make_cek_value(sf_defio(args, env), env, kont); - var z = Sx_runtime[1].call(null, cst, [0, match_val, fu]); - if(Sx_types[67].call(null, z)) + var z = Sx_runtime[2].call(null, cst, [0, match_val, fu]); + if(Sx_types[71].call(null, z)) return step_sf_define_foreign(args, env, kont); - var A = Sx_runtime[1].call(null, cst, [0, match_val, fv]); - if(Sx_types[67].call(null, A)) return step_sf_io(args, env, kont); - var B = Sx_runtime[1].call(null, cst, [0, match_val, fw]); - if(Sx_types[67].call(null, B)) return step_sf_begin(args, env, kont); - var C = Sx_runtime[1].call(null, cst, [0, match_val, fx]); - if(! Sx_types[67].call(null, C)) break; + var A = Sx_runtime[2].call(null, cst, [0, match_val, fv]); + if(Sx_types[71].call(null, A)) return step_sf_io(args, env, kont); + var B = Sx_runtime[2].call(null, cst, [0, match_val, fw]); + if(Sx_types[71].call(null, B)) return step_sf_begin(args, env, kont); + var C = Sx_runtime[2].call(null, cst, [0, match_val, fx]); + if(! Sx_types[71].call(null, C)) break; var - D = Sx_runtime[33].call(null, args), - and = [0, 1 - Sx_types[67].call(null, D)]; - if(Sx_types[67].call(null, and)){ + D = Sx_runtime[34].call(null, args), + and = [0, 1 - Sx_types[71].call(null, D)]; + if(Sx_types[71].call(null, and)){ var - E = Sx_runtime[14].call(null, args), - and$0 = Sx_runtime[37].call(null, E); - if(Sx_types[67].call(null, and$0)){ + E = Sx_runtime[15].call(null, args), + and$0 = Sx_runtime[38].call(null, E); + if(Sx_types[71].call(null, and$0)){ var - F = Sx_runtime[14].call(null, args), - G = Sx_runtime[33].call(null, F), - and$1 = [0, 1 - Sx_types[67].call(null, G)]; - if(Sx_types[67].call(null, and$1)) + F = Sx_runtime[15].call(null, args), + G = Sx_runtime[34].call(null, F), + and$1 = [0, 1 - Sx_types[71].call(null, G)]; + if(Sx_types[71].call(null, and$1)) var - H = Sx_runtime[14].call(null, args), - I = Sx_runtime[14].call(null, H), - a = Sx_runtime[37].call(null, I); + H = Sx_runtime[15].call(null, args), + I = Sx_runtime[15].call(null, H), + a = Sx_runtime[38].call(null, I); else var a = and$1; } @@ -53973,219 +60993,219 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and; - if(! Sx_types[67].call(null, a)) return step_sf_begin(args, env, kont); + if(! Sx_types[71].call(null, a)) return step_sf_begin(args, env, kont); var - bindings = Sx_runtime[14].call(null, args), - test_clause = Sx_runtime[17].call(null, args, fy), - J = Sx_runtime[15].call(null, args), - body = Sx_runtime[15].call(null, J), - K = Sx_runtime[5].call(null, bindings); + bindings = Sx_runtime[15].call(null, args), + test_clause = Sx_runtime[18].call(null, args, fy), + J = Sx_runtime[16].call(null, args), + body = Sx_runtime[16].call(null, J), + K = Sx_runtime[6].call(null, bindings); Stdlib_List[20].call - (null, function(b){return Sx_runtime[14].call(null, b);}, K); - var L = Sx_runtime[5].call(null, bindings); + (null, function(b){return Sx_runtime[15].call(null, b);}, K); + var L = Sx_runtime[6].call(null, bindings); Stdlib_List[20].call - (null, function(b){return Sx_runtime[17].call(null, b, fz);}, L); + (null, function(b){return Sx_runtime[18].call(null, b, fz);}, L); var - M = Sx_runtime[5].call(null, bindings), + M = Sx_runtime[6].call(null, bindings), steps = [6, Stdlib_List[20].call (null, function(b){ var - a = [0, Sx_runtime[24].call(null, b), fA], - c = Sx_runtime[1].call(null, cst$0, a); - return Sx_types[67].call(null, c) - ? Sx_runtime[17].call(null, b, fB) - : Sx_runtime[14].call(null, b); + a = [0, Sx_runtime[25].call(null, b), fA], + c = Sx_runtime[2].call(null, cst$0, a); + return Sx_types[71].call(null, c) + ? Sx_runtime[18].call(null, b, fB) + : Sx_runtime[15].call(null, b); }, M)], - test = Sx_runtime[14].call(null, test_clause), - result = Sx_runtime[15].call(null, test_clause), - N = [0, body, [0, [6, [0, Sx_runtime[18].call(null, fC, steps), 0]], 0]], - O = Sx_runtime[1].call(null, cst_append, N), - P = [6, [0, Sx_runtime[18].call(null, fD, O), 0]], - Q = Sx_runtime[33].call(null, result), + test = Sx_runtime[15].call(null, test_clause), + result = Sx_runtime[16].call(null, test_clause), + N = [0, body, [0, [6, [0, Sx_runtime[19].call(null, fC, steps), 0]], 0]], + O = Sx_runtime[2].call(null, cst_append, N), + P = [6, [0, Sx_runtime[19].call(null, fD, O), 0]], + Q = Sx_runtime[34].call(null, result), R = - Sx_types[67].call(null, Q) ? 0 : Sx_runtime[18].call(null, fI, result), - S = Sx_runtime[18].call(null, R, P), - T = Sx_runtime[18].call(null, test, S), - U = [6, [0, Sx_runtime[18].call(null, fE, T), 0]], - V = Sx_runtime[5].call(null, bindings), + Sx_types[71].call(null, Q) ? 0 : Sx_runtime[19].call(null, fI, result), + S = Sx_runtime[19].call(null, R, P), + T = Sx_runtime[19].call(null, test, S), + U = [6, [0, Sx_runtime[19].call(null, fE, T), 0]], + V = Sx_runtime[6].call(null, bindings), W = [6, Stdlib_List[20].call (null, function(b){ - var a = [0, Sx_runtime[17].call(null, b, fF), 0]; - return [6, [0, Sx_runtime[14].call(null, b), a]]; + var a = [0, Sx_runtime[18].call(null, b, fF), 0]; + return [6, [0, Sx_runtime[15].call(null, b), a]]; }, V)], - X = Sx_runtime[18].call(null, W, U), - Y = Sx_runtime[18].call(null, fG, X), - expr$0 = Sx_runtime[18].call(null, fH, Y); + X = Sx_runtime[19].call(null, W, U), + Y = Sx_runtime[19].call(null, fG, X), + expr$0 = Sx_runtime[19].call(null, fH, Y); expr = expr$0; } - var Z = Sx_runtime[1].call(null, cst, [0, match_val, fJ]); - if(Sx_types[67].call(null, Z)) + var Z = Sx_runtime[2].call(null, cst, [0, match_val, fJ]); + if(Sx_types[71].call(null, Z)) return counter < 50 ? step_sf_guard$0(counter + 1 | 0, args, env, kont) : caml_trampoline_return(step_sf_guard$0, [0, args, env, kont]); - var _ = Sx_runtime[1].call(null, cst, [0, match_val, fK]); - if(Sx_types[67].call(null, _)){ + var _ = Sx_runtime[2].call(null, cst, [0, match_val, fK]); + if(Sx_types[71].call(null, _)){ var - $ = Sx_runtime[33].call(null, args), - aa = Sx_types[67].call(null, $) ? 0 : Sx_runtime[14].call(null, args); + $ = Sx_runtime[34].call(null, args), + aa = Sx_types[71].call(null, $) ? 0 : Sx_runtime[15].call(null, args); return make_cek_value(aa, env, kont); } - var ab = Sx_runtime[1].call(null, cst, [0, match_val, fL]); - if(Sx_types[67].call(null, ab)) + var ab = Sx_runtime[2].call(null, cst, [0, match_val, fL]); + if(Sx_types[71].call(null, ab)) return make_cek_value - (qq_expand(Sx_runtime[14].call(null, args), env), env, kont); - var ac = Sx_runtime[1].call(null, cst, [0, match_val, fM]); - if(Sx_types[67].call(null, ac)) + (qq_expand(Sx_runtime[15].call(null, args), env), env, kont); + var ac = Sx_runtime[2].call(null, cst, [0, match_val, fM]); + if(Sx_types[71].call(null, ac)) return step_sf_thread_first(args, env, kont); - var ad = Sx_runtime[1].call(null, cst, [0, match_val, fN]); - if(Sx_types[67].call(null, ad)) + var ad = Sx_runtime[2].call(null, cst, [0, match_val, fN]); + if(Sx_types[71].call(null, ad)) return step_sf_thread_last(args, env, kont); - var ae = Sx_runtime[1].call(null, cst, [0, match_val, fO]); - if(Sx_types[67].call(null, ae)) + var ae = Sx_runtime[2].call(null, cst, [0, match_val, fO]); + if(Sx_types[71].call(null, ae)) return step_sf_thread_last(args, env, kont); - var af = Sx_runtime[1].call(null, cst, [0, match_val, fP]); - if(Sx_types[67].call(null, af)) return step_sf_thread_as(args, env, kont); - var ag = Sx_runtime[1].call(null, cst, [0, match_val, fQ]); - if(Sx_types[67].call(null, ag)) return step_sf_set_b(args, env, kont); - var ah = Sx_runtime[1].call(null, cst, [0, match_val, fR]); - if(Sx_types[67].call(null, ah)) return step_sf_letrec(args, env, kont); - var ai = Sx_runtime[1].call(null, cst, [0, match_val, fS]); - if(Sx_types[67].call(null, ai)) return step_sf_reset(args, env, kont); - var aj = Sx_runtime[1].call(null, cst, [0, match_val, fT]); - if(Sx_types[67].call(null, aj)) return step_sf_shift(args, env, kont); - var ak = Sx_runtime[1].call(null, cst, [0, match_val, fU]); - if(Sx_types[67].call(null, ak)) return step_sf_deref(args, env, kont); - var al = Sx_runtime[1].call(null, cst, [0, match_val, fV]); - if(Sx_types[67].call(null, al)) return step_sf_scope(args, env, kont); - var am = Sx_runtime[1].call(null, cst, [0, match_val, fW]); - if(Sx_types[67].call(null, am)) return step_sf_provide(args, env, kont); - var an = Sx_runtime[1].call(null, cst, [0, match_val, fX]); - if(Sx_types[67].call(null, an)) return step_sf_peek(args, env, kont); - var ao = Sx_runtime[1].call(null, cst, [0, match_val, fY]); - if(Sx_types[67].call(null, ao)) return step_sf_provide_b(args, env, kont); - var ap = Sx_runtime[1].call(null, cst, [0, match_val, fZ]); - if(Sx_types[67].call(null, ap)) return step_sf_context(args, env, kont); - var aq = Sx_runtime[1].call(null, cst, [0, match_val, f0]); - if(Sx_types[67].call(null, aq)) return step_sf_bind(args, env, kont); - var ar = Sx_runtime[1].call(null, cst, [0, match_val, f1]); - if(Sx_types[67].call(null, ar)) return step_sf_emit(args, env, kont); - var as = Sx_runtime[1].call(null, cst, [0, match_val, f2]); - if(Sx_types[67].call(null, as)) return step_sf_emitted(args, env, kont); - var at = Sx_runtime[1].call(null, cst, [0, match_val, f3]); - if(Sx_types[67].call(null, at)) + var af = Sx_runtime[2].call(null, cst, [0, match_val, fP]); + if(Sx_types[71].call(null, af)) return step_sf_thread_as(args, env, kont); + var ag = Sx_runtime[2].call(null, cst, [0, match_val, fQ]); + if(Sx_types[71].call(null, ag)) return step_sf_set_b(args, env, kont); + var ah = Sx_runtime[2].call(null, cst, [0, match_val, fR]); + if(Sx_types[71].call(null, ah)) return step_sf_letrec(args, env, kont); + var ai = Sx_runtime[2].call(null, cst, [0, match_val, fS]); + if(Sx_types[71].call(null, ai)) return step_sf_reset(args, env, kont); + var aj = Sx_runtime[2].call(null, cst, [0, match_val, fT]); + if(Sx_types[71].call(null, aj)) return step_sf_shift(args, env, kont); + var ak = Sx_runtime[2].call(null, cst, [0, match_val, fU]); + if(Sx_types[71].call(null, ak)) return step_sf_deref(args, env, kont); + var al = Sx_runtime[2].call(null, cst, [0, match_val, fV]); + if(Sx_types[71].call(null, al)) return step_sf_scope(args, env, kont); + var am = Sx_runtime[2].call(null, cst, [0, match_val, fW]); + if(Sx_types[71].call(null, am)) return step_sf_provide(args, env, kont); + var an = Sx_runtime[2].call(null, cst, [0, match_val, fX]); + if(Sx_types[71].call(null, an)) return step_sf_peek(args, env, kont); + var ao = Sx_runtime[2].call(null, cst, [0, match_val, fY]); + if(Sx_types[71].call(null, ao)) return step_sf_provide_b(args, env, kont); + var ap = Sx_runtime[2].call(null, cst, [0, match_val, fZ]); + if(Sx_types[71].call(null, ap)) return step_sf_context(args, env, kont); + var aq = Sx_runtime[2].call(null, cst, [0, match_val, f0]); + if(Sx_types[71].call(null, aq)) return step_sf_bind(args, env, kont); + var ar = Sx_runtime[2].call(null, cst, [0, match_val, f1]); + if(Sx_types[71].call(null, ar)) return step_sf_emit(args, env, kont); + var as = Sx_runtime[2].call(null, cst, [0, match_val, f2]); + if(Sx_types[71].call(null, as)) return step_sf_emitted(args, env, kont); + var at = Sx_runtime[2].call(null, cst, [0, match_val, f3]); + if(Sx_types[71].call(null, at)) return step_sf_handler_bind(args, env, kont); - var au = Sx_runtime[1].call(null, cst, [0, match_val, f4]); - if(Sx_types[67].call(null, au)) + var au = Sx_runtime[2].call(null, cst, [0, match_val, f4]); + if(Sx_types[71].call(null, au)) return step_sf_restart_case(args, env, kont); - var av = Sx_runtime[1].call(null, cst, [0, match_val, f5]); - if(Sx_types[67].call(null, av)) return step_sf_signal(args, env, kont); - var aw = Sx_runtime[1].call(null, cst, [0, match_val, f6]); - if(Sx_types[67].call(null, aw)) + var av = Sx_runtime[2].call(null, cst, [0, match_val, f5]); + if(Sx_types[71].call(null, av)) return step_sf_signal(args, env, kont); + var aw = Sx_runtime[2].call(null, cst, [0, match_val, f6]); + if(Sx_types[71].call(null, aw)) return step_sf_invoke_restart(args, env, kont); - var ax = Sx_runtime[1].call(null, cst, [0, match_val, f7]); - if(Sx_types[67].call(null, ax)) return step_sf_match(args, env, kont); - var ay = Sx_runtime[1].call(null, cst, [0, match_val, f8]); - if(Sx_types[67].call(null, ay)) return step_sf_let_match(args, env, kont); - var az = Sx_runtime[1].call(null, cst, [0, match_val, f9]); - if(Sx_types[67].call(null, az)) + var ax = Sx_runtime[2].call(null, cst, [0, match_val, f7]); + if(Sx_types[71].call(null, ax)) return step_sf_match(args, env, kont); + var ay = Sx_runtime[2].call(null, cst, [0, match_val, f8]); + if(Sx_types[71].call(null, ay)) return step_sf_let_match(args, env, kont); + var az = Sx_runtime[2].call(null, cst, [0, match_val, f9]); + if(Sx_types[71].call(null, az)) return step_sf_dynamic_wind(args, env, kont); - var aA = Sx_runtime[1].call(null, cst, [0, match_val, f_]); - if(Sx_types[67].call(null, aA)) return step_ho_map(args, env, kont); - var aB = Sx_runtime[1].call(null, cst, [0, match_val, f$]); - if(Sx_types[67].call(null, aB)) + var aA = Sx_runtime[2].call(null, cst, [0, match_val, f_]); + if(Sx_types[71].call(null, aA)) return step_ho_map(args, env, kont); + var aB = Sx_runtime[2].call(null, cst, [0, match_val, f$]); + if(Sx_types[71].call(null, aB)) return step_ho_map_indexed(args, env, kont); - var aC = Sx_runtime[1].call(null, cst, [0, match_val, ga]); - if(Sx_types[67].call(null, aC)) return step_ho_filter(args, env, kont); - var aD = Sx_runtime[1].call(null, cst, [0, match_val, gb]); - if(Sx_types[67].call(null, aD)) return step_ho_reduce(args, env, kont); - var aE = Sx_runtime[1].call(null, cst, [0, match_val, gc]); - if(Sx_types[67].call(null, aE)) return step_ho_some(args, env, kont); - var aF = Sx_runtime[1].call(null, cst, [0, match_val, gd]); - if(Sx_types[67].call(null, aF)) return step_ho_every(args, env, kont); - var aG = Sx_runtime[1].call(null, cst, [0, match_val, ge]); - if(Sx_types[67].call(null, aG)) return step_ho_for_each(args, env, kont); - var aH = Sx_runtime[1].call(null, cst, [0, match_val, gf]); - if(Sx_types[67].call(null, aH)) return step_sf_raise(args, env, kont); - var aI = Sx_runtime[1].call(null, cst, [0, match_val, gg]); - if(Sx_types[67].call(null, aI)){ + var aC = Sx_runtime[2].call(null, cst, [0, match_val, ga]); + if(Sx_types[71].call(null, aC)) return step_ho_filter(args, env, kont); + var aD = Sx_runtime[2].call(null, cst, [0, match_val, gb]); + if(Sx_types[71].call(null, aD)) return step_ho_reduce(args, env, kont); + var aE = Sx_runtime[2].call(null, cst, [0, match_val, gc]); + if(Sx_types[71].call(null, aE)) return step_ho_some(args, env, kont); + var aF = Sx_runtime[2].call(null, cst, [0, match_val, gd]); + if(Sx_types[71].call(null, aF)) return step_ho_every(args, env, kont); + var aG = Sx_runtime[2].call(null, cst, [0, match_val, ge]); + if(Sx_types[71].call(null, aG)) return step_ho_for_each(args, env, kont); + var aH = Sx_runtime[2].call(null, cst, [0, match_val, gf]); + if(Sx_types[71].call(null, aH)) return step_sf_raise(args, env, kont); + var aI = Sx_runtime[2].call(null, cst, [0, match_val, gg]); + if(Sx_types[71].call(null, aI)){ var aJ = kont_push(make_raise_eval_frame(env, gh), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, aJ); + return make_cek_state(Sx_runtime[15].call(null, args), env, aJ); } - var aK = Sx_runtime[1].call(null, cst, [0, match_val, gi]); - if(Sx_types[67].call(null, aK)) return step_sf_callcc(args, env, kont); - var aL = Sx_runtime[1].call(null, cst, [0, match_val, gj]); - if(Sx_types[67].call(null, aL)) return step_sf_callcc(args, env, kont); - var aM = Sx_runtime[1].call(null, cst, [0, match_val, gk]); - if(Sx_types[67].call(null, aM)) return step_sf_perform(args, env, kont); - var aN = Sx_runtime[1].call(null, cst, [0, match_val, gl]); - if(Sx_types[67].call(null, aN)) + var aK = Sx_runtime[2].call(null, cst, [0, match_val, gi]); + if(Sx_types[71].call(null, aK)) return step_sf_callcc(args, env, kont); + var aL = Sx_runtime[2].call(null, cst, [0, match_val, gj]); + if(Sx_types[71].call(null, aL)) return step_sf_callcc(args, env, kont); + var aM = Sx_runtime[2].call(null, cst, [0, match_val, gk]); + if(Sx_types[71].call(null, aM)) return step_sf_perform(args, env, kont); + var aN = Sx_runtime[2].call(null, cst, [0, match_val, gl]); + if(Sx_types[71].call(null, aN)) return step_sf_define_library(args, env, kont); - var aO = Sx_runtime[1].call(null, cst, [0, match_val, gm]); - if(Sx_types[67].call(null, aO)) return step_sf_import(args, env, kont); - var aP = Sx_runtime[1].call(null, cst, [0, match_val, gn]); - if(Sx_types[67].call(null, aP)) + var aO = Sx_runtime[2].call(null, cst, [0, match_val, gm]); + if(Sx_types[71].call(null, aO)) return step_sf_import(args, env, kont); + var aP = Sx_runtime[2].call(null, cst, [0, match_val, gn]); + if(Sx_types[71].call(null, aP)) return make_cek_value(sf_define_record_type(args, env), env, kont); - var aQ = Sx_runtime[1].call(null, cst, [0, match_val, go]); - if(Sx_types[67].call(null, aQ)) + var aQ = Sx_runtime[2].call(null, cst, [0, match_val, go]); + if(Sx_types[71].call(null, aQ)) return make_cek_value(sf_define_protocol(args, env), env, kont); - var aR = Sx_runtime[1].call(null, cst, [0, match_val, gp]); - if(Sx_types[67].call(null, aR)) + var aR = Sx_runtime[2].call(null, cst, [0, match_val, gp]); + if(Sx_types[71].call(null, aR)) return make_cek_value(sf_implement(args, env), env, kont); - var aS = Sx_runtime[1].call(null, cst, [0, match_val, gq]); - if(Sx_types[67].call(null, aS)) + var aS = Sx_runtime[2].call(null, cst, [0, match_val, gq]); + if(Sx_types[71].call(null, aS)) return step_sf_parameterize(args, env, kont); - var aT = Sx_runtime[1].call(null, cst, [0, match_val, gr]); - if(Sx_types[67].call(null, aT)) + var aT = Sx_runtime[2].call(null, cst, [0, match_val, gr]); + if(Sx_types[71].call(null, aT)) return make_cek_value(sf_syntax_rules(args, env), env, kont); - var aU = Sx_runtime[1].call(null, cst, [0, match_val, gs]); - if(Sx_types[67].call(null, aU)) return step_sf_define(args, env, kont); + var aU = Sx_runtime[2].call(null, cst, [0, match_val, gs]); + if(Sx_types[71].call(null, aU)) return step_sf_define(args, env, kont); var and$2 = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_has_key, [0, custom_special_forms, [0, match_val, 0]]); - if(Sx_types[67].call(null, and$2)) + if(Sx_types[71].call(null, and$2)) var - aV = Sx_runtime[75].call(null, env, match_val), - b = [0, 1 - Sx_types[67].call(null, aV)]; + aV = Sx_runtime[76].call(null, env, match_val), + b = [0, 1 - Sx_types[71].call(null, aV)]; else var b = and$2; - if(Sx_types[67].call(null, b)) + if(Sx_types[71].call(null, b)) return make_cek_value (cek_call - (Sx_runtime[25].call(null, custom_special_forms, match_val), + (Sx_runtime[26].call(null, custom_special_forms, match_val), [6, [0, args, [0, env, 0]]]), env, kont); - var and$3 = Sx_runtime[75].call(null, env, match_val); - if(Sx_types[67].call(null, and$3)) + var and$3 = Sx_runtime[76].call(null, env, match_val); + if(Sx_types[71].call(null, and$3)) var - aW = Sx_runtime[76].call(null, env, match_val), - c = Sx_runtime[88].call(null, aW); + aW = Sx_runtime[77].call(null, env, match_val), + c = Sx_runtime[89].call(null, aW); else var c = and$3; - if(Sx_types[67].call(null, c)){ - var mac = Sx_runtime[76].call(null, env, match_val); + if(Sx_types[71].call(null, c)){ + var mac = Sx_runtime[77].call(null, env, match_val); return make_cek_state(expand_macro(mac, args, env), env, kont); } - if(Sx_types[67].call(null, render_check)) + if(Sx_types[71].call(null, render_check)) var - aX = Sx_runtime[75].call(null, env, match_val), - and$4 = [0, 1 - Sx_types[67].call(null, aX)], + aX = Sx_runtime[76].call(null, env, match_val), + and$4 = [0, 1 - Sx_types[71].call(null, aX)], d = - Sx_types[67].call(null, and$4) + Sx_types[71].call(null, and$4) ? cek_call(render_check, [6, [0, expr, [0, env, 0]]]) : and$4; else var d = render_check; - return Sx_types[67].call(null, d) + return Sx_types[71].call(null, d) ? make_cek_value (cek_call(render_fn, [6, [0, expr, [0, env, 0]]]), env, kont) : step_eval_call(head, args, env, kont); @@ -54202,22 +61222,22 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= gA = [3, cst_name], gB = [3, cst_env]; function kont_extract_provides(kont){ - var a = Sx_runtime[33].call(null, kont); - if(Sx_types[67].call(null, a)) return gv; + var a = Sx_runtime[34].call(null, kont); + if(Sx_types[71].call(null, a)) return gv; var - frame = Sx_runtime[14].call(null, kont), - rest_frames = kont_extract_provides(Sx_runtime[15].call(null, kont)), + frame = Sx_runtime[15].call(null, kont), + rest_frames = kont_extract_provides(Sx_runtime[16].call(null, kont)), b = [0, frame_type(frame), gw], - c = Sx_runtime[1].call(null, cst, b); - if(! Sx_types[67].call(null, c)) return rest_frames; + c = Sx_runtime[2].call(null, cst, b); + if(! Sx_types[71].call(null, c)) return rest_frames; var - d = Sx_runtime[25].call(null, frame, gx), - e = Sx_runtime[25].call(null, frame, gA), + d = Sx_runtime[26].call(null, frame, gx), + e = Sx_runtime[26].call(null, frame, gA), f = [23, [0, cst_provide, - Sx_runtime[25].call(null, frame, gB), + Sx_runtime[26].call(null, frame, gB), e, 0, gz, @@ -54226,7 +61246,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= gy, d, 0]]; - return Sx_runtime[18].call(null, f, rest_frames); + return Sx_runtime[19].call(null, f, rest_frames); } var cst_contains = "contains?", @@ -54236,42 +61256,42 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= gC = [0, [2, 0.], 0], gD = [6, [0, 0, 0]]; function fire_provide_subscribers(name){ - var subs = Sx_runtime[25].call(null, provide_subscribers_ref[1], name); - if(Sx_types[67].call(null, subs)) + var subs = Sx_runtime[26].call(null, provide_subscribers_ref[1], name); + if(Sx_types[71].call(null, subs)) var - b = Sx_runtime[33].call(null, subs), - a = [0, 1 - Sx_types[67].call(null, b)]; + b = Sx_runtime[34].call(null, subs), + a = [0, 1 - Sx_types[71].call(null, b)]; else var a = subs; - if(! Sx_types[67].call(null, a)) return 0; + if(! Sx_types[71].call(null, a)) return 0; var - c = Sx_runtime[1].call(null, cst$0, [0, provide_batch_depth_ref[1], gC]); - if(Sx_types[67].call(null, c)){ - var d = Sx_runtime[5].call(null, subs); + c = Sx_runtime[2].call(null, cst$0, [0, provide_batch_depth_ref[1], gC]); + if(Sx_types[71].call(null, c)){ + var d = Sx_runtime[6].call(null, subs); Stdlib_List[18].call (null, function(sub){ var a = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_contains, [0, provide_batch_queue_ref[1], [0, sub, 0]]), - b = [0, 1 - Sx_types[67].call(null, a)]; - if(Sx_types[67].call(null, b)) + b = [0, 1 - Sx_types[71].call(null, a)]; + if(Sx_types[71].call(null, b)) provide_batch_queue_ref[1] = - Sx_runtime[10].call(null, provide_batch_queue_ref[1], sub); + Sx_runtime[11].call(null, provide_batch_queue_ref[1], sub); return 0; }, d); return 0; } - var e = Sx_runtime[5].call(null, subs); + var e = Sx_runtime[6].call(null, subs); Stdlib_List[18].call(null, function(sub){cek_call(sub, gD); return 0;}, e); return 0; } var gE = [0, [2, 1.], 0]; function batch_begin_b(param){ provide_batch_depth_ref[1] = - Sx_runtime[1].call(null, cst$8, [0, provide_batch_depth_ref[1], gE]); + Sx_runtime[2].call(null, cst$8, [0, provide_batch_depth_ref[1], gE]); return 0; } var @@ -54281,19 +61301,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= gI = [6, [0, 0, 0]]; function batch_end_b(param){ provide_batch_depth_ref[1] = - Sx_runtime[1].call(null, cst$5, [0, provide_batch_depth_ref[1], gF]); + Sx_runtime[2].call(null, cst$5, [0, provide_batch_depth_ref[1], gF]); var - a = Sx_runtime[1].call(null, cst, [0, provide_batch_depth_ref[1], gG]); - if(! Sx_types[67].call(null, a)) return 0; + a = Sx_runtime[2].call(null, cst, [0, provide_batch_depth_ref[1], gG]); + if(! Sx_types[71].call(null, a)) return 0; var queue = provide_batch_queue_ref[1]; provide_batch_queue_ref[1] = gH; - var b = Sx_runtime[5].call(null, queue); + var b = Sx_runtime[6].call(null, queue); Stdlib_List[18].call(null, function(sub){cek_call(sub, gI); return 0;}, b); return 0; } var bind_tracking_ref = [], gJ = [6, 0]; function step_sf_bind(args, env, kont){ - var body = Sx_runtime[14].call(null, args), prev = bind_tracking_ref[1]; + var body = Sx_runtime[15].call(null, args), prev = bind_tracking_ref[1]; bind_tracking_ref[1] = gJ; return make_cek_state (body, env, kont_push(make_bind_frame(body, env, prev), kont)); @@ -54301,83 +61321,83 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var gK = [6, 0]; function step_sf_parameterize(args, env, kont){ var - bindings = Sx_runtime[14].call(null, args), - body = Sx_runtime[15].call(null, args), - or = Sx_runtime[83].call(null, bindings), + bindings = Sx_runtime[15].call(null, args), + body = Sx_runtime[16].call(null, args), + or = Sx_runtime[84].call(null, bindings), or$0 = - Sx_types[67].call(null, or) ? or : Sx_runtime[33].call(null, bindings); - if(Sx_types[67].call(null, or$0)) return step_sf_begin(body, env, kont); + Sx_types[71].call(null, or) ? or : Sx_runtime[34].call(null, bindings); + if(Sx_types[71].call(null, or$0)) return step_sf_begin(body, env, kont); var - first_pair = Sx_runtime[14].call(null, bindings), + first_pair = Sx_runtime[15].call(null, bindings), a = kont_push(make_parameterize_frame(bindings, 0, gK, body, env), kont); - return make_cek_state(Sx_runtime[14].call(null, first_pair), env, a); + return make_cek_state(Sx_runtime[15].call(null, first_pair), env, a); } var gL = [0, [3, cst$14], 0], gM = [2, 0.], gN = [2, 0.]; function syntax_rules_match(pattern, form, literals){ - var and = Sx_runtime[39].call(null, pattern); - if(Sx_types[67].call(null, and)) + var and = Sx_runtime[40].call(null, pattern); + if(Sx_types[71].call(null, and)) var - e = [0, Sx_types[68].call(null, pattern), gL], - a = Sx_runtime[1].call(null, cst, e); + e = [0, Sx_types[72].call(null, pattern), gL], + a = Sx_runtime[2].call(null, cst, e); else var a = and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) return [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; - var and$0 = Sx_runtime[39].call(null, pattern); - if(Sx_types[67].call(null, and$0)) + var and$0 = Sx_runtime[40].call(null, pattern); + if(Sx_types[71].call(null, and$0)) var - f = [0, literals, [0, Sx_types[68].call(null, pattern), 0]], - b = Sx_runtime[1].call(null, cst_contains, f); + f = [0, literals, [0, Sx_types[72].call(null, pattern), 0]], + b = Sx_runtime[2].call(null, cst_contains, f); else var b = and$0; - if(Sx_types[67].call(null, b)){ - var and$1 = Sx_runtime[39].call(null, form); - if(Sx_types[67].call(null, and$1)) + if(Sx_types[71].call(null, b)){ + var and$1 = Sx_runtime[40].call(null, form); + if(Sx_types[71].call(null, and$1)) var - g = [0, Sx_types[68].call(null, form), 0], - h = [0, Sx_types[68].call(null, pattern), g], - c = Sx_runtime[1].call(null, cst, h); + g = [0, Sx_types[72].call(null, form), 0], + h = [0, Sx_types[72].call(null, pattern), g], + c = Sx_runtime[2].call(null, cst, h); else var c = and$1; - return Sx_types[67].call(null, c) + return Sx_types[71].call(null, c) ? [7, Stdlib_Hashtbl[1].call(null, 0, 0)] : 0; } - var i = Sx_runtime[39].call(null, pattern); - if(Sx_types[67].call(null, i)){ + var i = Sx_runtime[40].call(null, pattern); + if(Sx_types[71].call(null, i)){ var d = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - j = Sx_types[68].call(null, pattern); - Sx_runtime[11].call(null, d, j, form); + j = Sx_types[72].call(null, pattern); + Sx_runtime[12].call(null, d, j, form); return d; } var - and$2 = Sx_runtime[37].call(null, pattern), + and$2 = Sx_runtime[38].call(null, pattern), k = - Sx_types[67].call(null, and$2) - ? Sx_runtime[33].call(null, pattern) + Sx_types[71].call(null, and$2) + ? Sx_runtime[34].call(null, pattern) : and$2; - if(Sx_types[67].call(null, k)){ + if(Sx_types[71].call(null, k)){ var - and$3 = Sx_runtime[37].call(null, form), + and$3 = Sx_runtime[38].call(null, form), l = - Sx_types[67].call(null, and$3) - ? Sx_runtime[33].call(null, form) + Sx_types[71].call(null, and$3) + ? Sx_runtime[34].call(null, form) : and$3; - return Sx_types[67].call(null, l) + return Sx_types[71].call(null, l) ? [7, Stdlib_Hashtbl[1].call(null, 0, 0)] : 0; } var - and$4 = Sx_runtime[37].call(null, pattern), + and$4 = Sx_runtime[38].call(null, pattern), m = - Sx_types[67].call(null, and$4) - ? Sx_runtime[37].call(null, form) + Sx_types[71].call(null, and$4) + ? Sx_runtime[38].call(null, form) : and$4; - if(Sx_types[67].call(null, m)) + if(Sx_types[71].call(null, m)) return syntax_rules_match_list(pattern, gN, form, gM, literals); - var n = Sx_runtime[1].call(null, cst, [0, pattern, [0, form, 0]]); - return Sx_types[67].call(null, n) + var n = Sx_runtime[2].call(null, cst, [0, pattern, [0, form, 0]]); + return Sx_types[71].call(null, n) ? [7, Stdlib_Hashtbl[1].call(null, 0, 0)] : 0; } @@ -54396,112 +61416,112 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= gY = [0, [2, 1.], 0]; function syntax_rules_match_list(pattern, pi, form, fi, literals){ var - plen = Sx_runtime[24].call(null, pattern), - flen = Sx_runtime[24].call(null, form), - and = Sx_runtime[1].call(null, cst$2, [0, pi, [0, plen, 0]]), + plen = Sx_runtime[25].call(null, pattern), + flen = Sx_runtime[25].call(null, form), + and = Sx_runtime[2].call(null, cst$2, [0, pi, [0, plen, 0]]), b = - Sx_types[67].call(null, and) - ? Sx_runtime[1].call(null, cst$2, [0, fi, [0, flen, 0]]) + Sx_types[71].call(null, and) + ? Sx_runtime[2].call(null, cst$2, [0, fi, [0, flen, 0]]) : and; - if(Sx_types[67].call(null, b)) + if(Sx_types[71].call(null, b)) return [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; - var c = Sx_runtime[1].call(null, cst$2, [0, pi, [0, plen, 0]]); - if(Sx_types[67].call(null, c)) return 0; + var c = Sx_runtime[2].call(null, cst$2, [0, pi, [0, plen, 0]]); + if(Sx_types[71].call(null, c)) return 0; var - d = [0, Sx_runtime[1].call(null, cst$8, [0, pi, gO]), [0, plen, 0]], - and$0 = Sx_runtime[1].call(null, cst$3, d); - if(Sx_types[67].call(null, and$0)){ + d = [0, Sx_runtime[2].call(null, cst$8, [0, pi, gO]), [0, plen, 0]], + and$0 = Sx_runtime[2].call(null, cst$3, d); + if(Sx_types[71].call(null, and$0)){ var - e = Sx_runtime[1].call(null, cst$8, [0, pi, gP]), - f = Sx_runtime[17].call(null, pattern, e), - and$1 = Sx_runtime[39].call(null, f); - if(Sx_types[67].call(null, and$1)) + e = Sx_runtime[2].call(null, cst$8, [0, pi, gP]), + f = Sx_runtime[18].call(null, pattern, e), + and$1 = Sx_runtime[40].call(null, f); + if(Sx_types[71].call(null, and$1)) var - g = Sx_runtime[1].call(null, cst$8, [0, pi, gR]), - h = Sx_runtime[17].call(null, pattern, g), - i = [0, Sx_types[68].call(null, h), gQ], - a = Sx_runtime[1].call(null, cst, i); + g = Sx_runtime[2].call(null, cst$8, [0, pi, gR]), + h = Sx_runtime[18].call(null, pattern, g), + i = [0, Sx_types[72].call(null, h), gQ], + a = Sx_runtime[2].call(null, cst, i); else var a = and$1; } else var a = and$0; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - sub_pat = Sx_runtime[17].call(null, pattern, pi), - j = [0, plen, [0, Sx_runtime[1].call(null, cst$8, [0, pi, gS]), 0]]; - Sx_runtime[1].call(null, cst$5, j); - Sx_runtime[1].call(null, cst$5, [0, flen, [0, fi, 0]]); + sub_pat = Sx_runtime[18].call(null, pattern, pi), + j = [0, plen, [0, Sx_runtime[2].call(null, cst$8, [0, pi, gS]), 0]]; + Sx_runtime[2].call(null, cst$5, j); + Sx_runtime[2].call(null, cst$5, [0, flen, [0, fi, 0]]); var - k = [0, plen, [0, Sx_runtime[1].call(null, cst$8, [0, pi, gT]), 0]], - l = [0, Sx_runtime[1].call(null, cst$5, k), 0], - m = [0, Sx_runtime[1].call(null, cst$5, [0, flen, [0, fi, 0]]), l], - n_ellipsis = Sx_runtime[1].call(null, cst$5, m), - n = Sx_runtime[1].call(null, cst$3, [0, n_ellipsis, gU]); - if(Sx_types[67].call(null, n)) return 0; + k = [0, plen, [0, Sx_runtime[2].call(null, cst$8, [0, pi, gT]), 0]], + l = [0, Sx_runtime[2].call(null, cst$5, k), 0], + m = [0, Sx_runtime[2].call(null, cst$5, [0, flen, [0, fi, 0]]), l], + n_ellipsis = Sx_runtime[2].call(null, cst$5, m), + n = Sx_runtime[2].call(null, cst$3, [0, n_ellipsis, gU]); + if(Sx_types[71].call(null, n)) return 0; var o = [0, form, [0, fi, - [0, Sx_runtime[1].call(null, cst$8, [0, fi, [0, n_ellipsis, 0]]), 0]]]; - Sx_runtime[1].call(null, cst_slice, o); + [0, Sx_runtime[2].call(null, cst$8, [0, fi, [0, n_ellipsis, 0]]), 0]]]; + Sx_runtime[2].call(null, cst_slice, o); var p = [0, form, [0, fi, - [0, Sx_runtime[1].call(null, cst$8, [0, fi, [0, n_ellipsis, 0]]), 0]]], - q = Sx_runtime[1].call(null, cst_slice, p), - r = Sx_runtime[5].call(null, q), + [0, Sx_runtime[2].call(null, cst$8, [0, fi, [0, n_ellipsis, 0]]), 0]]], + q = Sx_runtime[2].call(null, cst_slice, p), + r = Sx_runtime[6].call(null, q), sub_bindings = [6, Stdlib_List[20].call (null, function(f){return syntax_rules_match(sub_pat, f, literals);}, r)], - s = Sx_runtime[1].call(null, cst_contains, [0, sub_bindings, gV]); - if(Sx_types[67].call(null, s)) return 0; + s = Sx_runtime[2].call(null, cst_contains, [0, sub_bindings, gV]); + if(Sx_types[71].call(null, s)) return 0; var - t = Sx_runtime[1].call(null, cst$8, [0, fi, [0, n_ellipsis, 0]]), + t = Sx_runtime[2].call(null, cst$8, [0, fi, [0, n_ellipsis, 0]]), rest_result = syntax_rules_match_list (pattern, - Sx_runtime[1].call(null, cst$8, [0, pi, gW]), + Sx_runtime[2].call(null, cst$8, [0, pi, gW]), form, t, literals), - u = Sx_runtime[83].call(null, rest_result); - if(Sx_types[67].call(null, u)) return 0; + u = Sx_runtime[84].call(null, rest_result); + if(Sx_types[71].call(null, u)) return 0; var merged = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - v = Sx_runtime[5].call(null, sub_bindings); + v = Sx_runtime[6].call(null, sub_bindings); Stdlib_List[18].call (null, function(b){ var - a = Sx_runtime[1].call(null, cst_keys, [0, b, 0]), - c = Sx_runtime[5].call(null, a); + a = Sx_runtime[2].call(null, cst_keys, [0, b, 0]), + c = Sx_runtime[6].call(null, a); Stdlib_List[18].call (null, function(key){ var - existing = Sx_runtime[56].call(null, merged, key), - a = Sx_runtime[83].call(null, existing); - if(Sx_types[67].call(null, a)){ - var c = [6, [0, Sx_runtime[25].call(null, b, key), 0]]; - Sx_runtime[11].call(null, merged, key, c); + existing = Sx_runtime[57].call(null, merged, key), + a = Sx_runtime[84].call(null, existing); + if(Sx_types[71].call(null, a)){ + var c = [6, [0, Sx_runtime[26].call(null, b, key), 0]]; + Sx_runtime[12].call(null, merged, key, c); } else{ var d = [0, existing, - [0, [6, [0, Sx_runtime[25].call(null, b, key), 0]], 0]], - e = Sx_runtime[1].call(null, cst_append, d); - Sx_runtime[11].call(null, merged, key, e); + [0, [6, [0, Sx_runtime[26].call(null, b, key), 0]], 0]], + e = Sx_runtime[2].call(null, cst_append, d); + Sx_runtime[12].call(null, merged, key, e); } return 0; }, @@ -54510,75 +61530,75 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }, v); var - w = Sx_runtime[1].call(null, cst_keys, [0, rest_result, 0]), - x = Sx_runtime[5].call(null, w); + w = Sx_runtime[2].call(null, cst_keys, [0, rest_result, 0]), + x = Sx_runtime[6].call(null, w); Stdlib_List[18].call (null, function(key){ - var a = Sx_runtime[25].call(null, rest_result, key); - Sx_runtime[11].call(null, merged, key, a); + var a = Sx_runtime[26].call(null, rest_result, key); + Sx_runtime[12].call(null, merged, key, a); return 0; }, x); return merged; } - var y = Sx_runtime[1].call(null, cst$2, [0, fi, [0, flen, 0]]); - if(Sx_types[67].call(null, y)) return 0; + var y = Sx_runtime[2].call(null, cst$2, [0, fi, [0, flen, 0]]); + if(Sx_types[71].call(null, y)) return 0; var - z = Sx_runtime[17].call(null, form, fi), + z = Sx_runtime[18].call(null, form, fi), sub_result = - syntax_rules_match(Sx_runtime[17].call(null, pattern, pi), z, literals), - A = Sx_runtime[83].call(null, sub_result); - if(Sx_types[67].call(null, A)) return 0; + syntax_rules_match(Sx_runtime[18].call(null, pattern, pi), z, literals), + A = Sx_runtime[84].call(null, sub_result); + if(Sx_types[71].call(null, A)) return 0; var - B = Sx_runtime[1].call(null, cst$8, [0, fi, gX]), + B = Sx_runtime[2].call(null, cst$8, [0, fi, gX]), rest_result$0 = syntax_rules_match_list (pattern, - Sx_runtime[1].call(null, cst$8, [0, pi, gY]), + Sx_runtime[2].call(null, cst$8, [0, pi, gY]), form, B, literals), - C = Sx_runtime[83].call(null, rest_result$0); - if(Sx_types[67].call(null, C)) return 0; + C = Sx_runtime[84].call(null, rest_result$0); + if(Sx_types[71].call(null, C)) return 0; var - D = Sx_runtime[1].call(null, cst_keys, [0, sub_result, 0]), - E = Sx_runtime[5].call(null, D); + D = Sx_runtime[2].call(null, cst_keys, [0, sub_result, 0]), + E = Sx_runtime[6].call(null, D); Stdlib_List[18].call (null, function(key){ - var a = Sx_runtime[25].call(null, sub_result, key); - Sx_runtime[11].call(null, rest_result$0, key, a); + var a = Sx_runtime[26].call(null, sub_result, key); + Sx_runtime[12].call(null, rest_result$0, key, a); return 0; }, E); return rest_result$0; } function syntax_rules_find_var(template, bindings){ - var and = Sx_runtime[39].call(null, template); - if(Sx_types[67].call(null, and)){ + var and = Sx_runtime[40].call(null, template); + if(Sx_types[71].call(null, and)){ var - b = [0, bindings, [0, Sx_types[68].call(null, template), 0]], - and$0 = Sx_runtime[1].call(null, cst_has_key, b); - if(Sx_types[67].call(null, and$0)) + b = [0, bindings, [0, Sx_types[72].call(null, template), 0]], + and$0 = Sx_runtime[2].call(null, cst_has_key, b); + if(Sx_types[71].call(null, and$0)) var - c = Sx_types[68].call(null, template), - d = Sx_runtime[25].call(null, bindings, c), - a = Sx_runtime[37].call(null, d); + c = Sx_types[72].call(null, template), + d = Sx_runtime[26].call(null, bindings, c), + a = Sx_runtime[38].call(null, d); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)) return Sx_types[68].call(null, template); - var e = Sx_runtime[37].call(null, template); - if(! Sx_types[67].call(null, e)) return 0; - var f = Sx_runtime[5].call(null, template); + if(Sx_types[71].call(null, a)) return Sx_types[72].call(null, template); + var e = Sx_runtime[38].call(null, template); + if(! Sx_types[71].call(null, e)) return 0; + var f = Sx_runtime[6].call(null, template); return Stdlib_List[26].call (null, function(found, t){ - var a = Sx_runtime[83].call(null, found); - return Sx_types[67].call(null, a) + var a = Sx_runtime[84].call(null, found); + return Sx_types[71].call(null, a) ? syntax_rules_find_var(t, bindings) : found; }, @@ -54587,55 +61607,55 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var gZ = [6, 0], g0 = [6, 0]; function syntax_rules_find_all_vars(template, bindings){ - var and = Sx_runtime[39].call(null, template); - if(Sx_types[67].call(null, and)){ + var and = Sx_runtime[40].call(null, template); + if(Sx_types[71].call(null, and)){ var - b = [0, bindings, [0, Sx_types[68].call(null, template), 0]], - and$0 = Sx_runtime[1].call(null, cst_has_key, b); - if(Sx_types[67].call(null, and$0)) + b = [0, bindings, [0, Sx_types[72].call(null, template), 0]], + and$0 = Sx_runtime[2].call(null, cst_has_key, b); + if(Sx_types[71].call(null, and$0)) var - c = Sx_types[68].call(null, template), - d = Sx_runtime[25].call(null, bindings, c), - a = Sx_runtime[37].call(null, d); + c = Sx_types[72].call(null, template), + d = Sx_runtime[26].call(null, bindings, c), + a = Sx_runtime[38].call(null, d); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)) - return [6, [0, Sx_types[68].call(null, template), 0]]; - var e = Sx_runtime[37].call(null, template); - if(! Sx_types[67].call(null, e)) return g0; - var f = Sx_runtime[5].call(null, template); + if(Sx_types[71].call(null, a)) + return [6, [0, Sx_types[72].call(null, template), 0]]; + var e = Sx_runtime[38].call(null, template); + if(! Sx_types[71].call(null, e)) return g0; + var f = Sx_runtime[6].call(null, template); return Stdlib_List[26].call (null, function(acc, t){ var a = [0, acc, [0, syntax_rules_find_all_vars(t, bindings), 0]]; - return Sx_runtime[1].call(null, cst_append, a); + return Sx_runtime[2].call(null, cst_append, a); }, gZ, f); } var g1 = [2, 0.]; function syntax_rules_instantiate(template, bindings){ - var and = Sx_runtime[39].call(null, template); - if(Sx_types[67].call(null, and)) + var and = Sx_runtime[40].call(null, template); + if(Sx_types[71].call(null, and)) var - b = [0, bindings, [0, Sx_types[68].call(null, template), 0]], - a = Sx_runtime[1].call(null, cst_has_key, b); + b = [0, bindings, [0, Sx_types[72].call(null, template), 0]], + a = Sx_runtime[2].call(null, cst_has_key, b); else var a = and; - if(Sx_types[67].call(null, a)){ - var c = Sx_types[68].call(null, template); - return Sx_runtime[25].call(null, bindings, c); + if(Sx_types[71].call(null, a)){ + var c = Sx_types[72].call(null, template); + return Sx_runtime[26].call(null, bindings, c); } var - d = Sx_runtime[37].call(null, template), - e = [0, 1 - Sx_types[67].call(null, d)]; - if(Sx_types[67].call(null, e)) return template; - var f = Sx_runtime[33].call(null, template); - return Sx_types[67].call(null, f) + d = Sx_runtime[38].call(null, template), + e = [0, 1 - Sx_types[71].call(null, d)]; + if(Sx_types[71].call(null, e)) return template; + var f = Sx_runtime[34].call(null, template); + return Sx_types[71].call(null, f) ? template : syntax_rules_instantiate_list(template, g1, bindings); } @@ -54652,51 +61672,51 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var i = i$1; for(;;){ var - a = [0, i, [0, Sx_runtime[24].call(null, template), 0]], - b = Sx_runtime[1].call(null, cst$2, a); - if(Sx_types[67].call(null, b)) return g2; + a = [0, i, [0, Sx_runtime[25].call(null, template), 0]], + b = Sx_runtime[2].call(null, cst$2, a); + if(Sx_types[71].call(null, b)) return g2; var - elem = Sx_runtime[17].call(null, template, i), - c = [0, Sx_runtime[24].call(null, template), 0], - d = [0, Sx_runtime[1].call(null, cst$8, [0, i, g3]), c], - and = Sx_runtime[1].call(null, cst$3, d); - if(Sx_types[67].call(null, and)){ + elem = Sx_runtime[18].call(null, template, i), + c = [0, Sx_runtime[25].call(null, template), 0], + d = [0, Sx_runtime[2].call(null, cst$8, [0, i, g3]), c], + and = Sx_runtime[2].call(null, cst$3, d); + if(Sx_types[71].call(null, and)){ var - e = Sx_runtime[1].call(null, cst$8, [0, i, g4]), - f = Sx_runtime[17].call(null, template, e), - and$0 = Sx_runtime[39].call(null, f); - if(Sx_types[67].call(null, and$0)) + e = Sx_runtime[2].call(null, cst$8, [0, i, g4]), + f = Sx_runtime[18].call(null, template, e), + and$0 = Sx_runtime[40].call(null, f); + if(Sx_types[71].call(null, and$0)) var - g = Sx_runtime[1].call(null, cst$8, [0, i, g6]), - h = Sx_runtime[17].call(null, template, g), - j = [0, Sx_types[68].call(null, h), g5], - has_ellipsis = Sx_runtime[1].call(null, cst, j); + g = Sx_runtime[2].call(null, cst$8, [0, i, g6]), + h = Sx_runtime[18].call(null, template, g), + j = [0, Sx_types[72].call(null, h), g5], + has_ellipsis = Sx_runtime[2].call(null, cst, j); else var has_ellipsis = and$0; } else var has_ellipsis = and; - if(! Sx_types[67].call(null, has_ellipsis)){ + if(! Sx_types[71].call(null, has_ellipsis)){ var p = syntax_rules_instantiate_list - (template, Sx_runtime[1].call(null, cst$8, [0, i, g9]), bindings), + (template, Sx_runtime[2].call(null, cst$8, [0, i, g9]), bindings), q = syntax_rules_instantiate(elem, bindings); - return Sx_runtime[18].call(null, q, p); + return Sx_runtime[19].call(null, q, p); } var all_vars = syntax_rules_find_all_vars(elem, bindings), - k = Sx_runtime[33].call(null, all_vars); - if(! Sx_types[67].call(null, k)) break; - var i$0 = Sx_runtime[1].call(null, cst$8, [0, i, g7]); + k = Sx_runtime[34].call(null, all_vars); + if(! Sx_types[71].call(null, k)) break; + var i$0 = Sx_runtime[2].call(null, cst$8, [0, i, g7]); i = i$0; } var - l = Sx_runtime[14].call(null, all_vars), - m = Sx_runtime[25].call(null, bindings, l), - count = Sx_runtime[24].call(null, m), - n = Sx_runtime[1].call(null, cst_range, [0, count, 0]), - o = Sx_runtime[5].call(null, n), + l = Sx_runtime[15].call(null, all_vars), + m = Sx_runtime[26].call(null, bindings, l), + count = Sx_runtime[25].call(null, m), + n = Sx_runtime[2].call(null, cst_range, [0, count, 0]), + o = Sx_runtime[6].call(null, n), expanded = [6, Stdlib_List[20].call @@ -54704,24 +61724,24 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(idx){ var b = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - a = Sx_runtime[1].call(null, cst_keys, [0, bindings, 0]), - c = Sx_runtime[5].call(null, a); + a = Sx_runtime[2].call(null, cst_keys, [0, bindings, 0]), + c = Sx_runtime[6].call(null, a); Stdlib_List[18].call (null, function(key){ - var a = Sx_runtime[25].call(null, bindings, key); - Sx_runtime[11].call(null, b, key, a); + var a = Sx_runtime[26].call(null, bindings, key); + Sx_runtime[12].call(null, b, key, a); return 0; }, c); - var d = Sx_runtime[5].call(null, all_vars); + var d = Sx_runtime[6].call(null, all_vars); Stdlib_List[18].call (null, function(var_name){ var - a = Sx_runtime[25].call(null, bindings, var_name), - c = Sx_runtime[17].call(null, a, idx); - Sx_runtime[11].call(null, b, var_name, c); + a = Sx_runtime[26].call(null, bindings, var_name), + c = Sx_runtime[18].call(null, a, idx); + Sx_runtime[12].call(null, b, var_name, c); return 0; }, d); @@ -54730,39 +61750,39 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= o)], rest_result = syntax_rules_instantiate_list - (template, Sx_runtime[1].call(null, cst$8, [0, i, g8]), bindings); - return Sx_runtime[1].call + (template, Sx_runtime[2].call(null, cst$8, [0, i, g8]), bindings); + return Sx_runtime[2].call (null, cst_append, [0, expanded, [0, rest_result, 0]]); } var g_ = [3, cst$14]; function syntax_rules_expand(literals, rules, form){ var - a = Sx_types[55].call(null, g_), - full_form = Sx_runtime[18].call(null, a, form); + a = Sx_types[59].call(null, g_), + full_form = Sx_runtime[19].call(null, a, form); return syntax_rules_try_rules(literals, rules, full_form); } var g$ = [3, "syntax-rules: no pattern matched for "], ha = [2, 1.]; function syntax_rules_try_rules(literals, rules$1, full_form){ var rules = rules$1; for(;;){ - var a = Sx_runtime[33].call(null, rules); - if(Sx_types[67].call(null, a)){ + var a = Sx_runtime[34].call(null, rules); + if(Sx_types[71].call(null, a)){ var - b = [0, g$, [0, Sx_runtime[68].call(null, full_form), 0]], - c = [3, Sx_runtime[4].call(null, b)], - d = Sx_runtime[2].call(null, c); + b = [0, g$, [0, Sx_runtime[69].call(null, full_form), 0]], + c = [3, Sx_runtime[5].call(null, b)], + d = Sx_runtime[3].call(null, c); throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); } var - rule = Sx_runtime[14].call(null, rules), - pattern = Sx_runtime[14].call(null, rule), - template = Sx_runtime[17].call(null, rule, ha), + rule = Sx_runtime[15].call(null, rules), + pattern = Sx_runtime[15].call(null, rule), + template = Sx_runtime[18].call(null, rule, ha), bindings = syntax_rules_match(pattern, full_form, literals), - e = Sx_runtime[83].call(null, bindings), - f = [0, 1 - Sx_types[67].call(null, e)]; - if(Sx_types[67].call(null, f)) + e = Sx_runtime[84].call(null, bindings), + f = [0, 1 - Sx_types[71].call(null, e)]; + if(Sx_types[71].call(null, f)) return syntax_rules_instantiate(template, bindings); - var rules$0 = Sx_runtime[15].call(null, rules); + var rules$0 = Sx_runtime[16].call(null, rules); rules = rules$0; } } @@ -54775,32 +61795,32 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= hg = [6, 0], hh = [6, 0]; function sf_syntax_rules(args, env){ - var a = Sx_runtime[14].call(null, args), b = Sx_runtime[37].call(null, a); - if(Sx_types[67].call(null, b)) + var a = Sx_runtime[15].call(null, args), b = Sx_runtime[38].call(null, a); + if(Sx_types[71].call(null, b)) var - c = Sx_runtime[14].call(null, args), - d = Sx_runtime[5].call(null, c), + c = Sx_runtime[15].call(null, args), + d = Sx_runtime[6].call(null, c), literals = [6, Stdlib_List[20].call (null, function(s){ - var a = Sx_runtime[39].call(null, s); - return Sx_types[67].call(null, a) - ? Sx_types[68].call(null, s) - : [3, Sx_runtime[4].call(null, [0, s, 0])]; + var a = Sx_runtime[40].call(null, s); + return Sx_types[71].call(null, a) + ? Sx_types[72].call(null, s) + : [3, Sx_runtime[5].call(null, [0, s, 0])]; }, d)]; else var literals = hh; var - rules = Sx_runtime[15].call(null, args), - closure = Sx_runtime[80].call(null, env), - e = Sx_runtime[3].call(null, hb); - Sx_runtime[77].call(null, closure, e, literals); - var f = Sx_runtime[3].call(null, hc); - Sx_runtime[77].call(null, closure, f, rules); - return Sx_types[53].call(null, hg, hf, he, closure, hd); + rules = Sx_runtime[16].call(null, args), + closure = Sx_runtime[81].call(null, env), + e = Sx_runtime[4].call(null, hb); + Sx_runtime[78].call(null, closure, e, literals); + var f = Sx_runtime[4].call(null, hc); + Sx_runtime[78].call(null, closure, f, rules); + return Sx_types[57].call(null, hg, hf, he, closure, hd); } var hi = [6, 0], @@ -54810,59 +61830,59 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= hm = [0, [3, cst_begin], 0]; function step_sf_define_library(args, env, kont){ var - lib_spec = Sx_runtime[14].call(null, args), - decls = Sx_runtime[15].call(null, args), - lib_env = Sx_runtime[80].call(null, env), - a = Sx_runtime[5].call(null, decls), + lib_spec = Sx_runtime[15].call(null, args), + decls = Sx_runtime[16].call(null, args), + lib_env = Sx_runtime[81].call(null, env), + a = Sx_runtime[6].call(null, decls), exports = [0, hi], body_forms = [0, hj]; Stdlib_List[18].call (null, function(decl){ - var and = Sx_runtime[37].call(null, decl); - if(Sx_types[67].call(null, and)){ + var and = Sx_runtime[38].call(null, decl); + if(Sx_types[71].call(null, and)){ var - b = Sx_runtime[33].call(null, decl), - and$0 = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and$0)) + b = Sx_runtime[34].call(null, decl), + and$0 = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and$0)) var - c = Sx_runtime[14].call(null, decl), - a = Sx_runtime[39].call(null, c); + c = Sx_runtime[15].call(null, decl), + a = Sx_runtime[40].call(null, c); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - d = Sx_runtime[14].call(null, decl), - kind = Sx_types[68].call(null, d), - e = Sx_runtime[1].call(null, cst, [0, kind, hk]); - if(Sx_types[67].call(null, e)){ + d = Sx_runtime[15].call(null, decl), + kind = Sx_types[72].call(null, d), + e = Sx_runtime[2].call(null, cst, [0, kind, hk]); + if(Sx_types[71].call(null, e)){ var - f = Sx_runtime[15].call(null, decl), - g = Sx_runtime[5].call(null, f), + f = Sx_runtime[16].call(null, decl), + g = Sx_runtime[6].call(null, f), h = [0, [6, Stdlib_List[20].call (null, function(s){ - var a = Sx_runtime[39].call(null, s); - return Sx_types[67].call(null, a) - ? Sx_types[68].call(null, s) - : [3, Sx_runtime[4].call(null, [0, s, 0])]; + var a = Sx_runtime[40].call(null, s); + return Sx_types[71].call(null, a) + ? Sx_types[72].call(null, s) + : [3, Sx_runtime[5].call(null, [0, s, 0])]; }, g)], 0]; - exports[1] = Sx_runtime[1].call(null, cst_append, [0, exports[1], h]); + exports[1] = Sx_runtime[2].call(null, cst_append, [0, exports[1], h]); } else{ - var i = Sx_runtime[1].call(null, cst, [0, kind, hl]); - if(Sx_types[67].call(null, i)){ + var i = Sx_runtime[2].call(null, cst, [0, kind, hl]); + if(Sx_types[71].call(null, i)){ var - j = Sx_runtime[15].call(null, decl), - k = Sx_runtime[5].call(null, j); + j = Sx_runtime[16].call(null, decl), + k = Sx_runtime[6].call(null, j); Stdlib_List[18].call (null, function(import_set){ @@ -54872,11 +61892,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= k); } else{ - var l = Sx_runtime[1].call(null, cst, [0, kind, hm]); - if(Sx_types[67].call(null, l)){ - var m = [0, Sx_runtime[15].call(null, decl), 0]; + var l = Sx_runtime[2].call(null, cst, [0, kind, hm]); + if(Sx_types[71].call(null, l)){ + var m = [0, Sx_runtime[16].call(null, decl), 0]; body_forms[1] = - Sx_runtime[1].call(null, cst_append, [0, body_forms[1], m]); + Sx_runtime[2].call(null, cst_append, [0, body_forms[1], m]); } } } @@ -54884,19 +61904,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; }, a); - var b = Sx_runtime[5].call(null, body_forms[1]); + var b = Sx_runtime[6].call(null, body_forms[1]); Stdlib_List[18].call (null, function(form){eval_expr(form, lib_env); return 0;}, b); var export_dict = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - c = Sx_runtime[5].call(null, exports[1]); + c = Sx_runtime[6].call(null, exports[1]); Stdlib_List[18].call (null, function(name){ - var a = Sx_runtime[75].call(null, lib_env, name); - if(Sx_types[67].call(null, a)){ - var b = Sx_runtime[76].call(null, lib_env, name); - Sx_runtime[11].call(null, export_dict, name, b); + var a = Sx_runtime[76].call(null, lib_env, name); + if(Sx_types[71].call(null, a)){ + var b = Sx_runtime[77].call(null, lib_env, name); + Sx_runtime[12].call(null, export_dict, name, b); } return 0; }, @@ -54918,104 +61938,104 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ht = [0, [3, cst_prefix], 0], hu = [0, [3, cst_rename], 0]; function bind_import_set(import_set, env){ - var and = Sx_runtime[37].call(null, import_set); - if(Sx_types[67].call(null, and)){ + var and = Sx_runtime[38].call(null, import_set); + if(Sx_types[71].call(null, and)){ var - b = Sx_runtime[33].call(null, import_set), - and$0 = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and$0)) + b = Sx_runtime[34].call(null, import_set), + and$0 = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and$0)) var - c = Sx_runtime[14].call(null, import_set), - a = Sx_runtime[39].call(null, c); + c = Sx_runtime[15].call(null, import_set), + a = Sx_runtime[40].call(null, c); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) var - d = Sx_runtime[14].call(null, import_set), - head = Sx_types[68].call(null, d); + d = Sx_runtime[15].call(null, import_set), + head = Sx_types[72].call(null, d); else var head = 0; - var or = Sx_runtime[1].call(null, cst, [0, head, hn]); - if(Sx_types[67].call(null, or)) + var or = Sx_runtime[2].call(null, cst, [0, head, hn]); + if(Sx_types[71].call(null, or)) var or$0 = or; else{ - var or$1 = Sx_runtime[1].call(null, cst, [0, head, hs]); - if(Sx_types[67].call(null, or$1)) + var or$1 = Sx_runtime[2].call(null, cst, [0, head, hs]); + if(Sx_types[71].call(null, or$1)) var or$0 = or$1; else var - or$2 = Sx_runtime[1].call(null, cst, [0, head, ht]), + or$2 = Sx_runtime[2].call(null, cst, [0, head, ht]), or$0 = - Sx_types[67].call(null, or$2) + Sx_types[71].call(null, or$2) ? or$2 - : Sx_runtime[1].call(null, cst, [0, head, hu]); + : Sx_runtime[2].call(null, cst, [0, head, hu]); } var lib_spec = - Sx_types[67].call(null, or$0) - ? Sx_runtime[17].call(null, import_set, ho) + Sx_types[71].call(null, or$0) + ? Sx_runtime[18].call(null, import_set, ho) : import_set, exports = library_exports(lib_spec), - e = Sx_runtime[1].call(null, cst, [0, head, hp]); - if(Sx_types[67].call(null, e)){ + e = Sx_runtime[2].call(null, cst, [0, head, hp]); + if(Sx_types[71].call(null, e)){ var - f = Sx_runtime[15].call(null, import_set), - g = Sx_runtime[15].call(null, f), - h = Sx_runtime[5].call(null, g); + f = Sx_runtime[16].call(null, import_set), + g = Sx_runtime[16].call(null, f), + h = Sx_runtime[6].call(null, g); Stdlib_List[18].call (null, function(s){ var - a = Sx_runtime[39].call(null, s), + a = Sx_runtime[40].call(null, s), id = - Sx_types[67].call(null, a) - ? Sx_types[68].call(null, s) - : [3, Sx_runtime[4].call(null, [0, s, 0])], - b = Sx_runtime[1].call(null, cst_has_key, [0, exports, [0, id, 0]]); - if(Sx_types[67].call(null, b)){ + Sx_types[71].call(null, a) + ? Sx_types[72].call(null, s) + : [3, Sx_runtime[5].call(null, [0, s, 0])], + b = Sx_runtime[2].call(null, cst_has_key, [0, exports, [0, id, 0]]); + if(Sx_types[71].call(null, b)){ var - c = Sx_runtime[25].call(null, exports, id), - d = Sx_runtime[3].call(null, id); - Sx_runtime[77].call(null, env, d, c); + c = Sx_runtime[26].call(null, exports, id), + d = Sx_runtime[4].call(null, id); + Sx_runtime[78].call(null, env, d, c); } return 0; }, h); return 0; } - var i = Sx_runtime[1].call(null, cst, [0, head, hq]); - if(Sx_types[67].call(null, i)){ + var i = Sx_runtime[2].call(null, cst, [0, head, hq]); + if(Sx_types[71].call(null, i)){ var - j = [0, Sx_runtime[17].call(null, import_set, hr), 0], - pfx = [3, Sx_runtime[4].call(null, j)], - k = Sx_runtime[1].call(null, cst_keys, [0, exports, 0]), - l = Sx_runtime[5].call(null, k); + j = [0, Sx_runtime[18].call(null, import_set, hr), 0], + pfx = [3, Sx_runtime[5].call(null, j)], + k = Sx_runtime[2].call(null, cst_keys, [0, exports, 0]), + l = Sx_runtime[6].call(null, k); Stdlib_List[18].call (null, function(key){ var - a = Sx_runtime[25].call(null, exports, key), - b = [3, Sx_runtime[4].call(null, [0, pfx, [0, key, 0]])], - c = Sx_runtime[3].call(null, b); - Sx_runtime[77].call(null, env, c, a); + a = Sx_runtime[26].call(null, exports, key), + b = [3, Sx_runtime[5].call(null, [0, pfx, [0, key, 0]])], + c = Sx_runtime[4].call(null, b); + Sx_runtime[78].call(null, env, c, a); return 0; }, l); return 0; } var - m = Sx_runtime[1].call(null, cst_keys, [0, exports, 0]), - n = Sx_runtime[5].call(null, m); + m = Sx_runtime[2].call(null, cst_keys, [0, exports, 0]), + n = Sx_runtime[6].call(null, m); Stdlib_List[18].call (null, function(key){ var - a = Sx_runtime[25].call(null, exports, key), - b = Sx_runtime[3].call(null, key); - Sx_runtime[77].call(null, env, b, a); + a = Sx_runtime[26].call(null, exports, key), + b = Sx_runtime[4].call(null, key); + Sx_runtime[78].call(null, env, b, a); return 0; }, n); @@ -55031,53 +62051,53 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function step_sf_import(args$0, env, kont){ var args = args$0; for(;;){ - var b = Sx_runtime[33].call(null, args); - if(Sx_types[67].call(null, b)) return make_cek_value(0, env, kont); + var b = Sx_runtime[34].call(null, args); + if(Sx_types[71].call(null, b)) return make_cek_value(0, env, kont); var - import_set = Sx_runtime[14].call(null, args), - rest_sets = Sx_runtime[15].call(null, args), - and = Sx_runtime[37].call(null, import_set); - if(Sx_types[67].call(null, and)){ + import_set = Sx_runtime[15].call(null, args), + rest_sets = Sx_runtime[16].call(null, args), + and = Sx_runtime[38].call(null, import_set); + if(Sx_types[71].call(null, and)){ var - c = Sx_runtime[33].call(null, import_set), - and$0 = [0, 1 - Sx_types[67].call(null, c)]; - if(Sx_types[67].call(null, and$0)) + c = Sx_runtime[34].call(null, import_set), + and$0 = [0, 1 - Sx_types[71].call(null, c)]; + if(Sx_types[71].call(null, and$0)) var - e = Sx_runtime[14].call(null, import_set), - a = Sx_runtime[39].call(null, e); + e = Sx_runtime[15].call(null, import_set), + a = Sx_runtime[40].call(null, e); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) var - f = Sx_runtime[14].call(null, import_set), - head = Sx_types[68].call(null, f); + f = Sx_runtime[15].call(null, import_set), + head = Sx_types[72].call(null, f); else var head = 0; - var or = Sx_runtime[1].call(null, cst, [0, head, hv]); - if(Sx_types[67].call(null, or)) + var or = Sx_runtime[2].call(null, cst, [0, head, hv]); + if(Sx_types[71].call(null, or)) var or$0 = or; else{ - var or$1 = Sx_runtime[1].call(null, cst, [0, head, hy]); - if(Sx_types[67].call(null, or$1)) + var or$1 = Sx_runtime[2].call(null, cst, [0, head, hy]); + if(Sx_types[71].call(null, or$1)) var or$0 = or$1; else var - or$2 = Sx_runtime[1].call(null, cst, [0, head, hz]), + or$2 = Sx_runtime[2].call(null, cst, [0, head, hz]), or$0 = - Sx_types[67].call(null, or$2) + Sx_types[71].call(null, or$2) ? or$2 - : Sx_runtime[1].call(null, cst, [0, head, hA]); + : Sx_runtime[2].call(null, cst, [0, head, hA]); } var lib_spec = - Sx_types[67].call(null, or$0) - ? Sx_runtime[17].call(null, import_set, hw) + Sx_types[71].call(null, or$0) + ? Sx_runtime[18].call(null, import_set, hw) : import_set, g = library_loaded_p(lib_spec); - if(! Sx_types[67].call(null, g)){ + if(! Sx_types[71].call(null, g)){ var i = kont_push(make_import_frame(import_set, rest_sets, env), kont), d = Stdlib_Hashtbl[1].call(null, 0, 2); @@ -55086,20 +62106,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return make_cek_suspended([7, d], env, i); } bind_import_set(import_set, env); - var h = Sx_runtime[33].call(null, rest_sets); - if(Sx_types[67].call(null, h)) return make_cek_value(0, env, kont); + var h = Sx_runtime[34].call(null, rest_sets); + if(Sx_types[71].call(null, h)) return make_cek_value(0, env, kont); args = rest_sets; } } var hB = [3, "perform requires an IO request argument"]; function step_sf_perform(args, env, kont){ - var a = Sx_runtime[33].call(null, args); - if(Sx_types[67].call(null, a)){ - var b = Sx_runtime[2].call(null, hB); + var a = Sx_runtime[34].call(null, args); + if(Sx_types[71].call(null, a)){ + var b = Sx_runtime[3].call(null, hB); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } var c = kont_push(make_perform_frame(env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, c); + return make_cek_state(Sx_runtime[15].call(null, args), env, c); } var hC = [2, 1.], @@ -55114,52 +62134,52 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= hL = [2, 2.]; function sf_define_record_type(args, env){ var - type_sym = Sx_runtime[14].call(null, args), - ctor_spec = Sx_runtime[17].call(null, args, hC), - pred_sym = Sx_runtime[17].call(null, args, hD), - field_specs = Sx_runtime[1].call(null, cst_slice, [0, args, hE]), - raw_name = Sx_types[68].call(null, type_sym), - and = Sx_runtime[1].call(null, cst_starts_with, [0, raw_name, hF]), + type_sym = Sx_runtime[15].call(null, args), + ctor_spec = Sx_runtime[18].call(null, args, hC), + pred_sym = Sx_runtime[18].call(null, args, hD), + field_specs = Sx_runtime[2].call(null, cst_slice, [0, args, hE]), + raw_name = Sx_types[72].call(null, type_sym), + and = Sx_runtime[2].call(null, cst_starts_with, [0, raw_name, hF]), a = - Sx_types[67].call(null, and) - ? Sx_runtime[1].call(null, cst_ends_with, [0, raw_name, hG]) + Sx_types[71].call(null, and) + ? Sx_runtime[2].call(null, cst_ends_with, [0, raw_name, hG]) : and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) var - b = [0, Sx_runtime[24].call(null, raw_name), hH], - c = [0, raw_name, [0, hI, [0, Sx_runtime[1].call(null, cst$5, b), 0]]], - type_name = Sx_runtime[1].call(null, cst_slice, c); + b = [0, Sx_runtime[25].call(null, raw_name), hH], + c = [0, raw_name, [0, hI, [0, Sx_runtime[2].call(null, cst$5, b), 0]]], + type_name = Sx_runtime[2].call(null, cst_slice, c); else var type_name = raw_name; var - d = Sx_runtime[14].call(null, ctor_spec), - ctor_name = Sx_types[68].call(null, d), - e = Sx_runtime[15].call(null, ctor_spec), - f = Sx_runtime[5].call(null, e), + d = Sx_runtime[15].call(null, ctor_spec), + ctor_name = Sx_types[72].call(null, d), + e = Sx_runtime[16].call(null, ctor_spec), + f = Sx_runtime[6].call(null, e), ctor_params = [6, Stdlib_List[20].call - (null, function(s){return Sx_types[68].call(null, s);}, f)], - pred_name = Sx_types[68].call(null, pred_sym), - g = Sx_runtime[5].call(null, field_specs), + (null, function(s){return Sx_types[72].call(null, s);}, f)], + pred_name = Sx_types[72].call(null, pred_sym), + g = Sx_runtime[6].call(null, field_specs), field_names = [6, Stdlib_List[20].call (null, function(fs){ - var a = Sx_runtime[14].call(null, fs); - return Sx_types[68].call(null, a); + var a = Sx_runtime[15].call(null, fs); + return Sx_types[72].call(null, a); }, g)], - rtd_uid = Sx_types[91].call(null, type_name, field_names, ctor_params), - h = Sx_types[97].call(null, rtd_uid), - i = Sx_runtime[3].call(null, ctor_name); - Sx_runtime[77].call(null, env, i, h); + rtd_uid = Sx_types[95].call(null, type_name, field_names, ctor_params), + h = Sx_types[101].call(null, rtd_uid), + i = Sx_runtime[4].call(null, ctor_name); + Sx_runtime[78].call(null, env, i, h); var - j = Sx_types[98].call(null, rtd_uid), - k = Sx_runtime[3].call(null, pred_name); - Sx_runtime[77].call(null, env, k, j); - Sx_runtime[93].call + j = Sx_types[102].call(null, rtd_uid), + k = Sx_runtime[4].call(null, pred_name); + Sx_runtime[78].call(null, env, k, j); + Sx_runtime[94].call (null, [15, cst$9, @@ -55170,21 +62190,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var fs = a[1], idx = args[1], - b = Sx_runtime[17].call(null, fs, hJ), - accessor_name = Sx_types[68].call(null, b), - c = Sx_types[99].call(null, idx), - d = Sx_runtime[3].call(null, accessor_name); - Sx_runtime[77].call(null, env, d, c); + b = Sx_runtime[18].call(null, fs, hJ), + accessor_name = Sx_types[72].call(null, b), + c = Sx_types[103].call(null, idx), + d = Sx_runtime[4].call(null, accessor_name); + Sx_runtime[78].call(null, env, d, c); var - e = [0, Sx_runtime[24].call(null, fs), hK], - f = Sx_runtime[1].call(null, cst$2, e); - if(! Sx_types[67].call(null, f)) return 0; + e = [0, Sx_runtime[25].call(null, fs), hK], + f = Sx_runtime[2].call(null, cst$2, e); + if(! Sx_types[71].call(null, f)) return 0; var - g = Sx_runtime[17].call(null, fs, hL), - mutator_name = Sx_types[68].call(null, g), - h = Sx_types[100].call(null, idx), - i = Sx_runtime[3].call(null, mutator_name); - return Sx_runtime[77].call(null, env, i, h); + g = Sx_runtime[18].call(null, fs, hL), + mutator_name = Sx_types[72].call(null, g), + h = Sx_types[104].call(null, idx), + i = Sx_runtime[4].call(null, mutator_name); + return Sx_runtime[78].call(null, env, i, h); } } return 0; @@ -55219,13 +62239,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= h3 = [4, cst_fn]; function sf_define_protocol(args, env){ var - a = Sx_runtime[14].call(null, args), - proto_name = Sx_types[68].call(null, a), - method_specs = Sx_runtime[15].call(null, args), - b = Sx_runtime[3].call(null, hM); - Sx_runtime[77].call(null, env, b, protocol_registry); - var c = Sx_runtime[3].call(null, hN); - Sx_runtime[77].call + a = Sx_runtime[15].call(null, args), + proto_name = Sx_types[72].call(null, a), + method_specs = Sx_runtime[16].call(null, args), + b = Sx_runtime[4].call(null, hM); + Sx_runtime[78].call(null, env, b, protocol_registry); + var c = Sx_runtime[4].call(null, hN); + Sx_runtime[78].call (null, env, c, @@ -55246,7 +62266,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= e = [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; Stdlib_Hashtbl[11].call(null, d, cst_impls, e); var - f = Sx_runtime[5].call(null, method_specs), + f = Sx_runtime[6].call(null, method_specs), g = [6, Stdlib_List[20].call @@ -55254,28 +62274,28 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(spec){ var d = Stdlib_Hashtbl[1].call(null, 0, 2), - a = Sx_runtime[24].call(null, spec); + a = Sx_runtime[25].call(null, spec); Stdlib_Hashtbl[11].call(null, d, cst_arity, a); var - b = Sx_runtime[14].call(null, spec), - c = Sx_types[68].call(null, b); + b = Sx_runtime[15].call(null, spec), + c = Sx_types[72].call(null, b); Stdlib_Hashtbl[11].call(null, d, cst_name, c); return [7, d]; }, f)]; Stdlib_Hashtbl[11].call(null, d, cst_methods, g); Stdlib_Hashtbl[11].call(null, d, cst_name, proto_name); - Sx_runtime[11].call(null, protocol_registry, proto_name, [7, d]); - var h = Sx_runtime[5].call(null, method_specs); + Sx_runtime[12].call(null, protocol_registry, proto_name, [7, d]); + var h = Sx_runtime[6].call(null, method_specs); Stdlib_List[18].call (null, function(spec){ var - a = Sx_runtime[14].call(null, spec), - method_name = Sx_types[68].call(null, a), - params = Sx_runtime[15].call(null, spec), - self_sym = Sx_runtime[14].call(null, params), - b = [0, Sx_runtime[18].call(null, hV, params), 0], + a = Sx_runtime[15].call(null, spec), + method_name = Sx_types[72].call(null, a), + params = Sx_runtime[16].call(null, spec), + self_sym = Sx_runtime[15].call(null, params), + b = [0, Sx_runtime[19].call(null, hV, params), 0], c = eval_expr ([6, @@ -55320,15 +62340,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= hY, [0, [3, - Sx_runtime[4].call + Sx_runtime[5].call (null, [0, proto_name, [0, hX, [0, method_name, hW]]])], 0]]], b]]]], 0]]]], 0]]]], env), - d = Sx_runtime[3].call(null, method_name); - Sx_runtime[77].call(null, env, d, c); + d = Sx_runtime[4].call(null, method_name); + Sx_runtime[78].call(null, env, d, c); return 0; }, h); @@ -55351,106 +62371,106 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ig = [4, cst_begin]; function sf_implement(args, env){ var - a = Sx_runtime[14].call(null, args), - proto_name = Sx_types[68].call(null, a), - b = Sx_runtime[17].call(null, args, h4), - raw_type_name = Sx_types[68].call(null, b), - c = [0, Sx_runtime[24].call(null, raw_type_name), h5], + a = Sx_runtime[15].call(null, args), + proto_name = Sx_types[72].call(null, a), + b = Sx_runtime[18].call(null, args, h4), + raw_type_name = Sx_types[72].call(null, b), + c = [0, Sx_runtime[25].call(null, raw_type_name), h5], d = - [0, raw_type_name, [0, h6, [0, Sx_runtime[1].call(null, cst$5, c), 0]]], - type_name = Sx_runtime[1].call(null, cst_slice, d), - e = Sx_runtime[15].call(null, args), - method_defs = Sx_runtime[15].call(null, e), - proto = Sx_runtime[25].call(null, protocol_registry, proto_name), - f = Sx_runtime[83].call(null, proto); - if(Sx_types[67].call(null, f)){ + [0, raw_type_name, [0, h6, [0, Sx_runtime[2].call(null, cst$5, c), 0]]], + type_name = Sx_runtime[2].call(null, cst_slice, d), + e = Sx_runtime[16].call(null, args), + method_defs = Sx_runtime[16].call(null, e), + proto = Sx_runtime[26].call(null, protocol_registry, proto_name), + f = Sx_runtime[84].call(null, proto); + if(Sx_types[71].call(null, f)){ var - g = [3, Sx_runtime[4].call(null, [0, h7, [0, proto_name, 0]])], - h = Sx_runtime[2].call(null, g); + g = [3, Sx_runtime[5].call(null, [0, h7, [0, proto_name, 0]])], + h = Sx_runtime[3].call(null, g); throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); } var - impls = Sx_runtime[25].call(null, proto, h8), - or = Sx_runtime[25].call(null, impls, type_name), + impls = Sx_runtime[26].call(null, proto, h8), + or = Sx_runtime[26].call(null, impls, type_name), type_impls = - Sx_types[67].call(null, or) + Sx_types[71].call(null, or) ? or : [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - i = Sx_runtime[5].call(null, method_defs); + i = Sx_runtime[6].call(null, method_defs); Stdlib_List[18].call (null, function(method_def){ var - a = Sx_runtime[14].call(null, method_def), - mname = Sx_types[68].call(null, a), - b = Sx_runtime[25].call(null, proto, h9), - c = Sx_runtime[5].call(null, b), + a = Sx_runtime[15].call(null, method_def), + mname = Sx_types[72].call(null, a), + b = Sx_runtime[26].call(null, proto, h9), + c = Sx_runtime[6].call(null, b), d = [6, Stdlib_List[44].call (null, function(m){ var - a = [0, Sx_runtime[25].call(null, m, h_), [0, mname, 0]], - b = Sx_runtime[1].call(null, cst, a); - return Sx_types[67].call(null, b); + a = [0, Sx_runtime[26].call(null, m, h_), [0, mname, 0]], + b = Sx_runtime[2].call(null, cst, a); + return Sx_types[71].call(null, b); }, c)], - proto_method = Sx_runtime[14].call(null, d), - e = Sx_runtime[83].call(null, proto_method); - if(Sx_types[67].call(null, e)){ + proto_method = Sx_runtime[15].call(null, d), + e = Sx_runtime[84].call(null, proto_method); + if(Sx_types[71].call(null, e)){ var f = [3, - Sx_runtime[4].call + Sx_runtime[5].call (null, [0, ia, [0, mname, [0, h$, [0, proto_name, 0]]]])], - g = Sx_runtime[2].call(null, f); + g = Sx_runtime[3].call(null, f); throw caml_maybe_attach_backtrace([0, Sx_types[9], g], 1); } var - arity = Sx_runtime[25].call(null, proto_method, ib), + arity = Sx_runtime[26].call(null, proto_method, ib), params = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_slice, [0, method_def, [0, ic, [0, arity, 0]]]), - h = [0, Sx_runtime[1].call(null, cst$8, [0, arity, id]), 0], - i = [0, Sx_runtime[24].call(null, method_def), h], - j = Sx_runtime[1].call(null, cst, i); - if(Sx_types[67].call(null, j)) - var body = Sx_runtime[17].call(null, method_def, arity); + h = [0, Sx_runtime[2].call(null, cst$8, [0, arity, id]), 0], + i = [0, Sx_runtime[25].call(null, method_def), h], + j = Sx_runtime[2].call(null, cst, i); + if(Sx_types[71].call(null, j)) + var body = Sx_runtime[18].call(null, method_def, arity); else var l = - Sx_runtime[1].call(null, cst_slice, [0, method_def, [0, arity, 0]]), - body = Sx_runtime[18].call(null, ig, l); + Sx_runtime[2].call(null, cst_slice, [0, method_def, [0, arity, 0]]), + body = Sx_runtime[19].call(null, ig, l); var k = eval_expr([6, [0, ie, [0, params, [0, body, 0]]]], env); - Sx_runtime[11].call(null, type_impls, mname, k); + Sx_runtime[12].call(null, type_impls, mname, k); return 0; }, i); - Sx_runtime[11].call(null, impls, type_name, type_impls); + Sx_runtime[12].call(null, impls, type_name, type_impls); return 0; } var ih = [0, 0], ii = [0, 0], ij = [3, cst_impls]; function satisfies_p(proto_name, value){ var - a = Sx_types[96].call(null, value), - b = [0, 1 - Sx_types[67].call(null, a)]; - if(Sx_types[67].call(null, b)) return ih; + a = Sx_types[100].call(null, value), + b = [0, 1 - Sx_types[71].call(null, a)]; + if(Sx_types[71].call(null, b)) return ih; var - c = Sx_runtime[39].call(null, proto_name), + c = Sx_runtime[40].call(null, proto_name), d = - Sx_types[67].call(null, c) - ? Sx_types[68].call(null, proto_name) + Sx_types[71].call(null, c) + ? Sx_types[72].call(null, proto_name) : proto_name, - proto = Sx_runtime[25].call(null, protocol_registry, d), - e = Sx_runtime[83].call(null, proto); - if(Sx_types[67].call(null, e)) return ii; + proto = Sx_runtime[26].call(null, protocol_registry, d), + e = Sx_runtime[84].call(null, proto); + if(Sx_types[71].call(null, e)) return ii; var - f = Sx_runtime[73].call(null, value), - g = Sx_runtime[25].call(null, proto, ij), - h = Sx_runtime[25].call(null, g, f), - i = Sx_runtime[83].call(null, h); - return [0, 1 - Sx_types[67].call(null, i)]; + f = Sx_runtime[74].call(null, value), + g = Sx_runtime[26].call(null, proto, ij), + h = Sx_runtime[26].call(null, g, f), + i = Sx_runtime[84].call(null, h); + return [0, 1 - Sx_types[71].call(null, i)]; } var warnings = [6, 0], @@ -55470,95 +62490,95 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= is = [3, "match on boolean missing true case"]; function check_match_exhaustiveness(clauses){ var - b = Sx_runtime[5].call(null, clauses), + b = Sx_runtime[6].call(null, clauses), patterns = [6, Stdlib_List[20].call - (null, function(c){return Sx_runtime[14].call(null, c);}, b)], - c = Sx_runtime[5].call(null, patterns), + (null, function(c){return Sx_runtime[15].call(null, c);}, b)], + c = Sx_runtime[6].call(null, patterns), has_wildcard = [0, Stdlib_List[34].call (null, function(p){ - var and = Sx_runtime[39].call(null, p); - if(Sx_types[67].call(null, and)){ + var and = Sx_runtime[40].call(null, p); + if(Sx_types[71].call(null, and)){ var - b = Sx_runtime[1].call(null, cst, [0, p, ik]), - and$0 = [0, 1 - Sx_types[67].call(null, b)]; - if(Sx_types[67].call(null, and$0)) + b = Sx_runtime[2].call(null, cst, [0, p, ik]), + and$0 = [0, 1 - Sx_types[71].call(null, b)]; + if(Sx_types[71].call(null, and$0)) var - c = Sx_runtime[1].call(null, cst, [0, p, il]), - a = [0, 1 - Sx_types[67].call(null, c)]; + c = Sx_runtime[2].call(null, cst, [0, p, il]), + a = [0, 1 - Sx_types[71].call(null, c)]; else var a = and$0; } else var a = and; - return Sx_types[67].call(null, a); + return Sx_types[71].call(null, a); }, c)], - d = Sx_runtime[5].call(null, patterns), + d = Sx_runtime[6].call(null, patterns), has_else = [0, Stdlib_List[34].call (null, function(p){ - var a = Sx_runtime[1].call(null, cst, [0, p, im]); - return Sx_types[67].call(null, a); + var a = Sx_runtime[2].call(null, cst, [0, p, im]); + return Sx_types[71].call(null, a); }, d)], - e = Sx_runtime[5].call(null, patterns), + e = Sx_runtime[6].call(null, patterns), has_true = [0, Stdlib_List[34].call (null, function(p){ - var a = Sx_runtime[1].call(null, cst, [0, p, io]); - return Sx_types[67].call(null, a); + var a = Sx_runtime[2].call(null, cst, [0, p, io]); + return Sx_types[71].call(null, a); }, e)], - f = Sx_runtime[5].call(null, patterns), + f = Sx_runtime[6].call(null, patterns), has_false = [0, Stdlib_List[34].call (null, function(p){ - var a = Sx_runtime[1].call(null, cst, [0, p, ip]); - return Sx_types[67].call(null, a); + var a = Sx_runtime[2].call(null, cst, [0, p, ip]); + return Sx_types[71].call(null, a); }, f)], - and = [0, 1 - Sx_types[67].call(null, has_wildcard)], + and = [0, 1 - Sx_types[71].call(null, has_wildcard)], g = - Sx_types[67].call(null, and) - ? [0, 1 - Sx_types[67].call(null, has_else)] + Sx_types[71].call(null, and) + ? [0, 1 - Sx_types[71].call(null, has_else)] : and, warnings$0 = - Sx_types[67].call(null, g) - ? Sx_runtime[1].call(null, cst_append, [0, warnings, iq]) + Sx_types[71].call(null, g) + ? Sx_runtime[2].call(null, cst_append, [0, warnings, iq]) : warnings, - and$0 = Sx_types[67].call(null, has_true) ? has_true : has_false; - if(Sx_types[67].call(null, and$0)){ + and$0 = Sx_types[71].call(null, has_true) ? has_true : has_false; + if(Sx_types[71].call(null, and$0)){ var - has_false$0 = Sx_types[67].call(null, has_true) ? has_false : has_true, - and$1 = [0, 1 - Sx_types[67].call(null, has_false$0)]; - if(Sx_types[67].call(null, and$1)) + has_false$0 = Sx_types[71].call(null, has_true) ? has_false : has_true, + and$1 = [0, 1 - Sx_types[71].call(null, has_false$0)]; + if(Sx_types[71].call(null, and$1)) var - and$2 = [0, 1 - Sx_types[67].call(null, has_wildcard)], + and$2 = [0, 1 - Sx_types[71].call(null, has_wildcard)], a = - Sx_types[67].call(null, and$2) - ? [0, 1 - Sx_types[67].call(null, has_else)] + Sx_types[71].call(null, and$2) + ? [0, 1 - Sx_types[71].call(null, has_else)] : and$2; else var a = and$1; } else var a = and$0; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) var - h = Sx_types[67].call(null, has_true) ? ir : is, + h = Sx_types[71].call(null, has_true) ? ir : is, warnings$1 = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, warnings$0, [0, [6, [0, h, 0]], 0]]); else var warnings$1 = warnings$0; @@ -55568,23 +62588,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function match_find_clause(val, clauses$1, env){ var clauses = clauses$1; for(;;){ - var a = Sx_runtime[33].call(null, clauses); - if(Sx_types[67].call(null, a)) return 0; + var a = Sx_runtime[34].call(null, clauses); + if(Sx_types[71].call(null, a)) return 0; var - clause = Sx_runtime[14].call(null, clauses), - pattern = Sx_runtime[14].call(null, clause), - body = Sx_runtime[17].call(null, clause, it), - local = Sx_runtime[80].call(null, env), + clause = Sx_runtime[15].call(null, clauses), + pattern = Sx_runtime[15].call(null, clause), + body = Sx_runtime[18].call(null, clause, it), + local = Sx_runtime[81].call(null, env), b = match_pattern(pattern, val, local); - if(Sx_types[67].call(null, b)) return [6, [0, local, [0, body, 0]]]; - var clauses$0 = Sx_runtime[15].call(null, clauses); + if(Sx_types[71].call(null, b)) return [6, [0, local, [0, body, 0]]]; + var clauses$0 = Sx_runtime[16].call(null, clauses); clauses = clauses$0; } } var cst_adt = "_adt", - cst_ctor = "_ctor", - cst_fields = "_fields", iu = [0, [4, cst$14], 0], iv = [0, 1], iw = [0, [2, 2.], 0], @@ -55594,8 +62612,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= iA = [2, 1.], iB = [0, 1], iC = [3, cst_adt], - iD = [3, cst_fields], - iE = [3, cst_ctor], + iD = [3, "_fields"], + iE = [3, "_ctor"], iF = [2, 1.], iG = [0, [4, cst_rest], 0], iH = [0, [4, cst_rest], 0], @@ -55607,67 +62625,67 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= iN = [0, 0], iO = [2, 1.]; function match_pattern(pattern, value, env){ - var e = Sx_runtime[1].call(null, cst, [0, pattern, iu]); - if(Sx_types[67].call(null, e)) return iv; - var and = Sx_runtime[37].call(null, pattern); - if(Sx_types[67].call(null, and)){ + var e = Sx_runtime[2].call(null, cst, [0, pattern, iu]); + if(Sx_types[71].call(null, e)) return iv; + var and = Sx_runtime[38].call(null, pattern); + if(Sx_types[71].call(null, and)){ var - f = [0, Sx_runtime[24].call(null, pattern), iw], - and$0 = Sx_runtime[1].call(null, cst, f); - if(Sx_types[67].call(null, and$0)) + f = [0, Sx_runtime[25].call(null, pattern), iw], + and$0 = Sx_runtime[2].call(null, cst, f); + if(Sx_types[71].call(null, and$0)) var - g = [0, Sx_runtime[14].call(null, pattern), ix], - b = Sx_runtime[1].call(null, cst, g); + g = [0, Sx_runtime[15].call(null, pattern), ix], + b = Sx_runtime[2].call(null, cst, g); else var b = and$0; } else var b = and; - if(Sx_types[67].call(null, b)){ - var pred = eval_expr(Sx_runtime[17].call(null, pattern, iy), env); + if(Sx_types[71].call(null, b)){ + var pred = eval_expr(Sx_runtime[18].call(null, pattern, iy), env); return cek_call(pred, [6, [0, value, 0]]); } - var and$1 = Sx_runtime[37].call(null, pattern); - if(Sx_types[67].call(null, and$1)){ + var and$1 = Sx_runtime[38].call(null, pattern); + if(Sx_types[71].call(null, and$1)){ var - h = Sx_runtime[33].call(null, pattern), - and$2 = [0, 1 - Sx_types[67].call(null, h)]; - if(Sx_types[67].call(null, and$2)) + h = Sx_runtime[34].call(null, pattern), + and$2 = [0, 1 - Sx_types[71].call(null, h)]; + if(Sx_types[71].call(null, and$2)) var - i = [0, Sx_runtime[14].call(null, pattern), iz], - c = Sx_runtime[1].call(null, cst, i); + i = [0, Sx_runtime[15].call(null, pattern), iz], + c = Sx_runtime[2].call(null, cst, i); else var c = and$2; } else var c = and$1; - if(Sx_types[67].call(null, c)){ - var j = [0, value, [0, Sx_runtime[17].call(null, pattern, iA), 0]]; - return Sx_runtime[1].call(null, cst, j); + if(Sx_types[71].call(null, c)){ + var j = [0, value, [0, Sx_runtime[18].call(null, pattern, iA), 0]]; + return Sx_runtime[2].call(null, cst, j); } - var k = Sx_runtime[39].call(null, pattern); - if(Sx_types[67].call(null, k)){ + var k = Sx_runtime[40].call(null, pattern); + if(Sx_types[71].call(null, k)){ var - l = Sx_types[68].call(null, pattern), - m = Sx_runtime[3].call(null, l); - Sx_runtime[77].call(null, env, m, value); + l = Sx_types[72].call(null, pattern), + m = Sx_runtime[4].call(null, l); + Sx_runtime[78].call(null, env, m, value); return iB; } - var and$3 = Sx_runtime[37].call(null, pattern); - if(Sx_types[67].call(null, and$3)){ + var and$3 = Sx_runtime[38].call(null, pattern); + if(Sx_types[71].call(null, and$3)){ var - n = Sx_runtime[33].call(null, pattern), - and$4 = [0, 1 - Sx_types[67].call(null, n)]; - if(Sx_types[67].call(null, and$4)){ + n = Sx_runtime[34].call(null, pattern), + and$4 = [0, 1 - Sx_types[71].call(null, n)]; + if(Sx_types[71].call(null, and$4)){ var - o = Sx_runtime[14].call(null, pattern), - and$5 = Sx_runtime[39].call(null, o); - if(Sx_types[67].call(null, and$5)) + o = Sx_runtime[15].call(null, pattern), + and$5 = Sx_runtime[40].call(null, o); + if(Sx_types[71].call(null, and$5)) var - and$6 = Sx_runtime[38].call(null, value), + and$6 = Sx_runtime[39].call(null, value), a = - Sx_types[67].call(null, and$6) - ? Sx_runtime[25].call(null, value, iC) + Sx_types[71].call(null, and$6) + ? Sx_runtime[26].call(null, value, iC) : and$6; else var a = and$5; @@ -55677,157 +62695,313 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and$3; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - p = Sx_runtime[14].call(null, pattern), - ctor_name = Sx_types[68].call(null, p), - field_patterns = Sx_runtime[15].call(null, pattern), - fields = Sx_runtime[25].call(null, value, iD), - q = [0, Sx_runtime[25].call(null, value, iE), [0, ctor_name, 0]], - and$7 = Sx_runtime[1].call(null, cst, q); - if(! Sx_types[67].call(null, and$7)) return and$7; + p = Sx_runtime[15].call(null, pattern), + ctor_name = Sx_types[72].call(null, p), + field_patterns = Sx_runtime[16].call(null, pattern), + fields = Sx_runtime[26].call(null, value, iD), + q = [0, Sx_runtime[26].call(null, value, iE), [0, ctor_name, 0]], + and$7 = Sx_runtime[2].call(null, cst, q); + if(! Sx_types[71].call(null, and$7)) return and$7; var - r = [0, Sx_runtime[24].call(null, fields), 0], - s = [0, Sx_runtime[24].call(null, field_patterns), r], - and$8 = Sx_runtime[1].call(null, cst, s); - if(! Sx_types[67].call(null, and$8)) return and$8; + r = [0, Sx_runtime[25].call(null, fields), 0], + s = [0, Sx_runtime[25].call(null, field_patterns), r], + and$8 = Sx_runtime[2].call(null, cst, s); + if(! Sx_types[71].call(null, and$8)) return and$8; var t = - Sx_runtime[1].call(null, cst_zip, [0, field_patterns, [0, fields, 0]]), - u = Sx_runtime[5].call(null, t); + Sx_runtime[2].call(null, cst_zip, [0, field_patterns, [0, fields, 0]]), + u = Sx_runtime[6].call(null, t); return [0, Stdlib_List[33].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, iF), - b = match_pattern(Sx_runtime[14].call(null, pair), a, env); - return Sx_types[67].call(null, b); + a = Sx_runtime[18].call(null, pair, iF), + b = match_pattern(Sx_runtime[15].call(null, pair), a, env); + return Sx_types[71].call(null, b); }, u)]; } var - and$9 = Sx_runtime[38].call(null, pattern), + and$9 = Sx_runtime[39].call(null, pattern), v = - Sx_types[67].call(null, and$9) - ? Sx_runtime[38].call(null, value) + Sx_types[71].call(null, and$9) + ? Sx_runtime[39].call(null, value) : and$9; - if(Sx_types[67].call(null, v)){ + if(Sx_types[71].call(null, v)){ var - w = Sx_runtime[1].call(null, cst_keys, [0, pattern, 0]), - x = Sx_runtime[5].call(null, w); + w = Sx_runtime[2].call(null, cst_keys, [0, pattern, 0]), + x = Sx_runtime[6].call(null, w); return [0, Stdlib_List[33].call (null, function(k){ var - a = Sx_runtime[25].call(null, value, k), + a = Sx_runtime[26].call(null, value, k), b = - match_pattern(Sx_runtime[25].call(null, pattern, k), a, env); - return Sx_types[67].call(null, b); + match_pattern(Sx_runtime[26].call(null, pattern, k), a, env); + return Sx_types[71].call(null, b); }, x)]; } - var and$10 = Sx_runtime[37].call(null, pattern); - if(Sx_types[67].call(null, and$10)) + var and$10 = Sx_runtime[38].call(null, pattern); + if(Sx_types[71].call(null, and$10)) var - and$11 = Sx_runtime[37].call(null, value), + and$11 = Sx_runtime[38].call(null, value), d = - Sx_types[67].call(null, and$11) - ? Sx_runtime[1].call(null, cst_contains, [0, pattern, iG]) + Sx_types[71].call(null, and$11) + ? Sx_runtime[2].call(null, cst_contains, [0, pattern, iG]) : and$11; else var d = and$10; - if(Sx_types[67].call(null, d)){ + if(Sx_types[71].call(null, d)){ var - rest_idx = Sx_runtime[1].call(null, cst_index_of, [0, pattern, iH]), - y = [0, Sx_runtime[24].call(null, value), [0, rest_idx, 0]], - and$12 = Sx_runtime[1].call(null, cst$2, y); - if(! Sx_types[67].call(null, and$12)) return and$12; + rest_idx = Sx_runtime[2].call(null, cst_index_of, [0, pattern, iH]), + y = [0, Sx_runtime[25].call(null, value), [0, rest_idx, 0]], + and$12 = Sx_runtime[2].call(null, cst$2, y); + if(! Sx_types[71].call(null, and$12)) return and$12; var z = [0, - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_slice, [0, value, [0, iI, [0, rest_idx, 0]]]), 0], A = [0, - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_slice, [0, pattern, [0, iJ, [0, rest_idx, 0]]]), z], - B = Sx_runtime[1].call(null, cst_zip, A), - C = Sx_runtime[5].call(null, B), + B = Sx_runtime[2].call(null, cst_zip, A), + C = Sx_runtime[6].call(null, B), and$13 = [0, Stdlib_List[33].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, iK), - b = match_pattern(Sx_runtime[14].call(null, pair), a, env); - return Sx_types[67].call(null, b); + a = Sx_runtime[18].call(null, pair, iK), + b = match_pattern(Sx_runtime[15].call(null, pair), a, env); + return Sx_types[71].call(null, b); }, C)]; - if(! Sx_types[67].call(null, and$13)) return and$13; + if(! Sx_types[71].call(null, and$13)) return and$13; var - D = Sx_runtime[1].call(null, cst$8, [0, rest_idx, iL]), - rest_name = Sx_runtime[17].call(null, pattern, D), - E = Sx_runtime[1].call(null, cst_slice, [0, value, [0, rest_idx, 0]]), - F = Sx_types[68].call(null, rest_name), - G = Sx_runtime[3].call(null, F); - Sx_runtime[77].call(null, env, G, E); + D = Sx_runtime[2].call(null, cst$8, [0, rest_idx, iL]), + rest_name = Sx_runtime[18].call(null, pattern, D), + E = Sx_runtime[2].call(null, cst_slice, [0, value, [0, rest_idx, 0]]), + F = Sx_types[72].call(null, rest_name), + G = Sx_runtime[4].call(null, F); + Sx_runtime[78].call(null, env, G, E); return iM; } var - and$14 = Sx_runtime[37].call(null, pattern), + and$14 = Sx_runtime[38].call(null, pattern), H = - Sx_types[67].call(null, and$14) - ? Sx_runtime[37].call(null, value) + Sx_types[71].call(null, and$14) + ? Sx_runtime[38].call(null, value) : and$14; - if(! Sx_types[67].call(null, H)) - return Sx_runtime[1].call(null, cst, [0, pattern, [0, value, 0]]); + if(! Sx_types[71].call(null, H)) + return Sx_runtime[2].call(null, cst, [0, pattern, [0, value, 0]]); var - I = [0, Sx_runtime[24].call(null, value), 0], - J = [0, Sx_runtime[24].call(null, pattern), I], - K = Sx_runtime[1].call(null, cst, J), - L = [0, 1 - Sx_types[67].call(null, K)]; - if(Sx_types[67].call(null, L)) return iN; + I = [0, Sx_runtime[25].call(null, value), 0], + J = [0, Sx_runtime[25].call(null, pattern), I], + K = Sx_runtime[2].call(null, cst, J), + L = [0, 1 - Sx_types[71].call(null, K)]; + if(Sx_types[71].call(null, L)) return iN; var - pairs = Sx_runtime[1].call(null, cst_zip, [0, pattern, [0, value, 0]]), - M = Sx_runtime[5].call(null, pairs); + pairs = Sx_runtime[2].call(null, cst_zip, [0, pattern, [0, value, 0]]), + M = Sx_runtime[6].call(null, pairs); return [0, Stdlib_List[33].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, iO), - b = match_pattern(Sx_runtime[14].call(null, pair), a, env); - return Sx_types[67].call(null, b); + a = Sx_runtime[18].call(null, pair, iO), + b = match_pattern(Sx_runtime[15].call(null, pair), a, env); + return Sx_types[71].call(null, b); }, M)]; } var iP = [0, 0], iQ = [3, "match: no clause matched "], iR = [2, 1.]; function step_sf_match(args, env, kont){ var - val = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - clauses = Sx_runtime[15].call(null, args), + val = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + clauses = Sx_runtime[16].call(null, args); + match_check_exhaustiveness(val, clauses, env); + var result = match_find_clause(val, clauses, env), - a = Sx_runtime[83].call(null, result); - if(Sx_types[67].call(null, a)){ + a = Sx_runtime[84].call(null, result); + if(Sx_types[71].call(null, a)){ var b = kont_push(make_raise_eval_frame(env, iP), kont), - c = [0, iQ, [0, Sx_runtime[68].call(null, val), 0]]; - return make_cek_value([3, Sx_runtime[4].call(null, c)], env, b); + c = [0, iQ, [0, Sx_runtime[69].call(null, val), 0]]; + return make_cek_value([3, Sx_runtime[5].call(null, c)], env, b); } - var d = Sx_runtime[14].call(null, result); - return make_cek_state(Sx_runtime[17].call(null, result, iR), d, kont); + var d = Sx_runtime[15].call(null, result); + return make_cek_state(Sx_runtime[18].call(null, result, iR), d, kont); } - var iS = [2, 1.]; + var + cst_adt_registry = "*adt-registry*", + cst_adt_warned = "*adt-warned*", + iS = [3, cst_adt_registry], + iT = [3, cst_adt_registry], + iU = [3, cst_adt_warned], + iV = [3, cst_adt_warned], + iW = [3, cst_adt_warned], + iX = [0, 1]; + function match_check_exhaustiveness(val, clauses, env){ + function clause_is_else(c){ + if(typeof c !== "number" && 6 === c[0]){ + var match = c[1]; + if(match){ + var p = match[1]; + if(typeof p !== "number") + switch(p[0]){ + case 4: + var a = p[1]; if(a !== cst$14 && a !== cst_else) break; return 1; + case 5: + if(p[1] === cst_else) return 1; break; + } + return 0; + } + } + return 0; + } + function clause_ctor_name(c){ + if(typeof c !== "number" && 6 === c[0]){ + var b = c[1]; + if(b){ + var a = b[1]; + if(typeof a !== "number" && 6 === a[0]){ + var d = a[1]; + if(d){ + var match = d[1]; + if(typeof match !== "number" && 4 === match[0]){var n = match[1]; return [0, n];} + } + } + } + } + return 0; + } + a: + { + if(typeof val !== "number") + switch(val[0]){ + case 7: + var d = val[1], match$2 = Stdlib_Hashtbl[7].call(null, d, cst_adt); + if(match$2){ + var c = match$2[1]; + if(typeof c !== "number" && 0 === c[0] && c[1]){ + var match$3 = Stdlib_Hashtbl[7].call(null, d, "_type"); + if(match$3){ + var match$4 = match$3[1]; + if(typeof match$4 !== "number" && 3 === match$4[0]){ + var s = match$4[1], type_name_opt = [0, s]; + break a; + } + } + var type_name_opt = 0; + break a; + } + } + var type_name_opt = 0; + break a; + case 38: + var a = val[1], type_name_opt = [0, a[1]]; break a; + } + var type_name_opt = 0; + } + if(! type_name_opt) return 0; + var type_name = type_name_opt[1], e = Sx_runtime[76].call(null, env, iS); + if(! Sx_types[71].call(null, e)) return 0; + var registry = Sx_runtime[77].call(null, env, iT); + a: + { + if(typeof registry !== "number" && 7 === registry[0]){ + var + r = registry[1], + match$0 = Stdlib_Hashtbl[7].call(null, r, type_name); + if(match$0){ + var match$1 = match$0[1]; + if(typeof match$1 !== "number" && 6 === match$1[0]){ + var ctors = match$1[1], registered = [0, ctors]; + break a; + } + } + var registered = 0; + break a; + } + var registered = 0; + } + if(! registered) return 0; + var ctor_vals = registered[1]; + a: + { + if(typeof clauses !== "number" && 6 === clauses[0]){var xs = clauses[1], clauses_list = xs; break a;} + var clauses_list = 0; + } + if(Stdlib_List[34].call(null, clause_is_else, clauses_list)) return 0; + var + clause_ctors = Stdlib_List[23].call(null, clause_ctor_name, clauses_list), + registered_names = + Stdlib_List[23].call + (null, + function(param){ + if(typeof param !== "number" && 3 === param[0]){var s = param[1]; return [0, s];} + return 0; + }, + ctor_vals), + missing = + Stdlib_List[44].call + (null, + function(c){return 1 - Stdlib_List[37].call(null, c, clause_ctors);}, + registered_names); + if(0 === missing) return 0; + var f = Sx_runtime[76].call(null, env, iU); + if(1 - Sx_types[71].call(null, f)){ + var g = [7, Stdlib_Hashtbl[1].call(null, 0, 4)]; + Sx_runtime[78].call(null, env, iV, g); + } + var + warned = Sx_runtime[77].call(null, env, iW), + h = Stdlib_String[7].call(null, ",", missing), + i = Stdlib[28].call(null, "|", h), + key = Stdlib[28].call(null, type_name, i); + a: + { + if(typeof warned !== "number" && 7 === warned[0]){ + var w$0 = warned[1], match = Stdlib_Hashtbl[7].call(null, w$0, key); + if(match){ + var b = match[1]; + if(typeof b !== "number" && 0 === b[0] && b[1]){var already = 1; break a;} + } + var already = 0; + break a; + } + var already = 0; + } + if(already) return 0; + if(typeof warned !== "number" && 7 === warned[0]){ + var w = warned[1]; + Stdlib_Hashtbl[11].call(null, w, key, iX); + } + var + j = Stdlib_String[7].call(null, ", ", missing), + k = Stdlib[28].call(null, ": missing ", j), + l = Stdlib[28].call(null, type_name, k), + msg = + Stdlib[28].call(null, "[sx] match: non-exhaustive \xe2\x80\x94 ", l); + Sx_runtime[103].call(null, [3, msg]); + return 0; + } + var iY = [2, 1.]; function step_sf_handler_bind(args, env, kont){ var - handler_specs = Sx_runtime[14].call(null, args), - body = Sx_runtime[15].call(null, args), - a = Sx_runtime[5].call(null, handler_specs), + handler_specs = Sx_runtime[15].call(null, args), + body = Sx_runtime[16].call(null, args), + a = Sx_runtime[6].call(null, handler_specs), handlers = [6, Stdlib_List[20].call @@ -55836,60 +63010,60 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = [0, - trampoline(eval_expr(Sx_runtime[17].call(null, spec, iS), env)), + trampoline(eval_expr(Sx_runtime[18].call(null, spec, iY), env)), 0]; return [6, [0, - trampoline(eval_expr(Sx_runtime[14].call(null, spec), env)), + trampoline(eval_expr(Sx_runtime[15].call(null, spec), env)), a]]; }, a)], - b = Sx_runtime[33].call(null, body); - if(Sx_types[67].call(null, b)) return make_cek_value(0, env, kont); + b = Sx_runtime[34].call(null, body); + if(Sx_types[71].call(null, b)) return make_cek_value(0, env, kont); var c = kont_push - (make_handler_frame(handlers, Sx_runtime[15].call(null, body), env), + (make_handler_frame(handlers, Sx_runtime[16].call(null, body), env), kont); - return make_cek_state(Sx_runtime[14].call(null, body), env, c); + return make_cek_state(Sx_runtime[15].call(null, body), env, c); } - var iT = [2, 2.], iU = [2, 1.], iV = [6, 0]; + var iZ = [2, 2.], i0 = [2, 1.], i1 = [6, 0]; function step_sf_restart_case(args, env, kont){ var - body = Sx_runtime[14].call(null, args), - restart_specs = Sx_runtime[15].call(null, args), - a = Sx_runtime[5].call(null, restart_specs), + body = Sx_runtime[15].call(null, args), + restart_specs = Sx_runtime[16].call(null, args), + a = Sx_runtime[6].call(null, restart_specs), restarts = [6, Stdlib_List[20].call (null, function(spec){ var - b = [0, Sx_runtime[17].call(null, spec, iT), 0], - c = [0, Sx_runtime[17].call(null, spec, iU), b], - d = Sx_runtime[14].call(null, spec), - e = Sx_runtime[39].call(null, d); - if(Sx_types[67].call(null, e)) + b = [0, Sx_runtime[18].call(null, spec, iZ), 0], + c = [0, Sx_runtime[18].call(null, spec, i0), b], + d = Sx_runtime[15].call(null, spec), + e = Sx_runtime[40].call(null, d); + if(Sx_types[71].call(null, e)) var - f = Sx_runtime[14].call(null, spec), - a = Sx_types[68].call(null, f); + f = Sx_runtime[15].call(null, spec), + a = Sx_types[72].call(null, f); else - var a = Sx_runtime[14].call(null, spec); + var a = Sx_runtime[15].call(null, spec); return [6, [0, a, c]]; }, a)]; return make_cek_state (body, env, - kont_push(make_restart_frame(restarts, iV, env), kont)); + kont_push(make_restart_frame(restarts, i1, env), kont)); } - var iW = [3, "Unhandled condition: "]; + var i2 = [3, "Unhandled condition: "]; function step_sf_signal(args, env, kont){ var - condition = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), + condition = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), handler_fn = kont_find_handler(kont, condition), - a = Sx_runtime[83].call(null, handler_fn); - if(! Sx_types[67].call(null, a)) + a = Sx_runtime[84].call(null, handler_fn); + if(! Sx_types[71].call(null, a)) return continue_with_call (handler_fn, [6, [0, condition, 0]], @@ -55897,168 +63071,168 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= [6, [0, condition, 0]], kont_push(make_signal_return_frame(env, kont), kont)); var - b = [0, iW, [0, Sx_runtime[68].call(null, condition), 0]], - c = [3, Sx_runtime[4].call(null, b)], - d = Sx_runtime[2].call(null, c); + b = [0, i2, [0, Sx_runtime[69].call(null, condition), 0]], + c = [3, Sx_runtime[5].call(null, b)], + d = Sx_runtime[3].call(null, c); throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); } var - iX = [0, [2, 2.], 0], - iY = [2, 1.], - iZ = [3, "No restart named: "], - i0 = [2, 1.], - i1 = [2, 2.], - i2 = [2, 1.], - i3 = [2, 2.], - i4 = [3, cst_env]; + i3 = [0, [2, 2.], 0], + i4 = [2, 1.], + i5 = [3, "No restart named: "], + i6 = [2, 1.], + i7 = [2, 2.], + i8 = [2, 1.], + i9 = [2, 2.], + i_ = [3, cst_env]; function step_sf_invoke_restart(args, env, kont){ - var a = Sx_runtime[14].call(null, args), b = Sx_runtime[39].call(null, a); - if(Sx_types[67].call(null, b)) - var c = Sx_runtime[14].call(null, args), rn = Sx_types[68].call(null, c); + var a = Sx_runtime[15].call(null, args), b = Sx_runtime[40].call(null, a); + if(Sx_types[71].call(null, b)) + var c = Sx_runtime[15].call(null, args), rn = Sx_types[72].call(null, c); else - var rn = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)); + var rn = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)); var - d = Sx_runtime[39].call(null, rn), + d = Sx_runtime[40].call(null, rn), restart_name = - Sx_types[67].call(null, d) ? Sx_types[68].call(null, rn) : rn, - e = [0, Sx_runtime[24].call(null, args), iX], - f = Sx_runtime[1].call(null, cst$2, e), + Sx_types[71].call(null, d) ? Sx_types[72].call(null, rn) : rn, + e = [0, Sx_runtime[25].call(null, args), i3], + f = Sx_runtime[2].call(null, cst$2, e), restart_arg = - Sx_types[67].call(null, f) - ? trampoline(eval_expr(Sx_runtime[17].call(null, args, iY), env)) + Sx_types[71].call(null, f) + ? trampoline(eval_expr(Sx_runtime[18].call(null, args, i4), env)) : 0, found = kont_find_restart(kont, restart_name), - g = Sx_runtime[83].call(null, found); - if(Sx_types[67].call(null, g)){ + g = Sx_runtime[84].call(null, found); + if(Sx_types[71].call(null, g)){ var - h = [0, iZ, [0, Sx_runtime[68].call(null, restart_name), 0]], - i = [3, Sx_runtime[4].call(null, h)], - j = Sx_runtime[2].call(null, i); + h = [0, i5, [0, Sx_runtime[69].call(null, restart_name), 0]], + i = [3, Sx_runtime[5].call(null, h)], + j = Sx_runtime[3].call(null, i); throw caml_maybe_attach_backtrace([0, Sx_types[9], j], 1); } var - entry = Sx_runtime[14].call(null, found), - restart_frame = Sx_runtime[17].call(null, found, i0), - rest_kont = Sx_runtime[17].call(null, found, i1), - params = Sx_runtime[17].call(null, entry, i2), - body = Sx_runtime[17].call(null, entry, i3), - k = Sx_runtime[25].call(null, restart_frame, i4), - restart_env = Sx_runtime[80].call(null, k), - l = Sx_runtime[33].call(null, params), - m = [0, 1 - Sx_types[67].call(null, l)]; - if(Sx_types[67].call(null, m)){ + entry = Sx_runtime[15].call(null, found), + restart_frame = Sx_runtime[18].call(null, found, i6), + rest_kont = Sx_runtime[18].call(null, found, i7), + params = Sx_runtime[18].call(null, entry, i8), + body = Sx_runtime[18].call(null, entry, i9), + k = Sx_runtime[26].call(null, restart_frame, i_), + restart_env = Sx_runtime[81].call(null, k), + l = Sx_runtime[34].call(null, params), + m = [0, 1 - Sx_types[71].call(null, l)]; + if(Sx_types[71].call(null, m)){ var - n = Sx_runtime[14].call(null, params), - o = Sx_runtime[3].call(null, n); - Sx_runtime[77].call(null, restart_env, o, restart_arg); + n = Sx_runtime[15].call(null, params), + o = Sx_runtime[4].call(null, n); + Sx_runtime[78].call(null, restart_env, o, restart_arg); } return make_cek_state(body, restart_env, rest_kont); } - var i5 = [0, [2, 2.], 0], i6 = [2, 2.], i7 = [2, 1.]; + var i$ = [0, [2, 2.], 0], ja = [2, 2.], jb = [2, 1.]; function step_sf_if(args, env, kont){ var - a = [0, Sx_runtime[24].call(null, args), i5], - b = Sx_runtime[1].call(null, cst$0, a), - c = Sx_types[67].call(null, b) ? Sx_runtime[17].call(null, args, i6) : 0, + a = [0, Sx_runtime[25].call(null, args), i$], + b = Sx_runtime[2].call(null, cst$0, a), + c = Sx_types[71].call(null, b) ? Sx_runtime[18].call(null, args, ja) : 0, d = kont_push - (make_if_frame(Sx_runtime[17].call(null, args, i7), c, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, d); + (make_if_frame(Sx_runtime[18].call(null, args, jb), c, env), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, d); } function step_sf_when(args, env, kont){ var a = - kont_push(make_when_frame(Sx_runtime[15].call(null, args), env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + kont_push(make_when_frame(Sx_runtime[16].call(null, args), env), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var i8 = [0, [2, 1.], 0]; + var jc = [0, [2, 1.], 0]; function step_sf_begin(args, env, kont){ - var a = Sx_runtime[33].call(null, args); - if(Sx_types[67].call(null, a)) return make_cek_value(0, env, kont); + var a = Sx_runtime[34].call(null, args); + if(Sx_types[71].call(null, a)) return make_cek_value(0, env, kont); var - b = [0, Sx_runtime[24].call(null, args), i8], - c = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, c)) - return make_cek_state(Sx_runtime[14].call(null, args), env, kont); + b = [0, Sx_runtime[25].call(null, args), jc], + c = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, c)) + return make_cek_state(Sx_runtime[15].call(null, args), env, kont); var d = - kont_push(make_begin_frame(Sx_runtime[15].call(null, args), env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, d); + kont_push(make_begin_frame(Sx_runtime[16].call(null, args), env), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, d); } var - i9 = [0, [3, cst_symbol], 0], - i_ = [0, [3, cst_list], 0], - i$ = [0, [2, 2.], 0], - ja = [0, [3, cst_list], 0], - jb = [0, [2, 2.], 0], - jc = [0, [3, cst_symbol], 0], - jd = [2, 1.], - je = [6, 0], + jd = [0, [3, cst_symbol], 0], + je = [0, [3, cst_list], 0], jf = [0, [2, 2.], 0], - jg = [2, 1.], + jg = [0, [3, cst_list], 0], jh = [0, [2, 2.], 0], - ji = [0, [2, 2.], 0], - jj = [2, 1.]; + ji = [0, [3, cst_symbol], 0], + jj = [2, 1.], + jk = [6, 0], + jl = [0, [2, 2.], 0], + jm = [2, 1.], + jn = [0, [2, 2.], 0], + jo = [0, [2, 2.], 0], + jp = [2, 1.]; function step_sf_let(args, env, kont){ var - c = Sx_runtime[14].call(null, args), - d = [0, Sx_runtime[73].call(null, c), i9], - e = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, e)) + c = Sx_runtime[15].call(null, args), + d = [0, Sx_runtime[74].call(null, c), jd], + e = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, e)) return make_cek_value(sf_named_let(args, env), env, kont); var - bindings = Sx_runtime[14].call(null, args), - body = Sx_runtime[15].call(null, args), - local = Sx_runtime[80].call(null, env), - f = Sx_runtime[33].call(null, bindings); - if(Sx_types[67].call(null, f)) return step_sf_begin(body, local, kont); + bindings = Sx_runtime[15].call(null, args), + body = Sx_runtime[16].call(null, args), + local = Sx_runtime[81].call(null, env), + f = Sx_runtime[34].call(null, bindings); + if(Sx_types[71].call(null, f)) return step_sf_begin(body, local, kont); var - g = Sx_runtime[14].call(null, bindings), - h = [0, Sx_runtime[73].call(null, g), i_], - and = Sx_runtime[1].call(null, cst, h); - if(Sx_types[67].call(null, and)) + g = Sx_runtime[15].call(null, bindings), + h = [0, Sx_runtime[74].call(null, g), je], + and = Sx_runtime[2].call(null, cst, h); + if(Sx_types[71].call(null, and)) var - i = Sx_runtime[14].call(null, bindings), - j = [0, Sx_runtime[24].call(null, i), i$], - a = Sx_runtime[1].call(null, cst, j); + i = Sx_runtime[15].call(null, bindings), + j = [0, Sx_runtime[25].call(null, i), jf], + a = Sx_runtime[2].call(null, cst, j); else var a = and; - if(Sx_types[67].call(null, a)) - var first_binding = Sx_runtime[14].call(null, bindings); + if(Sx_types[71].call(null, a)) + var first_binding = Sx_runtime[15].call(null, bindings); else var - x = [0, Sx_runtime[17].call(null, bindings, jj), 0], - first_binding = [6, [0, Sx_runtime[14].call(null, bindings), x]]; + x = [0, Sx_runtime[18].call(null, bindings, jp), 0], + first_binding = [6, [0, Sx_runtime[15].call(null, bindings), x]]; var - k = Sx_runtime[14].call(null, bindings), - l = [0, Sx_runtime[73].call(null, k), ja], - and$0 = Sx_runtime[1].call(null, cst, l); - if(Sx_types[67].call(null, and$0)) + k = Sx_runtime[15].call(null, bindings), + l = [0, Sx_runtime[74].call(null, k), jg], + and$0 = Sx_runtime[2].call(null, cst, l); + if(Sx_types[71].call(null, and$0)) var - m = Sx_runtime[14].call(null, bindings), - n = [0, Sx_runtime[24].call(null, m), jb], - b = Sx_runtime[1].call(null, cst, n); + m = Sx_runtime[15].call(null, bindings), + n = [0, Sx_runtime[25].call(null, m), jh], + b = Sx_runtime[2].call(null, cst, n); else var b = and$0; - if(Sx_types[67].call(null, b)) - var rest_bindings = Sx_runtime[15].call(null, bindings); + if(Sx_types[71].call(null, b)) + var rest_bindings = Sx_runtime[16].call(null, bindings); else{ var - t = [0, Sx_runtime[24].call(null, bindings), jf], - u = [0, jg, [0, Sx_runtime[1].call(null, cst$12, t), 0]], - v = Sx_runtime[1].call(null, cst_range, u), - w = Sx_runtime[5].call(null, v), - pairs = [0, je]; + t = [0, Sx_runtime[25].call(null, bindings), jl], + u = [0, jm, [0, Sx_runtime[2].call(null, cst$12, t), 0]], + v = Sx_runtime[2].call(null, cst_range, u), + w = Sx_runtime[6].call(null, v), + pairs = [0, jk]; Stdlib_List[26].call (null, function(acc, i){ var - a = [0, Sx_runtime[1].call(null, cst$11, [0, i, jh]), 0], - b = Sx_runtime[1].call(null, cst_inc, a), - c = [0, Sx_runtime[17].call(null, bindings, b), 0], - d = Sx_runtime[1].call(null, cst$11, [0, i, ji]), - e = [6, [0, Sx_runtime[17].call(null, bindings, d), c]]; - pairs[1] = Sx_runtime[10].call(null, pairs[1], e); + a = [0, Sx_runtime[2].call(null, cst$11, [0, i, jn]), 0], + b = Sx_runtime[2].call(null, cst_inc, a), + c = [0, Sx_runtime[18].call(null, bindings, b), 0], + d = Sx_runtime[2].call(null, cst$11, [0, i, jo]), + e = [6, [0, Sx_runtime[18].call(null, bindings, d), c]]; + pairs[1] = Sx_runtime[11].call(null, pairs[1], e); return 0; }, 0, @@ -56066,42 +63240,42 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var rest_bindings = pairs[1]; } var - o = Sx_runtime[14].call(null, first_binding), - p = [0, Sx_runtime[73].call(null, o), jc], - q = Sx_runtime[1].call(null, cst, p); - if(Sx_types[67].call(null, q)) + o = Sx_runtime[15].call(null, first_binding), + p = [0, Sx_runtime[74].call(null, o), ji], + q = Sx_runtime[2].call(null, cst, p); + if(Sx_types[71].call(null, q)) var - r = Sx_runtime[14].call(null, first_binding), - vname = Sx_types[68].call(null, r); + r = Sx_runtime[15].call(null, first_binding), + vname = Sx_types[72].call(null, r); else - var vname = Sx_runtime[14].call(null, first_binding); + var vname = Sx_runtime[15].call(null, first_binding); var s = kont_push(make_let_frame(vname, rest_bindings, body, local), kont); return make_cek_state - (Sx_runtime[17].call(null, first_binding, jd), local, s); + (Sx_runtime[18].call(null, first_binding, jj), local, s); } var - jk = [0, [2, 4.], 0], - jl = [0, [3, cst_keyword], 0], - jm = [2, 1.], - jn = [0, [3, cst_effects], 0], - jo = [2, 1.], - jp = [0, [2, 4.], 0], - jq = [0, [3, cst_keyword], 0], - jr = [2, 1.], - js = [0, [3, cst_effects], 0], - jt = [2, 1.], - ju = [2, 3.], + jq = [0, [2, 4.], 0], + jr = [0, [3, cst_keyword], 0], + js = [2, 1.], + jt = [0, [3, cst_effects], 0], + ju = [2, 1.], jv = [0, [2, 4.], 0], jw = [0, [3, cst_keyword], 0], jx = [2, 1.], jy = [0, [3, cst_effects], 0], jz = [2, 1.], - jA = [2, 2.], - jB = [2, 1.], - jC = [4, cst_fn]; + jA = [2, 3.], + jB = [0, [2, 4.], 0], + jC = [0, [3, cst_keyword], 0], + jD = [2, 1.], + jE = [0, [3, cst_effects], 0], + jF = [2, 1.], + jG = [2, 2.], + jH = [2, 1.], + jI = [4, cst_fn]; function step_sf_define(args, env, kont){ - var match = Sx_runtime[14].call(null, args); + var match = Sx_runtime[15].call(null, args); if(typeof match === "number" || ! (6 === match[0])) var args$0 = args; else{ @@ -56110,64 +63284,64 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var params = match$0[2], fn_name = match$0[1], - s = Sx_runtime[15].call(null, args), - body_parts = Sx_runtime[5].call(null, s), + s = Sx_runtime[16].call(null, args), + body_parts = Sx_runtime[6].call(null, s), args$0 = - [6, [0, fn_name, [0, [6, [0, jC, [0, [6, params], body_parts]]], 0]]]; + [6, [0, fn_name, [0, [6, [0, jI, [0, [6, params], body_parts]]], 0]]]; else var args$0 = args; } var - name_sym = Sx_runtime[14].call(null, args$0), - c = [0, Sx_runtime[24].call(null, args$0), jk], - and = Sx_runtime[1].call(null, cst$2, c); - if(Sx_types[67].call(null, and)){ + name_sym = Sx_runtime[15].call(null, args$0), + c = [0, Sx_runtime[25].call(null, args$0), jq], + and = Sx_runtime[2].call(null, cst$2, c); + if(Sx_types[71].call(null, and)){ var - d = Sx_runtime[17].call(null, args$0, jm), - e = [0, Sx_runtime[73].call(null, d), jl], - and$0 = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, and$0)) + d = Sx_runtime[18].call(null, args$0, js), + e = [0, Sx_runtime[74].call(null, d), jr], + and$0 = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, and$0)) var - f = Sx_runtime[17].call(null, args$0, jo), - g = [0, Sx_types[69].call(null, f), jn], - has_effects = Sx_runtime[1].call(null, cst, g); + f = Sx_runtime[18].call(null, args$0, ju), + g = [0, Sx_types[73].call(null, f), jt], + has_effects = Sx_runtime[2].call(null, cst, g); else var has_effects = and$0; } else var has_effects = and; var - h = [0, Sx_runtime[24].call(null, args$0), jp], - and$1 = Sx_runtime[1].call(null, cst$2, h); - if(Sx_types[67].call(null, and$1)){ + h = [0, Sx_runtime[25].call(null, args$0), jv], + and$1 = Sx_runtime[2].call(null, cst$2, h); + if(Sx_types[71].call(null, and$1)){ var - i = Sx_runtime[17].call(null, args$0, jr), - j = [0, Sx_runtime[73].call(null, i), jq], - and$2 = Sx_runtime[1].call(null, cst, j); - if(Sx_types[67].call(null, and$2)) + i = Sx_runtime[18].call(null, args$0, jx), + j = [0, Sx_runtime[74].call(null, i), jw], + and$2 = Sx_runtime[2].call(null, cst, j); + if(Sx_types[71].call(null, and$2)) var - k = Sx_runtime[17].call(null, args$0, jt), - l = [0, Sx_types[69].call(null, k), js], - a = Sx_runtime[1].call(null, cst, l); + k = Sx_runtime[18].call(null, args$0, jz), + l = [0, Sx_types[73].call(null, k), jy], + a = Sx_runtime[2].call(null, cst, l); else var a = and$2; } else var a = and$1; var - val_idx = Sx_types[67].call(null, a) ? ju : jB, - m = [0, Sx_runtime[24].call(null, args$0), jv], - and$3 = Sx_runtime[1].call(null, cst$2, m); - if(Sx_types[67].call(null, and$3)){ + val_idx = Sx_types[71].call(null, a) ? jA : jH, + m = [0, Sx_runtime[25].call(null, args$0), jB], + and$3 = Sx_runtime[2].call(null, cst$2, m); + if(Sx_types[71].call(null, and$3)){ var - n = Sx_runtime[17].call(null, args$0, jx), - o = [0, Sx_runtime[73].call(null, n), jw], - and$4 = Sx_runtime[1].call(null, cst, o); - if(Sx_types[67].call(null, and$4)) + n = Sx_runtime[18].call(null, args$0, jD), + o = [0, Sx_runtime[74].call(null, n), jC], + and$4 = Sx_runtime[2].call(null, cst, o); + if(Sx_types[71].call(null, and$4)) var - p = Sx_runtime[17].call(null, args$0, jz), - q = [0, Sx_types[69].call(null, p), jy], - b = Sx_runtime[1].call(null, cst, q); + p = Sx_runtime[18].call(null, args$0, jF), + q = [0, Sx_types[73].call(null, p), jE], + b = Sx_runtime[2].call(null, cst, q); else var b = and$4; } @@ -56175,354 +63349,354 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var b = and$3; var effect_list = - Sx_types[67].call(null, b) ? Sx_runtime[17].call(null, args$0, jA) : 0, + Sx_types[71].call(null, b) ? Sx_runtime[18].call(null, args$0, jG) : 0, r = kont_push (make_define_frame - (Sx_types[68].call(null, name_sym), env, has_effects, effect_list), + (Sx_types[72].call(null, name_sym), env, has_effects, effect_list), kont); - return make_cek_state(Sx_runtime[17].call(null, args$0, val_idx), env, r); + return make_cek_state(Sx_runtime[18].call(null, args$0, val_idx), env, r); } - var jD = [2, 1.]; + var jJ = [2, 1.]; function step_sf_set_b(args, env, kont){ var - a = Sx_runtime[14].call(null, args), - b = kont_push(make_set_frame(Sx_types[68].call(null, a), env), kont); - return make_cek_state(Sx_runtime[17].call(null, args, jD), env, b); + a = Sx_runtime[15].call(null, args), + b = kont_push(make_set_frame(Sx_types[72].call(null, a), env), kont); + return make_cek_state(Sx_runtime[18].call(null, args, jJ), env, b); } - var jE = [0, 1]; + var jK = [0, 1]; function step_sf_and(args, env, kont){ - var a = Sx_runtime[33].call(null, args); - if(Sx_types[67].call(null, a)) return make_cek_value(jE, env, kont); + var a = Sx_runtime[34].call(null, args); + if(Sx_types[71].call(null, a)) return make_cek_value(jK, env, kont); var - b = kont_push(make_and_frame(Sx_runtime[15].call(null, args), env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, b); + b = kont_push(make_and_frame(Sx_runtime[16].call(null, args), env), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, b); } - var jF = [0, 0]; + var jL = [0, 0]; function step_sf_or(args, env, kont){ - var a = Sx_runtime[33].call(null, args); - if(Sx_types[67].call(null, a)) return make_cek_value(jF, env, kont); + var a = Sx_runtime[34].call(null, args); + if(Sx_types[71].call(null, a)) return make_cek_value(jL, env, kont); var - b = kont_push(make_or_frame(Sx_runtime[15].call(null, args), env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, b); + b = kont_push(make_or_frame(Sx_runtime[16].call(null, args), env), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, b); } var - jG = [2, 1.], - jH = [0, 1], - jI = [0, [2, 2.], 0], - jJ = [2, 1.], - jK = [0, 0]; + jM = [2, 1.], + jN = [0, 1], + jO = [0, [2, 2.], 0], + jP = [2, 1.], + jQ = [0, 0]; function step_sf_cond(args, env, kont){ var scheme_p = cond_scheme_p(args); - if(Sx_types[67].call(null, scheme_p)){ - var a = Sx_runtime[33].call(null, args); - if(Sx_types[67].call(null, a)) return make_cek_value(0, env, kont); + if(Sx_types[71].call(null, scheme_p)){ + var a = Sx_runtime[34].call(null, args); + if(Sx_types[71].call(null, a)) return make_cek_value(0, env, kont); var - clause = Sx_runtime[14].call(null, args), - test = Sx_runtime[14].call(null, clause), + clause = Sx_runtime[15].call(null, args), + test = Sx_runtime[15].call(null, clause), b = is_else_clause(test); - return Sx_types[67].call(null, b) + return Sx_types[71].call(null, b) ? make_cek_state - (Sx_runtime[17].call(null, clause, jG), env, kont) + (Sx_runtime[18].call(null, clause, jM), env, kont) : make_cek_state - (test, env, kont_push(make_cond_frame(args, env, jH), kont)); + (test, env, kont_push(make_cond_frame(args, env, jN), kont)); } var - c = [0, Sx_runtime[24].call(null, args), jI], - d = Sx_runtime[1].call(null, cst$3, c); - if(Sx_types[67].call(null, d)) return make_cek_value(0, env, kont); - var test$0 = Sx_runtime[14].call(null, args), e = is_else_clause(test$0); - return Sx_types[67].call(null, e) - ? make_cek_state(Sx_runtime[17].call(null, args, jJ), env, kont) + c = [0, Sx_runtime[25].call(null, args), jO], + d = Sx_runtime[2].call(null, cst$3, c); + if(Sx_types[71].call(null, d)) return make_cek_value(0, env, kont); + var test$0 = Sx_runtime[15].call(null, args), e = is_else_clause(test$0); + return Sx_types[71].call(null, e) + ? make_cek_state(Sx_runtime[18].call(null, args, jP), env, kont) : make_cek_state - (test$0, env, kont_push(make_cond_frame(args, env, jK), kont)); + (test$0, env, kont_push(make_cond_frame(args, env, jQ), kont)); } - var jL = [3, cst_first]; + var jR = [3, cst_first]; function step_sf_thread_first(args, env, kont){ var a = kont_push - (make_thread_frame(Sx_runtime[15].call(null, args), env, jL, 0), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + (make_thread_frame(Sx_runtime[16].call(null, args), env, jR, 0), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var cst_last = "last", jM = [3, cst_last]; + var cst_last = "last", jS = [3, cst_last]; function step_sf_thread_last(args, env, kont){ var a = kont_push - (make_thread_frame(Sx_runtime[15].call(null, args), env, jM, 0), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + (make_thread_frame(Sx_runtime[16].call(null, args), env, jS, 0), kont); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var jN = [2, 1.], jO = [3, cst_as]; + var jT = [2, 1.], jU = [3, cst_as]; function step_sf_thread_as(args, env, kont){ var - init = Sx_runtime[14].call(null, args), - name = Sx_runtime[17].call(null, args, jN), - a = Sx_runtime[15].call(null, args), - forms = Sx_runtime[15].call(null, a); + init = Sx_runtime[15].call(null, args), + name = Sx_runtime[18].call(null, args, jT), + a = Sx_runtime[16].call(null, args), + forms = Sx_runtime[16].call(null, a); return make_cek_state (init, env, - kont_push(make_thread_frame(forms, env, jO, name), kont)); + kont_push(make_thread_frame(forms, env, jU, name), kont)); } function step_sf_lambda(args, env, kont){ return make_cek_value(sf_lambda(args, env), env, kont); } var - jP = [0, [2, 1.], 0], - jQ = [0, [2, 2.], 0], - jR = [0, [3, cst_keyword], 0], - jS = [0, [3, cst_value], 0], - jT = [2, 1.], - jU = [0, [2, 2.], 0]; + jV = [0, [2, 1.], 0], + jW = [0, [2, 2.], 0], + jX = [0, [3, cst_keyword], 0], + jY = [0, [3, cst_value], 0], + jZ = [2, 1.], + j0 = [0, [2, 2.], 0]; function step_sf_scope(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - rest_args = Sx_runtime[1].call(null, cst_slice, [0, args, jP]), - b = [0, Sx_runtime[24].call(null, rest_args), jQ], - and = Sx_runtime[1].call(null, cst$2, b); - if(Sx_types[67].call(null, and)){ + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + rest_args = Sx_runtime[2].call(null, cst_slice, [0, args, jV]), + b = [0, Sx_runtime[25].call(null, rest_args), jW], + and = Sx_runtime[2].call(null, cst$2, b); + if(Sx_types[71].call(null, and)){ var - c = Sx_runtime[14].call(null, rest_args), - d = [0, Sx_runtime[73].call(null, c), jR], - and$0 = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, and$0)) + c = Sx_runtime[15].call(null, rest_args), + d = [0, Sx_runtime[74].call(null, c), jX], + and$0 = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, and$0)) var - e = Sx_runtime[14].call(null, rest_args), - f = [0, Sx_types[69].call(null, e), jS], - a = Sx_runtime[1].call(null, cst, f); + e = Sx_runtime[15].call(null, rest_args), + f = [0, Sx_types[73].call(null, e), jY], + a = Sx_runtime[2].call(null, cst, f); else var a = and$0; } else var a = and; - if(Sx_types[67].call(null, a)) + if(Sx_types[71].call(null, a)) var - g = trampoline(eval_expr(Sx_runtime[17].call(null, rest_args, jT), env)), - body = Sx_runtime[1].call(null, cst_slice, [0, rest_args, jU]), + g = trampoline(eval_expr(Sx_runtime[18].call(null, rest_args, jZ), env)), + body = Sx_runtime[2].call(null, cst_slice, [0, rest_args, j0]), val = g; else var body = rest_args, val = 0; - var h = Sx_runtime[33].call(null, body); - if(Sx_types[67].call(null, h)) return make_cek_value(0, env, kont); + var h = Sx_runtime[34].call(null, body); + if(Sx_types[71].call(null, h)) return make_cek_value(0, env, kont); var i = kont_push - (make_scope_acc_frame(name, val, Sx_runtime[15].call(null, body), env), + (make_scope_acc_frame(name, val, Sx_runtime[16].call(null, body), env), kont); - return make_cek_state(Sx_runtime[14].call(null, body), env, i); + return make_cek_state(Sx_runtime[15].call(null, body), env, i); } - var jV = [2, 1.], jW = [0, [2, 2.], 0]; + var j1 = [2, 1.], j2 = [0, [2, 2.], 0]; function step_sf_provide(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - val = trampoline(eval_expr(Sx_runtime[17].call(null, args, jV), env)), - body = Sx_runtime[1].call(null, cst_slice, [0, args, jW]); - Sx_runtime[103].call(null, name, val); - var a = Sx_runtime[33].call(null, body); - if(Sx_types[67].call(null, a)){ - Sx_runtime[104].call(null, name); + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + val = trampoline(eval_expr(Sx_runtime[18].call(null, args, j1), env)), + body = Sx_runtime[2].call(null, cst_slice, [0, args, j2]); + Sx_runtime[105].call(null, name, val); + var a = Sx_runtime[34].call(null, body); + if(Sx_types[71].call(null, a)){ + Sx_runtime[106].call(null, name); return make_cek_value(0, env, kont); } var b = kont_push - (make_provide_frame(name, val, Sx_runtime[15].call(null, body), env), + (make_provide_frame(name, val, Sx_runtime[16].call(null, body), env), kont); - return make_cek_state(Sx_runtime[14].call(null, body), env, b); + return make_cek_state(Sx_runtime[15].call(null, body), env, b); } - var jX = [0, [2, 2.], 0], jY = [2, 1.], jZ = [3, cst_value]; + var j3 = [0, [2, 2.], 0], j4 = [2, 1.], j5 = [3, cst_value]; function step_sf_context(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - a = [0, Sx_runtime[24].call(null, args), jX], - b = Sx_runtime[1].call(null, cst$2, a), + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + a = [0, Sx_runtime[25].call(null, args), j3], + b = Sx_runtime[2].call(null, cst$2, a), default_val = - Sx_types[67].call(null, b) - ? trampoline(eval_expr(Sx_runtime[17].call(null, args, jY), env)) + Sx_types[71].call(null, b) + ? trampoline(eval_expr(Sx_runtime[18].call(null, args, j4), env)) : 0, frame = kont_find_provide(kont, name); - if(Sx_types[67].call(null, bind_tracking_ref[1])){ + if(Sx_types[71].call(null, bind_tracking_ref[1])){ var c = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_contains, [0, bind_tracking_ref[1], [0, name, 0]]), - d = [0, 1 - Sx_types[67].call(null, c)]; - if(Sx_types[67].call(null, d)) + d = [0, 1 - Sx_types[71].call(null, c)]; + if(Sx_types[71].call(null, d)) bind_tracking_ref[1] = - Sx_runtime[10].call(null, bind_tracking_ref[1], name); + Sx_runtime[11].call(null, bind_tracking_ref[1], name); } var - sv = Sx_runtime[105].call(null, name), - e = Sx_runtime[83].call(null, sv), + sv = Sx_runtime[107].call(null, name), + e = Sx_runtime[84].call(null, sv), f = - Sx_types[67].call(null, e) + Sx_types[71].call(null, e) ? Sx_types - [67].call + [71].call (null, frame) - ? Sx_runtime[25].call(null, frame, jZ) + ? Sx_runtime[26].call(null, frame, j5) : default_val : sv; return make_cek_value(f, env, kont); } var - j0 = [0, [2, 2.], 0], - j1 = [2, 1.], - j2 = [3, cst_value], - j3 = [3, cst_peek], - j4 = [3, cst_peek]; + j6 = [0, [2, 2.], 0], + j7 = [2, 1.], + j8 = [3, cst_value], + j9 = [3, cst_peek], + j_ = [3, cst_peek]; function step_sf_peek(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - b = [0, Sx_runtime[24].call(null, args), j0], - c = Sx_runtime[1].call(null, cst$2, b), + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + b = [0, Sx_runtime[25].call(null, args), j6], + c = Sx_runtime[2].call(null, cst$2, b), default_val = - Sx_types[67].call(null, c) - ? trampoline(eval_expr(Sx_runtime[17].call(null, args, j1), env)) + Sx_types[71].call(null, c) + ? trampoline(eval_expr(Sx_runtime[18].call(null, args, j7), env)) : 0, frame = kont_find_provide(kont, name); - if(Sx_types[67].call(null, frame)) - var a = Sx_runtime[25].call(null, frame, j2); + if(Sx_types[71].call(null, frame)) + var a = Sx_runtime[26].call(null, frame, j8); else{ - var d = Sx_runtime[75].call(null, env, j3); - if(Sx_types[67].call(null, d)) + var d = Sx_runtime[76].call(null, env, j9); + if(Sx_types[71].call(null, d)) var - e = Sx_runtime[76].call(null, env, j4), - a = Sx_runtime[7].call(null, e, [6, [0, name, [0, default_val, 0]]]); + e = Sx_runtime[77].call(null, env, j_), + a = Sx_runtime[8].call(null, e, [6, [0, name, [0, default_val, 0]]]); else var a = default_val; } return make_cek_value(a, env, kont); } - var j5 = [2, 1.]; + var j$ = [2, 1.]; function step_sf_provide_b(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), a = kont_push(make_provide_set_frame(name, env), kont); - return make_cek_state(Sx_runtime[17].call(null, args, j5), env, a); + return make_cek_state(Sx_runtime[18].call(null, args, j$), env, a); } var cst_scope_emit = "scope-emit!", - j6 = [2, 1.], - j7 = [3, cst_emitted], - j8 = [3, cst_emitted], - j9 = [3, cst_scope_emit], - j_ = [3, cst_scope_emit]; + ka = [2, 1.], + kb = [3, cst_emitted], + kc = [3, cst_emitted], + kd = [3, cst_scope_emit], + ke = [3, cst_scope_emit]; function step_sf_emit(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), - val = trampoline(eval_expr(Sx_runtime[17].call(null, args, j6), env)), + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), + val = trampoline(eval_expr(Sx_runtime[18].call(null, args, ka), env)), frame = kont_find_scope_acc(kont, name); - if(Sx_types[67].call(null, frame)){ + if(Sx_types[71].call(null, frame)){ var - a = [0, Sx_runtime[25].call(null, frame, j7), [0, [6, [0, val, 0]], 0]], - b = Sx_runtime[1].call(null, cst_append, a); - Sx_runtime[11].call(null, frame, j8, b); + a = [0, Sx_runtime[26].call(null, frame, kb), [0, [6, [0, val, 0]], 0]], + b = Sx_runtime[2].call(null, cst_append, a); + Sx_runtime[12].call(null, frame, kc, b); return make_cek_value(0, env, kont); } - var c = Sx_runtime[75].call(null, env, j9); - if(Sx_types[67].call(null, c)){ - var d = Sx_runtime[76].call(null, env, j_); - Sx_runtime[7].call(null, d, [6, [0, name, [0, val, 0]]]); + var c = Sx_runtime[76].call(null, env, kd); + if(Sx_types[71].call(null, c)){ + var d = Sx_runtime[77].call(null, env, ke); + Sx_runtime[8].call(null, d, [6, [0, name, [0, val, 0]]]); } return make_cek_value(0, env, kont); } var - j$ = [3, cst_emitted], - ka = [3, cst_emitted], - kb = [3, cst_emitted], - kc = [6, 0]; + kf = [3, cst_emitted], + kg = [3, cst_emitted], + kh = [3, cst_emitted], + ki = [6, 0]; function step_sf_emitted(args, env, kont){ var - name = trampoline(eval_expr(Sx_runtime[14].call(null, args), env)), + name = trampoline(eval_expr(Sx_runtime[15].call(null, args), env)), frame = kont_find_scope_acc(kont, name); - if(Sx_types[67].call(null, frame)) - var a = Sx_runtime[25].call(null, frame, j$); + if(Sx_types[71].call(null, frame)) + var a = Sx_runtime[26].call(null, frame, kf); else{ - var b = Sx_runtime[75].call(null, env, ka); - if(Sx_types[67].call(null, b)) + var b = Sx_runtime[76].call(null, env, kg); + if(Sx_types[71].call(null, b)) var - c = Sx_runtime[76].call(null, env, kb), - a = Sx_runtime[7].call(null, c, [6, [0, name, 0]]); + c = Sx_runtime[77].call(null, env, kh), + a = Sx_runtime[8].call(null, c, [6, [0, name, 0]]); else - var a = kc; + var a = ki; } return make_cek_value(a, env, kont); } function step_sf_reset(args, env, kont){ var a = kont_push(make_reset_frame(env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var kd = [2, 1.], ke = [2, 1.]; + var kj = [2, 1.], kk = [2, 1.]; function step_sf_shift(args, env, kont){ var - a = Sx_runtime[14].call(null, args), - k_name = Sx_types[68].call(null, a), - body = Sx_runtime[17].call(null, args, kd), + a = Sx_runtime[15].call(null, args), + k_name = Sx_types[72].call(null, a), + body = Sx_runtime[18].call(null, args, kj), captured_result = kont_capture_to_reset(kont), - captured = Sx_runtime[14].call(null, captured_result), - rest_kont = Sx_runtime[17].call(null, captured_result, ke), - k = Sx_runtime[95].call(null, captured, rest_kont), - shift_env = Sx_runtime[80].call(null, env), - b = Sx_runtime[3].call(null, k_name); - Sx_runtime[77].call(null, shift_env, b, k); + captured = Sx_runtime[15].call(null, captured_result), + rest_kont = Sx_runtime[18].call(null, captured_result, kk), + k = Sx_runtime[96].call(null, captured, rest_kont), + shift_env = Sx_runtime[81].call(null, env), + b = Sx_runtime[4].call(null, k_name); + Sx_runtime[78].call(null, shift_env, b, k); return make_cek_state(body, shift_env, rest_kont); } function step_sf_deref(args, env, kont){ var a = kont_push(make_deref_frame(env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var kf = [6, 0], kg = [6, 0]; + var kl = [6, 0], km = [6, 0]; function cek_call(f, args){ var - b = Sx_runtime[83].call(null, args), - a = Sx_types[67].call(null, b) ? kf : args, - c = Sx_runtime[83].call(null, f); - if(Sx_types[67].call(null, c)) return 0; + b = Sx_runtime[84].call(null, args), + a = Sx_types[71].call(null, b) ? kl : args, + c = Sx_runtime[84].call(null, f); + if(Sx_types[71].call(null, c)) return 0; var - or = Sx_runtime[85].call(null, f), - or$0 = Sx_types[67].call(null, or) ? or : Sx_runtime[90].call(null, f); - return Sx_types[67].call(null, or$0) + or = Sx_runtime[86].call(null, f), + or$0 = Sx_types[71].call(null, or) ? or : Sx_runtime[91].call(null, f); + return Sx_types[71].call(null, or$0) ? cek_run - (continue_with_call(f, a, Sx_runtime[79].call(null, 0), a, kg)) + (continue_with_call(f, a, Sx_runtime[80].call(null, 0), a, km)) : 0; } var cst_update_fn = "update-fn", - kh = [2, 1.], - ki = [2, 2.], - kj = [3, cst_update_fn], - kk = [0, 0]; + kn = [2, 1.], + ko = [2, 2.], + kp = [3, cst_update_fn], + kq = [0, 0]; function reactive_shift_deref(sig, env, kont){ var scan_result = kont_capture_to_reactive_reset(kont), - captured_frames = Sx_runtime[14].call(null, scan_result), - reset_frame = Sx_runtime[17].call(null, scan_result, kh), - remaining_kont = Sx_runtime[17].call(null, scan_result, ki), - update_fn = Sx_runtime[25].call(null, reset_frame, kj), + captured_frames = Sx_runtime[15].call(null, scan_result), + reset_frame = Sx_runtime[18].call(null, scan_result, kn), + remaining_kont = Sx_runtime[18].call(null, scan_result, ko), + update_fn = Sx_runtime[26].call(null, reset_frame, kp), subscriber = [15, cst$9, function(args){ - var a = Sx_runtime[5].call(null, 0); + var a = Sx_runtime[6].call(null, 0); Stdlib_List[18].call(null, function(d){cek_call(d, 0); return 0;}, a); var - new_reset = make_reactive_reset_frame(env, update_fn, kk), + new_reset = make_reactive_reset_frame(env, update_fn, kq), new_kont = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_concat, [0, captured_frames, [0, [6, [0, new_reset, 0]], [0, remaining_kont, 0]]]); - return Sx_runtime[117].call + return Sx_runtime[119].call (null, [15, cst$9, function(args){ if(args && ! args[2]){ var d = args[1]; - Sx_runtime[10].call(null, 0, d); + Sx_runtime[11].call(null, 0, d); return 0; } return 0; @@ -56532,329 +63706,329 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(args){ return cek_run (make_cek_value - (Sx_runtime[114].call(null, sig), env, new_kont)); + (Sx_runtime[116].call(null, sig), env, new_kont)); }]); }]; - Sx_runtime[115].call(null, sig, subscriber); + Sx_runtime[117].call(null, sig, subscriber); var initial_kont = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_concat, [0, captured_frames, [0, [6, [0, reset_frame, 0]], [0, remaining_kont, 0]]]); - return make_cek_value(Sx_runtime[114].call(null, sig), env, initial_kont); + return make_cek_value(Sx_runtime[116].call(null, sig), env, initial_kont); } - var kl = [0, [3, cst_symbol], 0], km = [6, 0]; + var kr = [0, [3, cst_symbol], 0], ks = [6, 0]; function step_eval_call(head, args, env, kont){ var - a = [0, Sx_runtime[73].call(null, head), kl], - b = Sx_runtime[1].call(null, cst, a), - hname = Sx_types[67].call(null, b) ? Sx_types[68].call(null, head) : 0; + a = [0, Sx_runtime[74].call(null, head), kr], + b = Sx_runtime[2].call(null, cst, a), + hname = Sx_types[71].call(null, b) ? Sx_types[72].call(null, head) : 0; return make_cek_state (head, env, - kont_push(make_arg_frame(0, km, args, env, args, hname), kont)); + kont_push(make_arg_frame(0, ks, args, env, args, hname), kont)); } var - kn = [0, [3, cst_map], 0], - ko = [0, [3, cst_map_indexed], 0], - kp = [0, [3, cst_filter], 0], - kq = [0, [3, cst_reduce], 0], - kr = [0, [3, cst_some], 0], - ks = [0, [3, cst_every$0], 0], - kt = [0, [3, cst_for_each], 0]; + kt = [0, [3, cst_map], 0], + ku = [0, [3, cst_map_indexed], 0], + kv = [0, [3, cst_filter], 0], + kw = [0, [3, cst_reduce], 0], + kx = [0, [3, cst_some], 0], + ky = [0, [3, cst_every$0], 0], + kz = [0, [3, cst_for_each], 0]; function ho_form_name_p(name){ - var or = Sx_runtime[1].call(null, cst, [0, name, kn]); - if(Sx_types[67].call(null, or)) return or; - var or$0 = Sx_runtime[1].call(null, cst, [0, name, ko]); - if(Sx_types[67].call(null, or$0)) return or$0; - var or$1 = Sx_runtime[1].call(null, cst, [0, name, kp]); - if(Sx_types[67].call(null, or$1)) return or$1; - var or$2 = Sx_runtime[1].call(null, cst, [0, name, kq]); - if(Sx_types[67].call(null, or$2)) return or$2; - var or$3 = Sx_runtime[1].call(null, cst, [0, name, kr]); - if(Sx_types[67].call(null, or$3)) return or$3; - var or$4 = Sx_runtime[1].call(null, cst, [0, name, ks]); - return Sx_types[67].call(null, or$4) + var or = Sx_runtime[2].call(null, cst, [0, name, kt]); + if(Sx_types[71].call(null, or)) return or; + var or$0 = Sx_runtime[2].call(null, cst, [0, name, ku]); + if(Sx_types[71].call(null, or$0)) return or$0; + var or$1 = Sx_runtime[2].call(null, cst, [0, name, kv]); + if(Sx_types[71].call(null, or$1)) return or$1; + var or$2 = Sx_runtime[2].call(null, cst, [0, name, kw]); + if(Sx_types[71].call(null, or$2)) return or$2; + var or$3 = Sx_runtime[2].call(null, cst, [0, name, kx]); + if(Sx_types[71].call(null, or$3)) return or$3; + var or$4 = Sx_runtime[2].call(null, cst, [0, name, ky]); + return Sx_types[71].call(null, or$4) ? or$4 - : Sx_runtime[1].call(null, cst, [0, name, kt]); + : Sx_runtime[2].call(null, cst, [0, name, kz]); } function ho_fn_p(v){ - var or = Sx_runtime[90].call(null, v); - return Sx_types[67].call(null, or) ? or : Sx_runtime[85].call(null, v); + var or = Sx_runtime[91].call(null, v); + return Sx_types[71].call(null, or) ? or : Sx_runtime[86].call(null, v); } - var ku = [0, [3, cst_reduce], 0], kv = [2, 1.], kw = [2, 2.], kx = [2, 1.]; + var kA = [0, [3, cst_reduce], 0], kB = [2, 1.], kC = [2, 2.], kD = [2, 1.]; function ho_swap_args(ho_type, evaled){ - var c = Sx_runtime[1].call(null, cst, [0, ho_type, ku]); - if(Sx_types[67].call(null, c)){ + var c = Sx_runtime[2].call(null, cst, [0, ho_type, kA]); + if(Sx_types[71].call(null, c)){ var - a = Sx_runtime[14].call(null, evaled), - b = Sx_runtime[17].call(null, evaled, kv), + a = Sx_runtime[15].call(null, evaled), + b = Sx_runtime[18].call(null, evaled, kB), d = ho_fn_p(a), - and = [0, 1 - Sx_types[67].call(null, d)], - e = Sx_types[67].call(null, and) ? ho_fn_p(b) : and; - return Sx_types[67].call(null, e) + and = [0, 1 - Sx_types[71].call(null, d)], + e = Sx_types[71].call(null, and) ? ho_fn_p(b) : and; + return Sx_types[71].call(null, e) ? [6, - [0, b, [0, Sx_runtime[17].call(null, evaled, kw), [0, a, 0]]]] + [0, b, [0, Sx_runtime[18].call(null, evaled, kC), [0, a, 0]]]] : evaled; } var - a$0 = Sx_runtime[14].call(null, evaled), - b$0 = Sx_runtime[17].call(null, evaled, kx), + a$0 = Sx_runtime[15].call(null, evaled), + b$0 = Sx_runtime[18].call(null, evaled, kD), f = ho_fn_p(a$0), - and$0 = [0, 1 - Sx_types[67].call(null, f)], - g = Sx_types[67].call(null, and$0) ? ho_fn_p(b$0) : and$0; - return Sx_types[67].call(null, g) ? [6, [0, b$0, [0, a$0, 0]]] : evaled; + and$0 = [0, 1 - Sx_types[71].call(null, f)], + g = Sx_types[71].call(null, and$0) ? ho_fn_p(b$0) : and$0; + return Sx_types[71].call(null, g) ? [6, [0, b$0, [0, a$0, 0]]] : evaled; } var - ky = [0, [3, cst_map], 0], - kz = [0, [2, 2.], 0], - kA = [6, 0], - kB = [6, 0], - kC = [6, 0], - kD = [2, 1.], - kE = [6, 0], - kF = [6, 0], + kE = [0, [3, cst_map], 0], + kF = [0, [2, 2.], 0], kG = [6, 0], - kH = [0, [3, cst_map_indexed], 0], - kI = [2, 1.], - kJ = [6, 0], + kH = [6, 0], + kI = [6, 0], + kJ = [2, 1.], kK = [6, 0], kL = [6, 0], - kM = [2, 0.], - kN = [0, [3, cst_filter], 0], + kM = [6, 0], + kN = [0, [3, cst_map_indexed], 0], kO = [2, 1.], kP = [6, 0], kQ = [6, 0], kR = [6, 0], - kS = [0, [3, cst_reduce], 0], - kT = [2, 1.], - kU = [2, 2.], + kS = [2, 0.], + kT = [0, [3, cst_filter], 0], + kU = [2, 1.], kV = [6, 0], - kW = [0, [3, cst_some], 0], - kX = [2, 1.], - kY = [0, 0], - kZ = [6, 0], - k0 = [0, [3, cst_every], 0], - k1 = [2, 1.], - k2 = [0, 1], - k3 = [6, 0], - k4 = [0, [3, cst_for_each], 0], - k5 = [2, 1.], - k6 = [6, 0], - k7 = [3, "Unknown HO type: "]; + kW = [6, 0], + kX = [6, 0], + kY = [0, [3, cst_reduce], 0], + kZ = [2, 1.], + k0 = [2, 2.], + k1 = [6, 0], + k2 = [0, [3, cst_some], 0], + k3 = [2, 1.], + k4 = [0, 0], + k5 = [6, 0], + k6 = [0, [3, cst_every], 0], + k7 = [2, 1.], + k8 = [0, 1], + k9 = [6, 0], + k_ = [0, [3, cst_for_each], 0], + k$ = [2, 1.], + la = [6, 0], + lb = [3, "Unknown HO type: "]; function ho_setup_dispatch(ho_type, evaled, env, kont){ var ordered = ho_swap_args(ho_type, evaled), - f = Sx_runtime[14].call(null, ordered), - a = Sx_runtime[1].call(null, cst, [0, ho_type, ky]); - if(Sx_types[67].call(null, a)){ + f = Sx_runtime[15].call(null, ordered), + a = Sx_runtime[2].call(null, cst, [0, ho_type, kE]); + if(Sx_types[71].call(null, a)){ var - b = [0, Sx_runtime[24].call(null, ordered), kz], - c = Sx_runtime[1].call(null, cst$0, b); - if(Sx_types[67].call(null, c)){ + b = [0, Sx_runtime[25].call(null, ordered), kF], + c = Sx_runtime[2].call(null, cst$0, b); + if(Sx_types[71].call(null, c)){ var - colls = Sx_runtime[15].call(null, ordered), - d = Sx_runtime[5].call(null, colls), + colls = Sx_runtime[16].call(null, ordered), + d = Sx_runtime[6].call(null, colls), e = [0, Stdlib_List[34].call (null, function(c){ - var a = Sx_runtime[33].call(null, c); - return Sx_types[67].call(null, a); + var a = Sx_runtime[34].call(null, c); + return Sx_types[71].call(null, a); }, d)]; - if(Sx_types[67].call(null, e)) return make_cek_value(kA, env, kont); + if(Sx_types[71].call(null, e)) return make_cek_value(kG, env, kont); var - g = Sx_runtime[5].call(null, colls), + g = Sx_runtime[6].call(null, colls), heads = [6, Stdlib_List[20].call - (null, function(c){return Sx_runtime[14].call(null, c);}, g)], - h = Sx_runtime[5].call(null, colls), + (null, function(c){return Sx_runtime[15].call(null, c);}, g)], + h = Sx_runtime[6].call(null, colls), tails = [6, Stdlib_List[20].call - (null, function(c){return Sx_runtime[15].call(null, c);}, h)]; + (null, function(c){return Sx_runtime[16].call(null, c);}, h)]; return continue_with_call (f, heads, env, - kC, - kont_push(make_multi_map_frame(f, tails, kB, env), kont)); + kI, + kont_push(make_multi_map_frame(f, tails, kH, env), kont)); } var - coll = seq_to_list(Sx_runtime[17].call(null, ordered, kD)), - i = Sx_runtime[33].call(null, coll); - if(Sx_types[67].call(null, i)) return make_cek_value(kE, env, kont); + coll = seq_to_list(Sx_runtime[18].call(null, ordered, kJ)), + i = Sx_runtime[34].call(null, coll); + if(Sx_types[71].call(null, i)) return make_cek_value(kK, env, kont); var j = kont_push - (make_map_frame(f, Sx_runtime[15].call(null, coll), kF, env), kont); + (make_map_frame(f, Sx_runtime[16].call(null, coll), kL, env), kont); return continue_with_call - (f, [6, [0, Sx_runtime[14].call(null, coll), 0]], env, kG, j); + (f, [6, [0, Sx_runtime[15].call(null, coll), 0]], env, kM, j); } - var k = Sx_runtime[1].call(null, cst, [0, ho_type, kH]); - if(Sx_types[67].call(null, k)){ + var k = Sx_runtime[2].call(null, cst, [0, ho_type, kN]); + if(Sx_types[71].call(null, k)){ var - coll$0 = seq_to_list(Sx_runtime[17].call(null, ordered, kI)), - l = Sx_runtime[33].call(null, coll$0); - if(Sx_types[67].call(null, l)) return make_cek_value(kJ, env, kont); + coll$0 = seq_to_list(Sx_runtime[18].call(null, ordered, kO)), + l = Sx_runtime[34].call(null, coll$0); + if(Sx_types[71].call(null, l)) return make_cek_value(kP, env, kont); var m = kont_push (make_map_indexed_frame - (f, Sx_runtime[15].call(null, coll$0), kK, env), + (f, Sx_runtime[16].call(null, coll$0), kQ, env), kont); return continue_with_call (f, - [6, [0, kM, [0, Sx_runtime[14].call(null, coll$0), 0]]], + [6, [0, kS, [0, Sx_runtime[15].call(null, coll$0), 0]]], env, - kL, + kR, m); } - var n = Sx_runtime[1].call(null, cst, [0, ho_type, kN]); - if(Sx_types[67].call(null, n)){ + var n = Sx_runtime[2].call(null, cst, [0, ho_type, kT]); + if(Sx_types[71].call(null, n)){ var - coll$1 = seq_to_list(Sx_runtime[17].call(null, ordered, kO)), - o = Sx_runtime[33].call(null, coll$1); - if(Sx_types[67].call(null, o)) return make_cek_value(kP, env, kont); + coll$1 = seq_to_list(Sx_runtime[18].call(null, ordered, kU)), + o = Sx_runtime[34].call(null, coll$1); + if(Sx_types[71].call(null, o)) return make_cek_value(kV, env, kont); var - p = Sx_runtime[14].call(null, coll$1), + p = Sx_runtime[15].call(null, coll$1), q = kont_push - (make_filter_frame(f, Sx_runtime[15].call(null, coll$1), kQ, p, env), + (make_filter_frame(f, Sx_runtime[16].call(null, coll$1), kW, p, env), kont); return continue_with_call - (f, [6, [0, Sx_runtime[14].call(null, coll$1), 0]], env, kR, q); + (f, [6, [0, Sx_runtime[15].call(null, coll$1), 0]], env, kX, q); } - var r = Sx_runtime[1].call(null, cst, [0, ho_type, kS]); - if(Sx_types[67].call(null, r)){ + var r = Sx_runtime[2].call(null, cst, [0, ho_type, kY]); + if(Sx_types[71].call(null, r)){ var - init = Sx_runtime[17].call(null, ordered, kT), - coll$2 = seq_to_list(Sx_runtime[17].call(null, ordered, kU)), - s = Sx_runtime[33].call(null, coll$2); - if(Sx_types[67].call(null, s)) return make_cek_value(init, env, kont); + init = Sx_runtime[18].call(null, ordered, kZ), + coll$2 = seq_to_list(Sx_runtime[18].call(null, ordered, k0)), + s = Sx_runtime[34].call(null, coll$2); + if(Sx_types[71].call(null, s)) return make_cek_value(init, env, kont); var t = kont_push - (make_reduce_frame(f, Sx_runtime[15].call(null, coll$2), env), kont); + (make_reduce_frame(f, Sx_runtime[16].call(null, coll$2), env), kont); return continue_with_call (f, - [6, [0, init, [0, Sx_runtime[14].call(null, coll$2), 0]]], + [6, [0, init, [0, Sx_runtime[15].call(null, coll$2), 0]]], env, - kV, + k1, t); } - var u = Sx_runtime[1].call(null, cst, [0, ho_type, kW]); - if(Sx_types[67].call(null, u)){ + var u = Sx_runtime[2].call(null, cst, [0, ho_type, k2]); + if(Sx_types[71].call(null, u)){ var - coll$3 = seq_to_list(Sx_runtime[17].call(null, ordered, kX)), - v = Sx_runtime[33].call(null, coll$3); - if(Sx_types[67].call(null, v)) return make_cek_value(kY, env, kont); + coll$3 = seq_to_list(Sx_runtime[18].call(null, ordered, k3)), + v = Sx_runtime[34].call(null, coll$3); + if(Sx_types[71].call(null, v)) return make_cek_value(k4, env, kont); var w = kont_push - (make_some_frame(f, Sx_runtime[15].call(null, coll$3), env), kont); + (make_some_frame(f, Sx_runtime[16].call(null, coll$3), env), kont); return continue_with_call - (f, [6, [0, Sx_runtime[14].call(null, coll$3), 0]], env, kZ, w); + (f, [6, [0, Sx_runtime[15].call(null, coll$3), 0]], env, k5, w); } - var x = Sx_runtime[1].call(null, cst, [0, ho_type, k0]); - if(Sx_types[67].call(null, x)){ + var x = Sx_runtime[2].call(null, cst, [0, ho_type, k6]); + if(Sx_types[71].call(null, x)){ var - coll$4 = seq_to_list(Sx_runtime[17].call(null, ordered, k1)), - y = Sx_runtime[33].call(null, coll$4); - if(Sx_types[67].call(null, y)) return make_cek_value(k2, env, kont); + coll$4 = seq_to_list(Sx_runtime[18].call(null, ordered, k7)), + y = Sx_runtime[34].call(null, coll$4); + if(Sx_types[71].call(null, y)) return make_cek_value(k8, env, kont); var z = kont_push - (make_every_frame(f, Sx_runtime[15].call(null, coll$4), env), kont); + (make_every_frame(f, Sx_runtime[16].call(null, coll$4), env), kont); return continue_with_call - (f, [6, [0, Sx_runtime[14].call(null, coll$4), 0]], env, k3, z); + (f, [6, [0, Sx_runtime[15].call(null, coll$4), 0]], env, k9, z); } - var A = Sx_runtime[1].call(null, cst, [0, ho_type, k4]); - if(! Sx_types[67].call(null, A)){ + var A = Sx_runtime[2].call(null, cst, [0, ho_type, k_]); + if(! Sx_types[71].call(null, A)){ var - D = [3, Sx_runtime[4].call(null, [0, k7, [0, ho_type, 0]])], - E = Sx_runtime[2].call(null, D); + D = [3, Sx_runtime[5].call(null, [0, lb, [0, ho_type, 0]])], + E = Sx_runtime[3].call(null, D); throw caml_maybe_attach_backtrace([0, Sx_types[9], E], 1); } var - coll$5 = seq_to_list(Sx_runtime[17].call(null, ordered, k5)), - B = Sx_runtime[33].call(null, coll$5); - if(Sx_types[67].call(null, B)) return make_cek_value(0, env, kont); + coll$5 = seq_to_list(Sx_runtime[18].call(null, ordered, k$)), + B = Sx_runtime[34].call(null, coll$5); + if(Sx_types[71].call(null, B)) return make_cek_value(0, env, kont); var C = kont_push - (make_for_each_frame(f, Sx_runtime[15].call(null, coll$5), env), kont); + (make_for_each_frame(f, Sx_runtime[16].call(null, coll$5), env), kont); return continue_with_call - (f, [6, [0, Sx_runtime[14].call(null, coll$5), 0]], env, k6, C); + (f, [6, [0, Sx_runtime[15].call(null, coll$5), 0]], env, la, C); } - var k8 = [6, 0], k9 = [3, cst_map]; + var lc = [6, 0], ld = [3, cst_map]; function step_ho_map(args, env, kont){ var a = kont_push - (make_ho_setup_frame(k9, Sx_runtime[15].call(null, args), k8, env), + (make_ho_setup_frame(ld, Sx_runtime[16].call(null, args), lc, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var k_ = [6, 0], k$ = [3, cst_map_indexed]; + var le = [6, 0], lf = [3, cst_map_indexed]; function step_ho_map_indexed(args, env, kont){ var a = kont_push - (make_ho_setup_frame(k$, Sx_runtime[15].call(null, args), k_, env), + (make_ho_setup_frame(lf, Sx_runtime[16].call(null, args), le, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var la = [6, 0], lb = [3, cst_filter]; + var lg = [6, 0], lh = [3, cst_filter]; function step_ho_filter(args, env, kont){ var a = kont_push - (make_ho_setup_frame(lb, Sx_runtime[15].call(null, args), la, env), + (make_ho_setup_frame(lh, Sx_runtime[16].call(null, args), lg, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var lc = [6, 0], ld = [3, cst_reduce]; + var li = [6, 0], lj = [3, cst_reduce]; function step_ho_reduce(args, env, kont){ var a = kont_push - (make_ho_setup_frame(ld, Sx_runtime[15].call(null, args), lc, env), + (make_ho_setup_frame(lj, Sx_runtime[16].call(null, args), li, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var le = [6, 0], lf = [3, cst_some]; + var lk = [6, 0], ll = [3, cst_some]; function step_ho_some(args, env, kont){ var a = kont_push - (make_ho_setup_frame(lf, Sx_runtime[15].call(null, args), le, env), + (make_ho_setup_frame(ll, Sx_runtime[16].call(null, args), lk, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var lg = [6, 0], lh = [3, cst_every]; + var lm = [6, 0], ln = [3, cst_every]; function step_ho_every(args, env, kont){ var a = kont_push - (make_ho_setup_frame(lh, Sx_runtime[15].call(null, args), lg, env), + (make_ho_setup_frame(ln, Sx_runtime[16].call(null, args), lm, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } - var li = [6, 0], lj = [3, cst_for_each]; + var lo = [6, 0], lp = [3, cst_for_each]; function step_ho_for_each(args, env, kont){ var a = kont_push - (make_ho_setup_frame(lj, Sx_runtime[15].call(null, args), li, env), + (make_ho_setup_frame(lp, Sx_runtime[16].call(null, args), lo, env), kont); - return make_cek_state(Sx_runtime[14].call(null, args), env, a); + return make_cek_state(Sx_runtime[15].call(null, args), env, a); } var cst_vm_suspended = "__vm_suspended", @@ -56867,608 +64041,608 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cst_scheme = "scheme", cst_subscribers = "subscribers", last_error_kont_ref = [0, 0], - lk = [0, [3, cst_if], 0], - ll = [3, cst_env], - lm = [3, "then"], - ln = [3, cst_else], - lo = [3, cst_env], - lp = [3, cst_else], - lq = [0, [3, cst_when], 0], - lr = [3, cst_body], - ls = [3, cst_env], - lt = [0, [2, 1.], 0], - lu = [0, [3, cst_begin], 0], - lv = [3, cst_remaining], - lw = [3, cst_env], - lx = [0, [2, 1.], 0], - ly = [0, [3, cst_let], 0], - lz = [3, cst_name], - lA = [3, cst_remaining], - lB = [3, cst_body], + lq = [0, [3, cst_if], 0], + lr = [3, cst_env], + ls = [3, "then"], + lt = [3, cst_else], + lu = [3, cst_env], + lv = [3, cst_else], + lw = [0, [3, cst_when], 0], + lx = [3, cst_body], + ly = [3, cst_env], + lz = [0, [2, 1.], 0], + lA = [0, [3, cst_begin], 0], + lB = [3, cst_remaining], lC = [3, cst_env], - lD = [0, [3, cst_symbol], 0], - lE = [2, 1.], - lF = [0, [3, cst_define], 0], - lG = [3, cst_name], - lH = [3, cst_env], - lI = [3, "has-effects"], - lJ = [3, "effect-list"], - lK = [0, [3, cst_symbol], 0], - lL = [3, cst_effect_annotations], - lM = [3, cst_effect_annotations], - lN = [3, cst_effect_annotations], - lO = [0, [3, cst_define_foreign], 0], - lP = [3, cst_name], - lQ = [3, cst_env], - lR = [0, [3, cst_set], 0], - lS = [3, cst_name], - lT = [3, cst_env], - lU = [0, [3, cst_and], 0], - lV = [3, cst_remaining], - lW = [0, [2, 1.], 0], - lX = [3, cst_env], - lY = [3, cst_env], - lZ = [0, [3, cst_or], 0], - l0 = [3, cst_remaining], - l1 = [0, 0], + lD = [0, [2, 1.], 0], + lE = [0, [3, cst_let], 0], + lF = [3, cst_name], + lG = [3, cst_remaining], + lH = [3, cst_body], + lI = [3, cst_env], + lJ = [0, [3, cst_symbol], 0], + lK = [2, 1.], + lL = [0, [3, cst_define], 0], + lM = [3, cst_name], + lN = [3, cst_env], + lO = [3, "has-effects"], + lP = [3, "effect-list"], + lQ = [0, [3, cst_symbol], 0], + lR = [3, cst_effect_annotations], + lS = [3, cst_effect_annotations], + lT = [3, cst_effect_annotations], + lU = [0, [3, cst_define_foreign], 0], + lV = [3, cst_name], + lW = [3, cst_env], + lX = [0, [3, cst_set], 0], + lY = [3, cst_name], + lZ = [3, cst_env], + l0 = [0, [3, cst_and], 0], + l1 = [3, cst_remaining], l2 = [0, [2, 1.], 0], l3 = [3, cst_env], l4 = [3, cst_env], - l5 = [0, [3, cst_cond], 0], + l5 = [0, [3, cst_or], 0], l6 = [3, cst_remaining], - l7 = [3, cst_env], - l8 = [3, cst_scheme], - l9 = [0, [2, 2.], 0], - l_ = [0, [3, cst_symbol], 0], - l$ = [2, 1.], - ma = [0, [3, cst$10], 0], - mb = [2, 1.], - mc = [2, 2.], - md = [2, 1.], - me = [2, 1.], - mf = [0, 1], - mg = [2, 1.], - mh = [2, 2.], - mi = [0, [2, 2.], 0], + l7 = [0, 0], + l8 = [0, [2, 1.], 0], + l9 = [3, cst_env], + l_ = [3, cst_env], + l$ = [0, [3, cst_cond], 0], + ma = [3, cst_remaining], + mb = [3, cst_env], + mc = [3, cst_scheme], + md = [0, [2, 2.], 0], + me = [0, [3, cst_symbol], 0], + mf = [2, 1.], + mg = [0, [3, cst$10], 0], + mh = [2, 1.], + mi = [2, 2.], mj = [2, 1.], - mk = [0, 0], - ml = [0, [3, cst_case], 0], - mm = [3, cst_match_val], - mn = [3, cst_remaining], - mo = [3, cst_env], - mp = [0, [3, cst_thread], 0], - mq = [3, cst_remaining], - mr = [3, cst_env], - ms = [3, "extra"], - mt = [3, cst_name], - mu = [0, [3, cst_as], 0], - mv = [0, [3, cst_list], 0], - mw = [0, [3, cst_symbol], 0], - mx = [4, cst_quote], - my = [0, [3, cst_last], 0], - mz = [0, [3, cst_arg], 0], - mA = [3, cst_f], - mB = [3, cst_evaled], - mC = [3, cst_remaining], - mD = [3, cst_env], - mE = [3, "raw-args"], - mF = [3, "head-name"], - mG = [6, 0], - mH = [6, 0], - mI = [6, 0], - mJ = [0, [3, cst_dict], 0], - mK = [3, cst_remaining], - mL = [3, cst_results], - mM = [3, cst_env], - mN = [2, 0.], - mO = [2, 1.], - mP = [2, 1.], - mQ = [0, [3, cst_ho_setup], 0], - mR = [3, "ho-type"], - mS = [3, cst_remaining], - mT = [3, cst_evaled], - mU = [3, cst_env], - mV = [0, [3, cst_reset], 0], - mW = [0, [3, cst_deref], 0], - mX = [3, cst_env], - mY = [3, "sx-reactive"], - mZ = [3, "deps"], - m0 = [3, "notify"], - m1 = [0, [3, cst_reactive_reset], 0], - m2 = [3, cst_update_fn], - m3 = [3, "first-render"], - m4 = [0, [3, cst_scope], 0], - m5 = [3, cst_name], - m6 = [3, cst_remaining], - m7 = [3, cst_env], - m8 = [0, [3, cst_provide], 0], - m9 = [3, cst_remaining], - m_ = [3, cst_env], + mk = [2, 1.], + ml = [0, 1], + mm = [2, 1.], + mn = [2, 2.], + mo = [0, [2, 2.], 0], + mp = [2, 1.], + mq = [0, 0], + mr = [0, [3, cst_case], 0], + ms = [3, cst_match_val], + mt = [3, cst_remaining], + mu = [3, cst_env], + mv = [0, [3, cst_thread], 0], + mw = [3, cst_remaining], + mx = [3, cst_env], + my = [3, "extra"], + mz = [3, cst_name], + mA = [0, [3, cst_as], 0], + mB = [0, [3, cst_list], 0], + mC = [0, [3, cst_symbol], 0], + mD = [4, cst_quote], + mE = [0, [3, cst_last], 0], + mF = [0, [3, cst_arg], 0], + mG = [3, cst_f], + mH = [3, cst_evaled], + mI = [3, cst_remaining], + mJ = [3, cst_env], + mK = [3, "raw-args"], + mL = [3, "head-name"], + mM = [6, 0], + mN = [6, 0], + mO = [6, 0], + mP = [0, [3, cst_dict], 0], + mQ = [3, cst_remaining], + mR = [3, cst_results], + mS = [3, cst_env], + mT = [2, 0.], + mU = [2, 1.], + mV = [2, 1.], + mW = [0, [3, cst_ho_setup], 0], + mX = [3, "ho-type"], + mY = [3, cst_remaining], + mZ = [3, cst_evaled], + m0 = [3, cst_env], + m1 = [0, [3, cst_reset], 0], + m2 = [0, [3, cst_deref], 0], + m3 = [3, cst_env], + m4 = [3, "sx-reactive"], + m5 = [3, "deps"], + m6 = [3, "notify"], + m7 = [0, [3, cst_reactive_reset], 0], + m8 = [3, cst_update_fn], + m9 = [3, "first-render"], + m_ = [0, [3, cst_scope], 0], m$ = [3, cst_name], - na = [3, cst_value], - nb = [3, cst_name], - nc = [3, cst_subscribers], - nd = [3, cst_subscribers], - ne = [0, [3, cst_bind], 0], - nf = [3, cst_body], - ng = [3, cst_env], - nh = [3, "prev-tracking"], - ni = [6, 0], - nj = [6, 0], - nk = [0, [3, cst_provide_set], 0], - nl = [3, cst_name], + na = [3, cst_remaining], + nb = [3, cst_env], + nc = [0, [3, cst_provide], 0], + nd = [3, cst_remaining], + ne = [3, cst_env], + nf = [3, cst_name], + ng = [3, cst_value], + nh = [3, cst_name], + ni = [3, cst_subscribers], + nj = [3, cst_subscribers], + nk = [0, [3, cst_bind], 0], + nl = [3, cst_body], nm = [3, cst_env], - nn = [3, cst_value], - no = [3, cst_value], - np = [0, [3, cst_scope_acc], 0], - nq = [3, cst_remaining], - nr = [3, cst_env], - ns = [3, cst_value], - nt = [3, cst_name], - nu = [3, cst_emitted], - nv = [3, cst_emitted], - nw = [0, [3, cst_map], 0], - nx = [3, cst_f], - ny = [3, cst_remaining], - nz = [3, cst_results], - nA = [3, "indexed"], - nB = [3, cst_env], - nC = [6, 0], - nD = [0, [3, cst_filter], 0], - nE = [3, cst_f], - nF = [3, cst_remaining], - nG = [3, cst_results], - nH = [3, "current-item"], - nI = [3, cst_env], - nJ = [6, 0], - nK = [0, [3, cst_reduce], 0], - nL = [3, cst_f], - nM = [3, cst_remaining], - nN = [3, cst_env], - nO = [6, 0], - nP = [0, [3, cst_for_each], 0], - nQ = [3, cst_f], - nR = [3, cst_remaining], - nS = [3, cst_env], - nT = [6, 0], - nU = [0, [3, cst_some], 0], - nV = [3, cst_f], - nW = [3, cst_remaining], - nX = [3, cst_env], - nY = [0, 0], + nn = [3, "prev-tracking"], + no = [6, 0], + np = [6, 0], + nq = [0, [3, cst_provide_set], 0], + nr = [3, cst_name], + ns = [3, cst_env], + nt = [3, cst_value], + nu = [3, cst_value], + nv = [0, [3, cst_scope_acc], 0], + nw = [3, cst_remaining], + nx = [3, cst_env], + ny = [3, cst_value], + nz = [3, cst_name], + nA = [3, cst_emitted], + nB = [3, cst_emitted], + nC = [0, [3, cst_map], 0], + nD = [3, cst_f], + nE = [3, cst_remaining], + nF = [3, cst_results], + nG = [3, "indexed"], + nH = [3, cst_env], + nI = [6, 0], + nJ = [0, [3, cst_filter], 0], + nK = [3, cst_f], + nL = [3, cst_remaining], + nM = [3, cst_results], + nN = [3, "current-item"], + nO = [3, cst_env], + nP = [6, 0], + nQ = [0, [3, cst_reduce], 0], + nR = [3, cst_f], + nS = [3, cst_remaining], + nT = [3, cst_env], + nU = [6, 0], + nV = [0, [3, cst_for_each], 0], + nW = [3, cst_f], + nX = [3, cst_remaining], + nY = [3, cst_env], nZ = [6, 0], - n0 = [0, [3, cst_every], 0], + n0 = [0, [3, cst_some], 0], n1 = [3, cst_f], n2 = [3, cst_remaining], n3 = [3, cst_env], n4 = [0, 0], - n5 = [0, 1], - n6 = [6, 0], - n7 = [0, [3, cst_handler], 0], + n5 = [6, 0], + n6 = [0, [3, cst_every], 0], + n7 = [3, cst_f], n8 = [3, cst_remaining], n9 = [3, cst_env], - n_ = [3, cst_f], - n$ = [0, [3, cst_restart], 0], - oa = [0, [3, cst_signal_return], 0], - ob = [3, "saved-kont"], - oc = [3, cst_env], - od = [0, [3, cst_comp_trace], 0], - oe = [0, [3, cst_cond_arrow], 0], - of = [3, cst_match_val], - og = [3, cst_env], - oh = [0, [3, cst_wind_after], 0], - oi = [3, cst_after_thunk], - oj = [3, cst_winders_len], - ok = [3, cst_env], - ol = [6, 0], - om = [6, 0], - on = [0, [3, cst_wind_return], 0], - oo = [3, cst_env], - op = [3, "body-result"], - oq = [0, [3, cst_raise_eval], 0], - or = [3, cst_env], - os = [3, cst_scheme], - ot = [3, cst_handler], - ou = [3, cst_kont], - ov = [3, "Unhandled exception: "], - ow = [0, [3, cst_raise_guard], 0], - ox = [3, "exception handler returned from non-continuable raise"], - oy = [0, [3, cst_multi_map], 0], - oz = [3, cst_f], - oA = [3, cst_remaining], - oB = [3, cst_results], - oC = [3, cst_env], - oD = [6, 0], - oE = [0, [3, cst_callcc], 0], - oF = [3, cst_env], - oG = [0, [3, cst_vm_resume], 0], - oH = [3, cst_f], - oI = [3, cst_vm_suspended], - oJ = [3, cst_env], - oK = [3, cst_resume], + n_ = [0, 0], + n$ = [0, 1], + oa = [6, 0], + ob = [0, [3, cst_handler], 0], + oc = [3, cst_remaining], + od = [3, cst_env], + oe = [3, cst_f], + of = [0, [3, cst_restart], 0], + og = [0, [3, cst_signal_return], 0], + oh = [3, "saved-kont"], + oi = [3, cst_env], + oj = [0, [3, cst_comp_trace], 0], + ok = [0, [3, cst_cond_arrow], 0], + ol = [3, cst_match_val], + om = [3, cst_env], + on = [0, [3, cst_wind_after], 0], + oo = [3, cst_after_thunk], + op = [3, cst_winders_len], + oq = [3, cst_env], + or = [6, 0], + os = [6, 0], + ot = [0, [3, cst_wind_return], 0], + ou = [3, cst_env], + ov = [3, "body-result"], + ow = [0, [3, cst_raise_eval], 0], + ox = [3, cst_env], + oy = [3, cst_scheme], + oz = [3, cst_handler], + oA = [3, cst_kont], + oB = [3, "Unhandled exception: "], + oC = [0, [3, cst_raise_guard], 0], + oD = [3, "exception handler returned from non-continuable raise"], + oE = [0, [3, cst_multi_map], 0], + oF = [3, cst_f], + oG = [3, cst_remaining], + oH = [3, cst_results], + oI = [3, cst_env], + oJ = [6, 0], + oK = [0, [3, cst_callcc], 0], oL = [3, cst_env], - oM = [3, cst_request], - oN = [3, cst_env], - oO = [0, [3, cst_perform], 0], + oM = [0, [3, cst_vm_resume], 0], + oN = [3, cst_f], + oO = [3, cst_vm_suspended], oP = [3, cst_env], - oQ = [0, [3, cst_import], 0], - oR = [3, cst_args], - oS = [3, cst_remaining], + oQ = [3, cst_resume], + oR = [3, cst_env], + oS = [3, cst_request], oT = [3, cst_env], - oU = [0, [3, cst_parameterize], 0], - oV = [3, cst_remaining], - oW = [3, cst_f], - oX = [3, cst_results], - oY = [3, cst_body], + oU = [0, [3, cst_perform], 0], + oV = [3, cst_env], + oW = [0, [3, cst_import], 0], + oX = [3, cst_args], + oY = [3, cst_remaining], oZ = [3, cst_env], - o0 = [2, 1.], - o1 = [0, [2, 1.], 0], - o2 = [4, cst_begin], - o3 = [3, "Unknown frame type: "]; + o0 = [0, [3, cst_parameterize], 0], + o1 = [3, cst_remaining], + o2 = [3, cst_f], + o3 = [3, cst_results], + o4 = [3, cst_body], + o5 = [3, cst_env], + o6 = [2, 1.], + o7 = [0, [2, 1.], 0], + o8 = [4, cst_begin], + o9 = [3, "Unknown frame type: "]; function step_continue(state){ var converted_val = cek_value(state), env = cek_env(state), kont = cek_kont(state), i = kont_empty_p(kont); - if(Sx_types[67].call(null, i)) return state; + if(Sx_types[71].call(null, i)) return state; var frame = kont_top(kont), rest_k = kont_pop(kont), match_val = frame_type(frame), - j = Sx_runtime[1].call(null, cst, [0, match_val, lk]); - if(Sx_types[67].call(null, j)){ - if(Sx_types[67].call(null, converted_val)) + j = Sx_runtime[2].call(null, cst, [0, match_val, lq]); + if(Sx_types[71].call(null, j)){ + if(Sx_types[71].call(null, converted_val)) var - l = Sx_runtime[83].call(null, converted_val), - c = [0, 1 - Sx_types[67].call(null, l)]; + l = Sx_runtime[84].call(null, converted_val), + c = [0, 1 - Sx_types[71].call(null, l)]; else var c = converted_val; - if(Sx_types[67].call(null, c)){ - var m = Sx_runtime[25].call(null, frame, ll); - return make_cek_state(Sx_runtime[25].call(null, frame, lm), m, rest_k); + if(Sx_types[71].call(null, c)){ + var m = Sx_runtime[26].call(null, frame, lr); + return make_cek_state(Sx_runtime[26].call(null, frame, ls), m, rest_k); } var - n = Sx_runtime[25].call(null, frame, ln), - o = Sx_runtime[83].call(null, n); - if(Sx_types[67].call(null, o)) return make_cek_value(0, env, rest_k); - var p = Sx_runtime[25].call(null, frame, lo); - return make_cek_state(Sx_runtime[25].call(null, frame, lp), p, rest_k); + n = Sx_runtime[26].call(null, frame, lt), + o = Sx_runtime[84].call(null, n); + if(Sx_types[71].call(null, o)) return make_cek_value(0, env, rest_k); + var p = Sx_runtime[26].call(null, frame, lu); + return make_cek_state(Sx_runtime[26].call(null, frame, lv), p, rest_k); } - var q = Sx_runtime[1].call(null, cst, [0, match_val, lq]); - if(Sx_types[67].call(null, q)){ - if(Sx_types[67].call(null, converted_val)) + var q = Sx_runtime[2].call(null, cst, [0, match_val, lw]); + if(Sx_types[71].call(null, q)){ + if(Sx_types[71].call(null, converted_val)) var - r = Sx_runtime[83].call(null, converted_val), - e = [0, 1 - Sx_types[67].call(null, r)]; + r = Sx_runtime[84].call(null, converted_val), + e = [0, 1 - Sx_types[71].call(null, r)]; else var e = converted_val; - if(! Sx_types[67].call(null, e)) return make_cek_value(0, env, rest_k); + if(! Sx_types[71].call(null, e)) return make_cek_value(0, env, rest_k); var - body = Sx_runtime[25].call(null, frame, lr), - fenv = Sx_runtime[25].call(null, frame, ls), - s = Sx_runtime[33].call(null, body); - if(Sx_types[67].call(null, s)) return make_cek_value(0, fenv, rest_k); + body = Sx_runtime[26].call(null, frame, lx), + fenv = Sx_runtime[26].call(null, frame, ly), + s = Sx_runtime[34].call(null, body); + if(Sx_types[71].call(null, s)) return make_cek_value(0, fenv, rest_k); var - t = [0, Sx_runtime[24].call(null, body), lt], - u = Sx_runtime[1].call(null, cst, t); - if(Sx_types[67].call(null, u)) - return make_cek_state(Sx_runtime[14].call(null, body), fenv, rest_k); + t = [0, Sx_runtime[25].call(null, body), lz], + u = Sx_runtime[2].call(null, cst, t); + if(Sx_types[71].call(null, u)) + return make_cek_state(Sx_runtime[15].call(null, body), fenv, rest_k); var v = kont_push - (make_begin_frame(Sx_runtime[15].call(null, body), fenv), rest_k); - return make_cek_state(Sx_runtime[14].call(null, body), fenv, v); + (make_begin_frame(Sx_runtime[16].call(null, body), fenv), rest_k); + return make_cek_state(Sx_runtime[15].call(null, body), fenv, v); } - var w = Sx_runtime[1].call(null, cst, [0, match_val, lu]); - if(Sx_types[67].call(null, w)){ + var w = Sx_runtime[2].call(null, cst, [0, match_val, lA]); + if(Sx_types[71].call(null, w)){ var - remaining = Sx_runtime[25].call(null, frame, lv), - fenv$0 = Sx_runtime[25].call(null, frame, lw), - x = Sx_runtime[33].call(null, remaining); - if(Sx_types[67].call(null, x)) + remaining = Sx_runtime[26].call(null, frame, lB), + fenv$0 = Sx_runtime[26].call(null, frame, lC), + x = Sx_runtime[34].call(null, remaining); + if(Sx_types[71].call(null, x)) return make_cek_value(converted_val, fenv$0, rest_k); var - y = [0, Sx_runtime[24].call(null, remaining), lx], - z = Sx_runtime[1].call(null, cst, y); - if(Sx_types[67].call(null, z)) + y = [0, Sx_runtime[25].call(null, remaining), lD], + z = Sx_runtime[2].call(null, cst, y); + if(Sx_types[71].call(null, z)) return make_cek_state - (Sx_runtime[14].call(null, remaining), fenv$0, rest_k); + (Sx_runtime[15].call(null, remaining), fenv$0, rest_k); var A = kont_push - (make_begin_frame(Sx_runtime[15].call(null, remaining), fenv$0), + (make_begin_frame(Sx_runtime[16].call(null, remaining), fenv$0), rest_k); - return make_cek_state(Sx_runtime[14].call(null, remaining), fenv$0, A); + return make_cek_state(Sx_runtime[15].call(null, remaining), fenv$0, A); } - var B = Sx_runtime[1].call(null, cst, [0, match_val, ly]); - if(Sx_types[67].call(null, B)){ + var B = Sx_runtime[2].call(null, cst, [0, match_val, lE]); + if(Sx_types[71].call(null, B)){ var - name = Sx_runtime[25].call(null, frame, lz), - remaining$0 = Sx_runtime[25].call(null, frame, lA), - body$0 = Sx_runtime[25].call(null, frame, lB), - local = Sx_runtime[25].call(null, frame, lC), - C = Sx_runtime[3].call(null, name); - Sx_runtime[77].call(null, local, C, converted_val); - var D = Sx_runtime[33].call(null, remaining$0); - if(Sx_types[67].call(null, D)) + name = Sx_runtime[26].call(null, frame, lF), + remaining$0 = Sx_runtime[26].call(null, frame, lG), + body$0 = Sx_runtime[26].call(null, frame, lH), + local = Sx_runtime[26].call(null, frame, lI), + C = Sx_runtime[4].call(null, name); + Sx_runtime[78].call(null, local, C, converted_val); + var D = Sx_runtime[34].call(null, remaining$0); + if(Sx_types[71].call(null, D)) return step_sf_begin(body$0, local, rest_k); var - next_binding = Sx_runtime[14].call(null, remaining$0), - E = Sx_runtime[14].call(null, next_binding), - F = [0, Sx_runtime[73].call(null, E), lD], - G = Sx_runtime[1].call(null, cst, F); - if(Sx_types[67].call(null, G)) + next_binding = Sx_runtime[15].call(null, remaining$0), + E = Sx_runtime[15].call(null, next_binding), + F = [0, Sx_runtime[74].call(null, E), lJ], + G = Sx_runtime[2].call(null, cst, F); + if(Sx_types[71].call(null, G)) var - H = Sx_runtime[14].call(null, next_binding), - vname = Sx_types[68].call(null, H); + H = Sx_runtime[15].call(null, next_binding), + vname = Sx_types[72].call(null, H); else - var vname = Sx_runtime[14].call(null, next_binding); + var vname = Sx_runtime[15].call(null, next_binding); var I = kont_push (make_let_frame - (vname, Sx_runtime[15].call(null, remaining$0), body$0, local), + (vname, Sx_runtime[16].call(null, remaining$0), body$0, local), rest_k); return make_cek_state - (Sx_runtime[17].call(null, next_binding, lE), local, I); + (Sx_runtime[18].call(null, next_binding, lK), local, I); } - var J = Sx_runtime[1].call(null, cst, [0, match_val, lF]); - if(Sx_types[67].call(null, J)){ + var J = Sx_runtime[2].call(null, cst, [0, match_val, lL]); + if(Sx_types[71].call(null, J)){ var - name$0 = Sx_runtime[25].call(null, frame, lG), - fenv$1 = Sx_runtime[25].call(null, frame, lH), - has_effects = Sx_runtime[25].call(null, frame, lI), - effect_list = Sx_runtime[25].call(null, frame, lJ), - and = Sx_runtime[85].call(null, converted_val); - if(Sx_types[67].call(null, and)) + name$0 = Sx_runtime[26].call(null, frame, lM), + fenv$1 = Sx_runtime[26].call(null, frame, lN), + has_effects = Sx_runtime[26].call(null, frame, lO), + effect_list = Sx_runtime[26].call(null, frame, lP), + and = Sx_runtime[86].call(null, converted_val); + if(Sx_types[71].call(null, and)) var - K = Sx_types[73].call(null, converted_val), - g = Sx_runtime[83].call(null, K); + K = Sx_types[77].call(null, converted_val), + g = Sx_runtime[84].call(null, K); else var g = and; - if(Sx_types[67].call(null, g)){ - var L = Sx_runtime[3].call(null, name$0); - Sx_runtime[82].call(null, converted_val, L); + if(Sx_types[71].call(null, g)){ + var L = Sx_runtime[4].call(null, name$0); + Sx_runtime[83].call(null, converted_val, L); } - var M = Sx_runtime[3].call(null, name$0); - Sx_runtime[77].call(null, fenv$1, M, converted_val); - if(Sx_types[67].call(null, has_effects)){ + var M = Sx_runtime[4].call(null, name$0); + Sx_runtime[78].call(null, fenv$1, M, converted_val); + if(Sx_types[71].call(null, has_effects)){ var - N = Sx_runtime[5].call(null, effect_list), + N = Sx_runtime[6].call(null, effect_list), effect_names = [6, Stdlib_List[20].call (null, function(e){ var - a = [0, Sx_runtime[73].call(null, e), lK], - b = Sx_runtime[1].call(null, cst, a); - return Sx_types[67].call(null, b) - ? Sx_types[68].call(null, e) + a = [0, Sx_runtime[74].call(null, e), lQ], + b = Sx_runtime[2].call(null, cst, a); + return Sx_types[71].call(null, b) + ? Sx_types[72].call(null, e) : e; }, N)], - O = Sx_runtime[75].call(null, fenv$1, lL), + O = Sx_runtime[76].call(null, fenv$1, lR), effect_anns = - Sx_types[67].call(null, O) - ? Sx_runtime[76].call(null, fenv$1, lM) + Sx_types[71].call(null, O) + ? Sx_runtime[77].call(null, fenv$1, lS) : [7, Stdlib_Hashtbl[1].call(null, 0, 0)]; - Sx_runtime[11].call(null, effect_anns, name$0, effect_names); - var P = Sx_runtime[3].call(null, lN); - Sx_runtime[77].call(null, fenv$1, P, effect_anns); + Sx_runtime[12].call(null, effect_anns, name$0, effect_names); + var P = Sx_runtime[4].call(null, lT); + Sx_runtime[78].call(null, fenv$1, P, effect_anns); } return make_cek_value(converted_val, fenv$1, rest_k); } - var Q = Sx_runtime[1].call(null, cst, [0, match_val, lO]); - if(Sx_types[67].call(null, Q)){ + var Q = Sx_runtime[2].call(null, cst, [0, match_val, lU]); + if(Sx_types[71].call(null, Q)){ var - name$1 = Sx_runtime[25].call(null, frame, lP), - fenv$2 = Sx_runtime[25].call(null, frame, lQ), - and$0 = Sx_runtime[85].call(null, converted_val); - if(Sx_types[67].call(null, and$0)) + name$1 = Sx_runtime[26].call(null, frame, lV), + fenv$2 = Sx_runtime[26].call(null, frame, lW), + and$0 = Sx_runtime[86].call(null, converted_val); + if(Sx_types[71].call(null, and$0)) var - R = Sx_types[73].call(null, converted_val), - h = Sx_runtime[83].call(null, R); + R = Sx_types[77].call(null, converted_val), + h = Sx_runtime[84].call(null, R); else var h = and$0; - if(Sx_types[67].call(null, h)){ - var S = Sx_runtime[3].call(null, name$1); - Sx_runtime[82].call(null, converted_val, S); + if(Sx_types[71].call(null, h)){ + var S = Sx_runtime[4].call(null, name$1); + Sx_runtime[83].call(null, converted_val, S); } - var T = Sx_runtime[3].call(null, name$1); - Sx_runtime[77].call(null, fenv$2, T, converted_val); + var T = Sx_runtime[4].call(null, name$1); + Sx_runtime[78].call(null, fenv$2, T, converted_val); return make_cek_value(converted_val, fenv$2, rest_k); } - var U = Sx_runtime[1].call(null, cst, [0, match_val, lR]); - if(Sx_types[67].call(null, U)){ + var U = Sx_runtime[2].call(null, cst, [0, match_val, lX]); + if(Sx_types[71].call(null, U)){ var - name$2 = Sx_runtime[25].call(null, frame, lS), - fenv$3 = Sx_runtime[25].call(null, frame, lT), - V = Sx_runtime[3].call(null, name$2); - Sx_runtime[78].call(null, fenv$3, V, converted_val); + name$2 = Sx_runtime[26].call(null, frame, lY), + fenv$3 = Sx_runtime[26].call(null, frame, lZ), + V = Sx_runtime[4].call(null, name$2); + Sx_runtime[79].call(null, fenv$3, V, converted_val); return make_cek_value(converted_val, env, rest_k); } - var W = Sx_runtime[1].call(null, cst, [0, match_val, lU]); - if(Sx_types[67].call(null, W)){ - var X = [0, 1 - Sx_types[67].call(null, converted_val)]; - if(Sx_types[67].call(null, X)) + var W = Sx_runtime[2].call(null, cst, [0, match_val, l0]); + if(Sx_types[71].call(null, W)){ + var X = [0, 1 - Sx_types[71].call(null, converted_val)]; + if(Sx_types[71].call(null, X)) return make_cek_value(converted_val, env, rest_k); var - remaining$1 = Sx_runtime[25].call(null, frame, lV), - Y = Sx_runtime[33].call(null, remaining$1); - if(Sx_types[67].call(null, Y)) + remaining$1 = Sx_runtime[26].call(null, frame, l1), + Y = Sx_runtime[34].call(null, remaining$1); + if(Sx_types[71].call(null, Y)) return make_cek_value(converted_val, env, rest_k); var - Z = [0, Sx_runtime[24].call(null, remaining$1), lW], - _ = Sx_runtime[1].call(null, cst, Z); - if(Sx_types[67].call(null, _)) + Z = [0, Sx_runtime[25].call(null, remaining$1), l2], + _ = Sx_runtime[2].call(null, cst, Z); + if(Sx_types[71].call(null, _)) var rest_k$0 = rest_k; else var - aa = Sx_runtime[25].call(null, frame, lY), + aa = Sx_runtime[26].call(null, frame, l4), rest_k$0 = kont_push - (make_and_frame(Sx_runtime[15].call(null, remaining$1), aa), rest_k); - var $ = Sx_runtime[25].call(null, frame, lX); + (make_and_frame(Sx_runtime[16].call(null, remaining$1), aa), rest_k); + var $ = Sx_runtime[26].call(null, frame, l3); return make_cek_state - (Sx_runtime[14].call(null, remaining$1), $, rest_k$0); + (Sx_runtime[15].call(null, remaining$1), $, rest_k$0); } - var ab = Sx_runtime[1].call(null, cst, [0, match_val, lZ]); - if(Sx_types[67].call(null, ab)){ - if(Sx_types[67].call(null, converted_val)) + var ab = Sx_runtime[2].call(null, cst, [0, match_val, l5]); + if(Sx_types[71].call(null, ab)){ + if(Sx_types[71].call(null, converted_val)) return make_cek_value(converted_val, env, rest_k); var - remaining$2 = Sx_runtime[25].call(null, frame, l0), - ac = Sx_runtime[33].call(null, remaining$2); - if(Sx_types[67].call(null, ac)) return make_cek_value(l1, env, rest_k); + remaining$2 = Sx_runtime[26].call(null, frame, l6), + ac = Sx_runtime[34].call(null, remaining$2); + if(Sx_types[71].call(null, ac)) return make_cek_value(l7, env, rest_k); var - ad = [0, Sx_runtime[24].call(null, remaining$2), l2], - ae = Sx_runtime[1].call(null, cst, ad); - if(Sx_types[67].call(null, ae)) + ad = [0, Sx_runtime[25].call(null, remaining$2), l8], + ae = Sx_runtime[2].call(null, cst, ad); + if(Sx_types[71].call(null, ae)) var rest_k$1 = rest_k; else var - ag = Sx_runtime[25].call(null, frame, l4), + ag = Sx_runtime[26].call(null, frame, l_), rest_k$1 = kont_push - (make_or_frame(Sx_runtime[15].call(null, remaining$2), ag), rest_k); - var af = Sx_runtime[25].call(null, frame, l3); + (make_or_frame(Sx_runtime[16].call(null, remaining$2), ag), rest_k); + var af = Sx_runtime[26].call(null, frame, l9); return make_cek_state - (Sx_runtime[14].call(null, remaining$2), af, rest_k$1); + (Sx_runtime[15].call(null, remaining$2), af, rest_k$1); } - var ah = Sx_runtime[1].call(null, cst, [0, match_val, l5]); - if(Sx_types[67].call(null, ah)){ + var ah = Sx_runtime[2].call(null, cst, [0, match_val, l$]); + if(Sx_types[71].call(null, ah)){ var - remaining$3 = Sx_runtime[25].call(null, frame, l6), - fenv$4 = Sx_runtime[25].call(null, frame, l7), - scheme_p = Sx_runtime[25].call(null, frame, l8); - if(! Sx_types[67].call(null, scheme_p)){ - if(Sx_types[67].call(null, converted_val)) + remaining$3 = Sx_runtime[26].call(null, frame, ma), + fenv$4 = Sx_runtime[26].call(null, frame, mb), + scheme_p = Sx_runtime[26].call(null, frame, mc); + if(! Sx_types[71].call(null, scheme_p)){ + if(Sx_types[71].call(null, converted_val)) return make_cek_state - (Sx_runtime[17].call(null, remaining$3, mg), fenv$4, rest_k); + (Sx_runtime[18].call(null, remaining$3, mm), fenv$4, rest_k); var aq = [0, remaining$3, - [0, mh, [0, Sx_runtime[24].call(null, remaining$3), 0]]], - next = Sx_runtime[1].call(null, cst_slice, aq), - ar = [0, Sx_runtime[24].call(null, next), mi], - as = Sx_runtime[1].call(null, cst$3, ar); - if(Sx_types[67].call(null, as)) + [0, mn, [0, Sx_runtime[25].call(null, remaining$3), 0]]], + next = Sx_runtime[2].call(null, cst_slice, aq), + ar = [0, Sx_runtime[25].call(null, next), mo], + as = Sx_runtime[2].call(null, cst$3, ar); + if(Sx_types[71].call(null, as)) return make_cek_value(0, fenv$4, rest_k); var - next_test$0 = Sx_runtime[14].call(null, next), + next_test$0 = Sx_runtime[15].call(null, next), at = is_else_clause(next_test$0); - return Sx_types[67].call(null, at) + return Sx_types[71].call(null, at) ? make_cek_state - (Sx_runtime[17].call(null, next, mj), fenv$4, rest_k) + (Sx_runtime[18].call(null, next, mp), fenv$4, rest_k) : make_cek_state (next_test$0, fenv$4, - kont_push(make_cond_frame(next, fenv$4, mk), rest_k)); + kont_push(make_cond_frame(next, fenv$4, mq), rest_k)); } - if(! Sx_types[67].call(null, converted_val)){ + if(! Sx_types[71].call(null, converted_val)){ var - next_clauses = Sx_runtime[15].call(null, remaining$3), - ao = Sx_runtime[33].call(null, next_clauses); - if(Sx_types[67].call(null, ao)) + next_clauses = Sx_runtime[16].call(null, remaining$3), + ao = Sx_runtime[34].call(null, next_clauses); + if(Sx_types[71].call(null, ao)) return make_cek_value(0, fenv$4, rest_k); var - next_clause = Sx_runtime[14].call(null, next_clauses), - next_test = Sx_runtime[14].call(null, next_clause), + next_clause = Sx_runtime[15].call(null, next_clauses), + next_test = Sx_runtime[15].call(null, next_clause), ap = is_else_clause(next_test); - return Sx_types[67].call(null, ap) + return Sx_types[71].call(null, ap) ? make_cek_state - (Sx_runtime[17].call(null, next_clause, me), fenv$4, rest_k) + (Sx_runtime[18].call(null, next_clause, mk), fenv$4, rest_k) : make_cek_state (next_test, fenv$4, - kont_push(make_cond_frame(next_clauses, fenv$4, mf), rest_k)); + kont_push(make_cond_frame(next_clauses, fenv$4, ml), rest_k)); } var - clause = Sx_runtime[14].call(null, remaining$3), - ai = [0, Sx_runtime[24].call(null, clause), l9], - and$1 = Sx_runtime[1].call(null, cst$0, ai); - if(Sx_types[67].call(null, and$1)){ + clause = Sx_runtime[15].call(null, remaining$3), + ai = [0, Sx_runtime[25].call(null, clause), md], + and$1 = Sx_runtime[2].call(null, cst$0, ai); + if(Sx_types[71].call(null, and$1)){ var - aj = Sx_runtime[17].call(null, clause, l$), - ak = [0, Sx_runtime[73].call(null, aj), l_], - and$2 = Sx_runtime[1].call(null, cst, ak); - if(Sx_types[67].call(null, and$2)) + aj = Sx_runtime[18].call(null, clause, mf), + ak = [0, Sx_runtime[74].call(null, aj), me], + and$2 = Sx_runtime[2].call(null, cst, ak); + if(Sx_types[71].call(null, and$2)) var - al = Sx_runtime[17].call(null, clause, mb), - am = [0, Sx_types[68].call(null, al), ma], - b = Sx_runtime[1].call(null, cst, am); + al = Sx_runtime[18].call(null, clause, mh), + am = [0, Sx_types[72].call(null, al), mg], + b = Sx_runtime[2].call(null, cst, am); else var b = and$2; } else var b = and$1; - if(! Sx_types[67].call(null, b)) + if(! Sx_types[71].call(null, b)) return make_cek_state - (Sx_runtime[17].call(null, clause, md), fenv$4, rest_k); + (Sx_runtime[18].call(null, clause, mj), fenv$4, rest_k); var an = kont_push(make_cond_arrow_frame(converted_val, fenv$4), rest_k); - return make_cek_state(Sx_runtime[17].call(null, clause, mc), fenv$4, an); + return make_cek_state(Sx_runtime[18].call(null, clause, mi), fenv$4, an); } - var au = Sx_runtime[1].call(null, cst, [0, match_val, ml]); - if(Sx_types[67].call(null, au)){ + var au = Sx_runtime[2].call(null, cst, [0, match_val, mr]); + if(Sx_types[71].call(null, au)){ var - match_val$0 = Sx_runtime[25].call(null, frame, mm), - remaining$4 = Sx_runtime[25].call(null, frame, mn), - fenv$5 = Sx_runtime[25].call(null, frame, mo), - av = Sx_runtime[83].call(null, match_val$0); - return Sx_types[67].call(null, av) + match_val$0 = Sx_runtime[26].call(null, frame, ms), + remaining$4 = Sx_runtime[26].call(null, frame, mt), + fenv$5 = Sx_runtime[26].call(null, frame, mu), + av = Sx_runtime[84].call(null, match_val$0); + return Sx_types[71].call(null, av) ? sf_case_step_loop(converted_val, remaining$4, fenv$5, rest_k) : sf_case_step_loop(match_val$0, remaining$4, fenv$5, rest_k); } - var aw = Sx_runtime[1].call(null, cst, [0, match_val, mp]); - if(Sx_types[67].call(null, aw)){ + var aw = Sx_runtime[2].call(null, cst, [0, match_val, mv]); + if(Sx_types[71].call(null, aw)){ var - remaining$5 = Sx_runtime[25].call(null, frame, mq), - fenv$6 = Sx_runtime[25].call(null, frame, mr), - mode = Sx_runtime[25].call(null, frame, ms), - bind_name = Sx_runtime[25].call(null, frame, mt), - ax = Sx_runtime[33].call(null, remaining$5); - if(Sx_types[67].call(null, ax)) + remaining$5 = Sx_runtime[26].call(null, frame, mw), + fenv$6 = Sx_runtime[26].call(null, frame, mx), + mode = Sx_runtime[26].call(null, frame, my), + bind_name = Sx_runtime[26].call(null, frame, mz), + ax = Sx_runtime[34].call(null, remaining$5); + if(Sx_types[71].call(null, ax)) return make_cek_value(converted_val, fenv$6, rest_k); var - form = Sx_runtime[14].call(null, remaining$5), - rest_forms = Sx_runtime[15].call(null, remaining$5), - ay = Sx_runtime[15].call(null, remaining$5), - az = Sx_runtime[33].call(null, ay), + form = Sx_runtime[15].call(null, remaining$5), + rest_forms = Sx_runtime[16].call(null, remaining$5), + ay = Sx_runtime[16].call(null, remaining$5), + az = Sx_runtime[34].call(null, ay), new_kont = - Sx_types[67].call(null, az) + Sx_types[71].call(null, az) ? rest_k : kont_push (make_thread_frame - (Sx_runtime[15].call(null, remaining$5), fenv$6, mode, bind_name), + (Sx_runtime[16].call(null, remaining$5), fenv$6, mode, bind_name), rest_k), - aA = Sx_runtime[1].call(null, cst, [0, mode, mu]); - if(Sx_types[67].call(null, aA)){ + aA = Sx_runtime[2].call(null, cst, [0, mode, mA]); + if(Sx_types[71].call(null, aA)){ var - new_env = Sx_runtime[80].call(null, fenv$6), - aB = Sx_types[68].call(null, bind_name), - aC = Sx_runtime[3].call(null, aB); - Sx_runtime[77].call(null, new_env, aC, converted_val); + new_env = Sx_runtime[81].call(null, fenv$6), + aB = Sx_types[72].call(null, bind_name), + aC = Sx_runtime[4].call(null, aB); + Sx_runtime[78].call(null, new_env, aC, converted_val); return make_cek_state(form, new_env, new_kont); } var - aD = [0, Sx_runtime[73].call(null, form), mv], - and$3 = Sx_runtime[1].call(null, cst, aD); - if(Sx_types[67].call(null, and$3)){ + aD = [0, Sx_runtime[74].call(null, form), mB], + and$3 = Sx_runtime[2].call(null, cst, aD); + if(Sx_types[71].call(null, and$3)){ var - aE = Sx_runtime[33].call(null, form), - and$4 = [0, 1 - Sx_types[67].call(null, aE)]; - if(Sx_types[67].call(null, and$4)){ + aE = Sx_runtime[34].call(null, form), + and$4 = [0, 1 - Sx_types[71].call(null, aE)]; + if(Sx_types[71].call(null, and$4)){ var - aF = Sx_runtime[14].call(null, form), - aG = [0, Sx_runtime[73].call(null, aF), mw], - and$5 = Sx_runtime[1].call(null, cst, aG); - if(Sx_types[67].call(null, and$5)) + aF = Sx_runtime[15].call(null, form), + aG = [0, Sx_runtime[74].call(null, aF), mC], + and$5 = Sx_runtime[2].call(null, cst, aG); + if(Sx_types[71].call(null, and$5)) var - aH = Sx_runtime[14].call(null, form), - a = ho_form_name_p(Sx_types[68].call(null, aH)); + aH = Sx_runtime[15].call(null, form), + a = ho_form_name_p(Sx_types[72].call(null, aH)); else var a = and$5; } @@ -57477,20 +64651,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and$3; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - aI = Sx_runtime[15].call(null, form), - aJ = Sx_runtime[18].call(null, [6, [0, mx, [0, converted_val, 0]]], aI), - aK = Sx_runtime[14].call(null, form); + aI = Sx_runtime[16].call(null, form), + aJ = Sx_runtime[19].call(null, [6, [0, mD, [0, converted_val, 0]]], aI), + aK = Sx_runtime[15].call(null, form); return make_cek_state - (Sx_runtime[18].call(null, aK, aJ), fenv$6, new_kont); + (Sx_runtime[19].call(null, aK, aJ), fenv$6, new_kont); } - var aL = Sx_runtime[1].call(null, cst, [0, mode, my]); - if(Sx_types[67].call(null, aL)){ + var aL = Sx_runtime[2].call(null, cst, [0, mode, mE]); + if(Sx_types[71].call(null, aL)){ var result = thread_insert_arg_last(form, converted_val, fenv$6), - aM = Sx_runtime[33].call(null, rest_forms); - return Sx_types[67].call(null, aM) + aM = Sx_runtime[34].call(null, rest_forms); + return Sx_types[71].call(null, aM) ? make_cek_value(result, fenv$6, rest_k) : make_cek_value (result, @@ -57501,8 +64675,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var result$0 = thread_insert_arg(form, converted_val, fenv$6), - aN = Sx_runtime[33].call(null, rest_forms); - return Sx_types[67].call(null, aN) + aN = Sx_runtime[34].call(null, rest_forms); + return Sx_types[71].call(null, aN) ? make_cek_value(result$0, fenv$6, rest_k) : make_cek_value (result$0, @@ -57511,234 +64685,234 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (make_thread_frame(rest_forms, fenv$6, mode, bind_name), rest_k)); } - var aO = Sx_runtime[1].call(null, cst, [0, match_val, mz]); - if(Sx_types[67].call(null, aO)){ + var aO = Sx_runtime[2].call(null, cst, [0, match_val, mF]); + if(Sx_types[71].call(null, aO)){ var - f = Sx_runtime[25].call(null, frame, mA), - evaled = Sx_runtime[25].call(null, frame, mB), - remaining$6 = Sx_runtime[25].call(null, frame, mC), - fenv$7 = Sx_runtime[25].call(null, frame, mD), - raw_args = Sx_runtime[25].call(null, frame, mE), - hname = Sx_runtime[25].call(null, frame, mF), - aP = Sx_runtime[83].call(null, f); - if(Sx_types[67].call(null, aP)){ + f = Sx_runtime[26].call(null, frame, mG), + evaled = Sx_runtime[26].call(null, frame, mH), + remaining$6 = Sx_runtime[26].call(null, frame, mI), + fenv$7 = Sx_runtime[26].call(null, frame, mJ), + raw_args = Sx_runtime[26].call(null, frame, mK), + hname = Sx_runtime[26].call(null, frame, mL), + aP = Sx_runtime[84].call(null, f); + if(Sx_types[71].call(null, aP)){ var and$6 = strict_ref[1], - hname$0 = Sx_types[67].call(null, and$6) ? hname : and$6; - if(Sx_types[67].call(null, hname$0)) strict_check_args(hname, mG); - var aQ = Sx_runtime[33].call(null, remaining$6); - if(Sx_types[67].call(null, aQ)) - return continue_with_call(converted_val, mH, fenv$7, raw_args, rest_k); + hname$0 = Sx_types[71].call(null, and$6) ? hname : and$6; + if(Sx_types[71].call(null, hname$0)) strict_check_args(hname, mM); + var aQ = Sx_runtime[34].call(null, remaining$6); + if(Sx_types[71].call(null, aQ)) + return continue_with_call(converted_val, mN, fenv$7, raw_args, rest_k); var aR = kont_push (make_arg_frame (converted_val, - mI, - Sx_runtime[15].call(null, remaining$6), + mO, + Sx_runtime[16].call(null, remaining$6), fenv$7, raw_args, hname), rest_k); return make_cek_state - (Sx_runtime[14].call(null, remaining$6), fenv$7, aR); + (Sx_runtime[15].call(null, remaining$6), fenv$7, aR); } var new_evaled = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, evaled, [0, [6, [0, converted_val, 0]], 0]]), - aS = Sx_runtime[33].call(null, remaining$6); - if(! Sx_types[67].call(null, aS)){ + aS = Sx_runtime[34].call(null, remaining$6); + if(! Sx_types[71].call(null, aS)){ var aT = kont_push (make_arg_frame (f, new_evaled, - Sx_runtime[15].call(null, remaining$6), + Sx_runtime[16].call(null, remaining$6), fenv$7, raw_args, hname), rest_k); return make_cek_state - (Sx_runtime[14].call(null, remaining$6), fenv$7, aT); + (Sx_runtime[15].call(null, remaining$6), fenv$7, aT); } var and$7 = strict_ref[1], - hname$1 = Sx_types[67].call(null, and$7) ? hname : and$7; - if(Sx_types[67].call(null, hname$1)) + hname$1 = Sx_types[71].call(null, and$7) ? hname : and$7; + if(Sx_types[71].call(null, hname$1)) strict_check_args(hname, new_evaled); return continue_with_call(f, new_evaled, fenv$7, raw_args, rest_k); } - var aU = Sx_runtime[1].call(null, cst, [0, match_val, mJ]); - if(Sx_types[67].call(null, aU)){ + var aU = Sx_runtime[2].call(null, cst, [0, match_val, mP]); + if(Sx_types[71].call(null, aU)){ var - remaining$7 = Sx_runtime[25].call(null, frame, mK), - results = Sx_runtime[25].call(null, frame, mL), - fenv$8 = Sx_runtime[25].call(null, frame, mM), - last_result = Sx_runtime[16].call(null, results), + remaining$7 = Sx_runtime[26].call(null, frame, mQ), + results = Sx_runtime[26].call(null, frame, mR), + fenv$8 = Sx_runtime[26].call(null, frame, mS), + last_result = Sx_runtime[17].call(null, results), aV = [0, [6, [0, [6, - [0, Sx_runtime[14].call(null, last_result), [0, converted_val, 0]]], + [0, Sx_runtime[15].call(null, last_result), [0, converted_val, 0]]], 0]], 0], - aW = [0, Sx_runtime[24].call(null, results), 0], + aW = [0, Sx_runtime[25].call(null, results), 0], aX = - [0, results, [0, mN, [0, Sx_runtime[1].call(null, cst_dec, aW), 0]]], - aY = [0, Sx_runtime[1].call(null, cst_slice, aX), aV], - completed = Sx_runtime[1].call(null, cst_append, aY), - aZ = Sx_runtime[33].call(null, remaining$7); - if(Sx_types[67].call(null, aZ)){ + [0, results, [0, mT, [0, Sx_runtime[2].call(null, cst_dec, aW), 0]]], + aY = [0, Sx_runtime[2].call(null, cst_slice, aX), aV], + completed = Sx_runtime[2].call(null, cst_append, aY), + aZ = Sx_runtime[34].call(null, remaining$7); + if(Sx_types[71].call(null, aZ)){ var d = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - a0 = Sx_runtime[5].call(null, completed); + a0 = Sx_runtime[6].call(null, completed); Stdlib_List[18].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, mO), - b = Sx_runtime[14].call(null, pair); - Sx_runtime[11].call(null, d, b, a); + a = Sx_runtime[18].call(null, pair, mU), + b = Sx_runtime[15].call(null, pair); + Sx_runtime[12].call(null, d, b, a); return 0; }, a0); return make_cek_value(d, fenv$8, rest_k); } var - next_entry = Sx_runtime[14].call(null, remaining$7), + next_entry = Sx_runtime[15].call(null, remaining$7), a1 = [0, completed, [0, - [6, [0, [6, [0, Sx_runtime[14].call(null, next_entry), 0]], 0]], + [6, [0, [6, [0, Sx_runtime[15].call(null, next_entry), 0]], 0]], 0]], - a2 = Sx_runtime[1].call(null, cst_append, a1), + a2 = Sx_runtime[2].call(null, cst_append, a1), a3 = kont_push - (make_dict_frame(Sx_runtime[15].call(null, remaining$7), a2, fenv$8), + (make_dict_frame(Sx_runtime[16].call(null, remaining$7), a2, fenv$8), rest_k); return make_cek_state - (Sx_runtime[17].call(null, next_entry, mP), fenv$8, a3); + (Sx_runtime[18].call(null, next_entry, mV), fenv$8, a3); } - var a4 = Sx_runtime[1].call(null, cst, [0, match_val, mQ]); - if(Sx_types[67].call(null, a4)){ + var a4 = Sx_runtime[2].call(null, cst, [0, match_val, mW]); + if(Sx_types[71].call(null, a4)){ var - ho_type = Sx_runtime[25].call(null, frame, mR), - remaining$8 = Sx_runtime[25].call(null, frame, mS), + ho_type = Sx_runtime[26].call(null, frame, mX), + remaining$8 = Sx_runtime[26].call(null, frame, mY), a5 = [0, - Sx_runtime[25].call(null, frame, mT), + Sx_runtime[26].call(null, frame, mZ), [0, [6, [0, converted_val, 0]], 0]], - evaled$0 = Sx_runtime[1].call(null, cst_append, a5), - fenv$9 = Sx_runtime[25].call(null, frame, mU), - a6 = Sx_runtime[33].call(null, remaining$8); - if(Sx_types[67].call(null, a6)) + evaled$0 = Sx_runtime[2].call(null, cst_append, a5), + fenv$9 = Sx_runtime[26].call(null, frame, m0), + a6 = Sx_runtime[34].call(null, remaining$8); + if(Sx_types[71].call(null, a6)) return ho_setup_dispatch(ho_type, evaled$0, fenv$9, rest_k); var a7 = kont_push (make_ho_setup_frame - (ho_type, Sx_runtime[15].call(null, remaining$8), evaled$0, fenv$9), + (ho_type, Sx_runtime[16].call(null, remaining$8), evaled$0, fenv$9), rest_k); - return make_cek_state(Sx_runtime[14].call(null, remaining$8), fenv$9, a7); + return make_cek_state(Sx_runtime[15].call(null, remaining$8), fenv$9, a7); } - var a8 = Sx_runtime[1].call(null, cst, [0, match_val, mV]); - if(Sx_types[67].call(null, a8)) + var a8 = Sx_runtime[2].call(null, cst, [0, match_val, m1]); + if(Sx_types[71].call(null, a8)) return make_cek_value(converted_val, env, rest_k); - var a9 = Sx_runtime[1].call(null, cst, [0, match_val, mW]); - if(Sx_types[67].call(null, a9)){ + var a9 = Sx_runtime[2].call(null, cst, [0, match_val, m2]); + if(Sx_types[71].call(null, a9)){ var - fenv$10 = Sx_runtime[25].call(null, frame, mX), - a_ = Sx_runtime[89].call(null, converted_val), - a$ = [0, 1 - Sx_types[67].call(null, a_)]; - if(Sx_types[67].call(null, a$)) + fenv$10 = Sx_runtime[26].call(null, frame, m3), + a_ = Sx_runtime[90].call(null, converted_val), + a$ = [0, 1 - Sx_types[71].call(null, a_)]; + if(Sx_types[71].call(null, a$)) return make_cek_value(converted_val, fenv$10, rest_k); var ba = has_reactive_reset_frame_p(rest_k); - if(Sx_types[67].call(null, ba)) + if(Sx_types[71].call(null, ba)) return reactive_shift_deref(converted_val, fenv$10, rest_k); - var ctx = Sx_runtime[71].call(null, mY, 0); - if(Sx_types[67].call(null, ctx)){ + var ctx = Sx_runtime[72].call(null, m4, 0); + if(Sx_types[71].call(null, ctx)){ var - dep_list = Sx_runtime[25].call(null, ctx, mZ), - notify_fn = Sx_runtime[25].call(null, ctx, m0), + dep_list = Sx_runtime[26].call(null, ctx, m5), + notify_fn = Sx_runtime[26].call(null, ctx, m6), bb = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_contains, [0, dep_list, [0, converted_val, 0]]), - bc = [0, 1 - Sx_types[67].call(null, bb)]; - if(Sx_types[67].call(null, bc)){ - Sx_runtime[10].call(null, dep_list, converted_val); - Sx_runtime[115].call(null, converted_val, notify_fn); + bc = [0, 1 - Sx_types[71].call(null, bb)]; + if(Sx_types[71].call(null, bc)){ + Sx_runtime[11].call(null, dep_list, converted_val); + Sx_runtime[117].call(null, converted_val, notify_fn); } } return make_cek_value - (Sx_runtime[114].call(null, converted_val), fenv$10, rest_k); + (Sx_runtime[116].call(null, converted_val), fenv$10, rest_k); } - var bd = Sx_runtime[1].call(null, cst, [0, match_val, m1]); - if(Sx_types[67].call(null, bd)){ + var bd = Sx_runtime[2].call(null, cst, [0, match_val, m7]); + if(Sx_types[71].call(null, bd)){ var - update_fn = Sx_runtime[25].call(null, frame, m2), - first_p = Sx_runtime[25].call(null, frame, m3), + update_fn = Sx_runtime[26].call(null, frame, m8), + first_p = Sx_runtime[26].call(null, frame, m9), be = - Sx_types[67].call(null, update_fn) - ? [0, 1 - Sx_types[67].call(null, first_p)] + Sx_types[71].call(null, update_fn) + ? [0, 1 - Sx_types[71].call(null, first_p)] : update_fn; - if(Sx_types[67].call(null, be)) + if(Sx_types[71].call(null, be)) cek_call(update_fn, [6, [0, converted_val, 0]]); return make_cek_value(converted_val, env, rest_k); } - var bf = Sx_runtime[1].call(null, cst, [0, match_val, m4]); - if(Sx_types[67].call(null, bf)){ + var bf = Sx_runtime[2].call(null, cst, [0, match_val, m_]); + if(Sx_types[71].call(null, bf)){ var - name$3 = Sx_runtime[25].call(null, frame, m5), - remaining$9 = Sx_runtime[25].call(null, frame, m6), - fenv$11 = Sx_runtime[25].call(null, frame, m7), - bg = Sx_runtime[33].call(null, remaining$9); - if(Sx_types[67].call(null, bg)){ - Sx_runtime[104].call(null, name$3); + name$3 = Sx_runtime[26].call(null, frame, m$), + remaining$9 = Sx_runtime[26].call(null, frame, na), + fenv$11 = Sx_runtime[26].call(null, frame, nb), + bg = Sx_runtime[34].call(null, remaining$9); + if(Sx_types[71].call(null, bg)){ + Sx_runtime[106].call(null, name$3); return make_cek_value(converted_val, fenv$11, rest_k); } var bh = kont_push (make_scope_frame - (name$3, Sx_runtime[15].call(null, remaining$9), fenv$11), + (name$3, Sx_runtime[16].call(null, remaining$9), fenv$11), rest_k); return make_cek_state - (Sx_runtime[14].call(null, remaining$9), fenv$11, bh); + (Sx_runtime[15].call(null, remaining$9), fenv$11, bh); } - var bi = Sx_runtime[1].call(null, cst, [0, match_val, m8]); - if(Sx_types[67].call(null, bi)){ + var bi = Sx_runtime[2].call(null, cst, [0, match_val, nc]); + if(Sx_types[71].call(null, bi)){ var - remaining$10 = Sx_runtime[25].call(null, frame, m9), - fenv$12 = Sx_runtime[25].call(null, frame, m_), - bj = Sx_runtime[33].call(null, remaining$10); - if(Sx_types[67].call(null, bj)){ - var bk = Sx_runtime[25].call(null, frame, m$); - Sx_runtime[104].call(null, bk); + remaining$10 = Sx_runtime[26].call(null, frame, nd), + fenv$12 = Sx_runtime[26].call(null, frame, ne), + bj = Sx_runtime[34].call(null, remaining$10); + if(Sx_types[71].call(null, bj)){ + var bk = Sx_runtime[26].call(null, frame, nf); + Sx_runtime[106].call(null, bk); return make_cek_value(converted_val, fenv$12, rest_k); } var - bl = Sx_runtime[15].call(null, remaining$10), - bm = Sx_runtime[25].call(null, frame, na), + bl = Sx_runtime[16].call(null, remaining$10), + bm = Sx_runtime[26].call(null, frame, ng), new_frame = make_provide_frame - (Sx_runtime[25].call(null, frame, nb), bm, bl, fenv$12), - bn = Sx_runtime[25].call(null, frame, nc); - Sx_runtime[11].call(null, new_frame, nd, bn); + (Sx_runtime[26].call(null, frame, nh), bm, bl, fenv$12), + bn = Sx_runtime[26].call(null, frame, ni); + Sx_runtime[12].call(null, new_frame, nj, bn); var bo = kont_push(new_frame, rest_k); return make_cek_state - (Sx_runtime[14].call(null, remaining$10), fenv$12, bo); + (Sx_runtime[15].call(null, remaining$10), fenv$12, bo); } - var bp = Sx_runtime[1].call(null, cst, [0, match_val, ne]); - if(Sx_types[67].call(null, bp)){ + var bp = Sx_runtime[2].call(null, cst, [0, match_val, nk]); + if(Sx_types[71].call(null, bp)){ var tracked = bind_tracking_ref[1], - body$1 = Sx_runtime[25].call(null, frame, nf), - fenv$13 = Sx_runtime[25].call(null, frame, ng), - prev = Sx_runtime[25].call(null, frame, nh); + body$1 = Sx_runtime[26].call(null, frame, nl), + fenv$13 = Sx_runtime[26].call(null, frame, nm), + prev = Sx_runtime[26].call(null, frame, nn); bind_tracking_ref[1] = prev; var subscriber = @@ -57746,274 +64920,274 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cst$9, function(args){ if(args && ! args[2]) - return cek_run(make_cek_state(body$1, fenv$13, ni)); + return cek_run(make_cek_state(body$1, fenv$13, no)); return 0; }], - bq = Sx_runtime[5].call(null, tracked); + bq = Sx_runtime[6].call(null, tracked); Stdlib_List[18].call (null, function(name){ var existing = - Sx_runtime[25].call(null, provide_subscribers_ref[1], name), - existing$0 = Sx_types[67].call(null, existing) ? existing : nj, + Sx_runtime[26].call(null, provide_subscribers_ref[1], name), + existing$0 = Sx_types[71].call(null, existing) ? existing : np, a = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, existing$0, [0, [6, [0, subscriber, 0]], 0]]); - Sx_runtime[11].call(null, provide_subscribers_ref[1], name, a); + Sx_runtime[12].call(null, provide_subscribers_ref[1], name, a); return 0; }, bq); return make_cek_value(converted_val, fenv$13, rest_k); } - var br = Sx_runtime[1].call(null, cst, [0, match_val, nk]); - if(Sx_types[67].call(null, br)){ + var br = Sx_runtime[2].call(null, cst, [0, match_val, nq]); + if(Sx_types[71].call(null, br)){ var - name$4 = Sx_runtime[25].call(null, frame, nl), - fenv$14 = Sx_runtime[25].call(null, frame, nm), + name$4 = Sx_runtime[26].call(null, frame, nr), + fenv$14 = Sx_runtime[26].call(null, frame, ns), target = kont_find_provide(rest_k, name$4), old_val = - Sx_types[67].call(null, target) - ? Sx_runtime[25].call(null, target, nn) - : Sx_runtime[105].call(null, name$4); - if(Sx_types[67].call(null, target)) - Sx_runtime[11].call(null, target, no, converted_val); - Sx_runtime[104].call(null, name$4); - Sx_runtime[103].call(null, name$4, converted_val); + Sx_types[71].call(null, target) + ? Sx_runtime[26].call(null, target, nt) + : Sx_runtime[107].call(null, name$4); + if(Sx_types[71].call(null, target)) + Sx_runtime[12].call(null, target, nu, converted_val); + Sx_runtime[106].call(null, name$4); + Sx_runtime[105].call(null, name$4, converted_val); var - bs = Sx_runtime[1].call(null, cst, [0, old_val, [0, converted_val, 0]]), - bt = [0, 1 - Sx_types[67].call(null, bs)]; - if(Sx_types[67].call(null, bt)) fire_provide_subscribers(name$4); + bs = Sx_runtime[2].call(null, cst, [0, old_val, [0, converted_val, 0]]), + bt = [0, 1 - Sx_types[71].call(null, bs)]; + if(Sx_types[71].call(null, bt)) fire_provide_subscribers(name$4); return make_cek_value(converted_val, fenv$14, rest_k); } - var bu = Sx_runtime[1].call(null, cst, [0, match_val, np]); - if(Sx_types[67].call(null, bu)){ + var bu = Sx_runtime[2].call(null, cst, [0, match_val, nv]); + if(Sx_types[71].call(null, bu)){ var - remaining$11 = Sx_runtime[25].call(null, frame, nq), - fenv$15 = Sx_runtime[25].call(null, frame, nr), - bv = Sx_runtime[33].call(null, remaining$11); - if(Sx_types[67].call(null, bv)) + remaining$11 = Sx_runtime[26].call(null, frame, nw), + fenv$15 = Sx_runtime[26].call(null, frame, nx), + bv = Sx_runtime[34].call(null, remaining$11); + if(Sx_types[71].call(null, bv)) return make_cek_value(converted_val, fenv$15, rest_k); var - bw = Sx_runtime[15].call(null, remaining$11), - bx = Sx_runtime[25].call(null, frame, ns), + bw = Sx_runtime[16].call(null, remaining$11), + bx = Sx_runtime[26].call(null, frame, ny), new_frame$0 = make_scope_acc_frame - (Sx_runtime[25].call(null, frame, nt), bx, bw, fenv$15), - by = Sx_runtime[25].call(null, frame, nu); - Sx_runtime[11].call(null, new_frame$0, nv, by); + (Sx_runtime[26].call(null, frame, nz), bx, bw, fenv$15), + by = Sx_runtime[26].call(null, frame, nA); + Sx_runtime[12].call(null, new_frame$0, nB, by); var bz = kont_push(new_frame$0, rest_k); return make_cek_state - (Sx_runtime[14].call(null, remaining$11), fenv$15, bz); + (Sx_runtime[15].call(null, remaining$11), fenv$15, bz); } - var bA = Sx_runtime[1].call(null, cst, [0, match_val, nw]); - if(Sx_types[67].call(null, bA)){ + var bA = Sx_runtime[2].call(null, cst, [0, match_val, nC]); + if(Sx_types[71].call(null, bA)){ var - f$0 = Sx_runtime[25].call(null, frame, nx), - remaining$12 = Sx_runtime[25].call(null, frame, ny), - results$0 = Sx_runtime[25].call(null, frame, nz), - indexed = Sx_runtime[25].call(null, frame, nA), - fenv$16 = Sx_runtime[25].call(null, frame, nB), + f$0 = Sx_runtime[26].call(null, frame, nD), + remaining$12 = Sx_runtime[26].call(null, frame, nE), + results$0 = Sx_runtime[26].call(null, frame, nF), + indexed = Sx_runtime[26].call(null, frame, nG), + fenv$16 = Sx_runtime[26].call(null, frame, nH), new_results = - Sx_runtime[1].call + Sx_runtime[2].call (null, cst_append, [0, results$0, [0, [6, [0, converted_val, 0]], 0]]), - bB = Sx_runtime[33].call(null, remaining$12); - if(Sx_types[67].call(null, bB)) + bB = Sx_runtime[34].call(null, remaining$12); + if(Sx_types[71].call(null, bB)) return make_cek_value(new_results, fenv$16, rest_k); - if(Sx_types[67].call(null, indexed)) + if(Sx_types[71].call(null, indexed)) var - bC = [0, Sx_runtime[14].call(null, remaining$12), 0], - call_args = [6, [0, Sx_runtime[24].call(null, new_results), bC]]; + bC = [0, Sx_runtime[15].call(null, remaining$12), 0], + call_args = [6, [0, Sx_runtime[25].call(null, new_results), bC]]; else - var call_args = [6, [0, Sx_runtime[14].call(null, remaining$12), 0]]; + var call_args = [6, [0, Sx_runtime[15].call(null, remaining$12), 0]]; var next_frame = - Sx_types[67].call(null, indexed) + Sx_types[71].call(null, indexed) ? make_map_indexed_frame (f$0, - Sx_runtime[15].call(null, remaining$12), + Sx_runtime[16].call(null, remaining$12), new_results, fenv$16) : make_map_frame (f$0, - Sx_runtime[15].call(null, remaining$12), + Sx_runtime[16].call(null, remaining$12), new_results, fenv$16); return continue_with_call - (f$0, call_args, fenv$16, nC, kont_push(next_frame, rest_k)); + (f$0, call_args, fenv$16, nI, kont_push(next_frame, rest_k)); } - var bD = Sx_runtime[1].call(null, cst, [0, match_val, nD]); - if(Sx_types[67].call(null, bD)){ + var bD = Sx_runtime[2].call(null, cst, [0, match_val, nJ]); + if(Sx_types[71].call(null, bD)){ var - f$1 = Sx_runtime[25].call(null, frame, nE), - remaining$13 = Sx_runtime[25].call(null, frame, nF), - results$1 = Sx_runtime[25].call(null, frame, nG), - current_item = Sx_runtime[25].call(null, frame, nH), - fenv$17 = Sx_runtime[25].call(null, frame, nI), + f$1 = Sx_runtime[26].call(null, frame, nK), + remaining$13 = Sx_runtime[26].call(null, frame, nL), + results$1 = Sx_runtime[26].call(null, frame, nM), + current_item = Sx_runtime[26].call(null, frame, nN), + fenv$17 = Sx_runtime[26].call(null, frame, nO), new_results$0 = - Sx_types[67].call(null, converted_val) + Sx_types[71].call(null, converted_val) ? Sx_runtime - [1].call + [2].call (null, cst_append, [0, results$1, [0, [6, [0, current_item, 0]], 0]]) : results$1, - bE = Sx_runtime[33].call(null, remaining$13); - if(Sx_types[67].call(null, bE)) + bE = Sx_runtime[34].call(null, remaining$13); + if(Sx_types[71].call(null, bE)) return make_cek_value(new_results$0, fenv$17, rest_k); var - bF = Sx_runtime[14].call(null, remaining$13), + bF = Sx_runtime[15].call(null, remaining$13), bG = kont_push (make_filter_frame (f$1, - Sx_runtime[15].call(null, remaining$13), + Sx_runtime[16].call(null, remaining$13), new_results$0, bF, fenv$17), rest_k); return continue_with_call (f$1, - [6, [0, Sx_runtime[14].call(null, remaining$13), 0]], + [6, [0, Sx_runtime[15].call(null, remaining$13), 0]], fenv$17, - nJ, + nP, bG); } - var bH = Sx_runtime[1].call(null, cst, [0, match_val, nK]); - if(Sx_types[67].call(null, bH)){ + var bH = Sx_runtime[2].call(null, cst, [0, match_val, nQ]); + if(Sx_types[71].call(null, bH)){ var - f$2 = Sx_runtime[25].call(null, frame, nL), - remaining$14 = Sx_runtime[25].call(null, frame, nM), - fenv$18 = Sx_runtime[25].call(null, frame, nN), - bI = Sx_runtime[33].call(null, remaining$14); - if(Sx_types[67].call(null, bI)) + f$2 = Sx_runtime[26].call(null, frame, nR), + remaining$14 = Sx_runtime[26].call(null, frame, nS), + fenv$18 = Sx_runtime[26].call(null, frame, nT), + bI = Sx_runtime[34].call(null, remaining$14); + if(Sx_types[71].call(null, bI)) return make_cek_value(converted_val, fenv$18, rest_k); var bJ = kont_push (make_reduce_frame - (f$2, Sx_runtime[15].call(null, remaining$14), fenv$18), + (f$2, Sx_runtime[16].call(null, remaining$14), fenv$18), rest_k); return continue_with_call (f$2, [6, [0, converted_val, - [0, Sx_runtime[14].call(null, remaining$14), 0]]], + [0, Sx_runtime[15].call(null, remaining$14), 0]]], fenv$18, - nO, + nU, bJ); } - var bK = Sx_runtime[1].call(null, cst, [0, match_val, nP]); - if(Sx_types[67].call(null, bK)){ + var bK = Sx_runtime[2].call(null, cst, [0, match_val, nV]); + if(Sx_types[71].call(null, bK)){ var - f$3 = Sx_runtime[25].call(null, frame, nQ), - remaining$15 = Sx_runtime[25].call(null, frame, nR), - fenv$19 = Sx_runtime[25].call(null, frame, nS), - bL = Sx_runtime[33].call(null, remaining$15); - if(Sx_types[67].call(null, bL)) + f$3 = Sx_runtime[26].call(null, frame, nW), + remaining$15 = Sx_runtime[26].call(null, frame, nX), + fenv$19 = Sx_runtime[26].call(null, frame, nY), + bL = Sx_runtime[34].call(null, remaining$15); + if(Sx_types[71].call(null, bL)) return make_cek_value(0, fenv$19, rest_k); var bM = kont_push (make_for_each_frame - (f$3, Sx_runtime[15].call(null, remaining$15), fenv$19), + (f$3, Sx_runtime[16].call(null, remaining$15), fenv$19), rest_k); return continue_with_call (f$3, - [6, [0, Sx_runtime[14].call(null, remaining$15), 0]], + [6, [0, Sx_runtime[15].call(null, remaining$15), 0]], fenv$19, - nT, + nZ, bM); } - var bN = Sx_runtime[1].call(null, cst, [0, match_val, nU]); - if(Sx_types[67].call(null, bN)){ + var bN = Sx_runtime[2].call(null, cst, [0, match_val, n0]); + if(Sx_types[71].call(null, bN)){ var - f$4 = Sx_runtime[25].call(null, frame, nV), - remaining$16 = Sx_runtime[25].call(null, frame, nW), - fenv$20 = Sx_runtime[25].call(null, frame, nX); - if(Sx_types[67].call(null, converted_val)) + f$4 = Sx_runtime[26].call(null, frame, n1), + remaining$16 = Sx_runtime[26].call(null, frame, n2), + fenv$20 = Sx_runtime[26].call(null, frame, n3); + if(Sx_types[71].call(null, converted_val)) return make_cek_value(converted_val, fenv$20, rest_k); - var bO = Sx_runtime[33].call(null, remaining$16); - if(Sx_types[67].call(null, bO)) - return make_cek_value(nY, fenv$20, rest_k); + var bO = Sx_runtime[34].call(null, remaining$16); + if(Sx_types[71].call(null, bO)) + return make_cek_value(n4, fenv$20, rest_k); var bP = kont_push (make_some_frame - (f$4, Sx_runtime[15].call(null, remaining$16), fenv$20), + (f$4, Sx_runtime[16].call(null, remaining$16), fenv$20), rest_k); return continue_with_call (f$4, - [6, [0, Sx_runtime[14].call(null, remaining$16), 0]], + [6, [0, Sx_runtime[15].call(null, remaining$16), 0]], fenv$20, - nZ, + n5, bP); } - var bQ = Sx_runtime[1].call(null, cst, [0, match_val, n0]); - if(Sx_types[67].call(null, bQ)){ + var bQ = Sx_runtime[2].call(null, cst, [0, match_val, n6]); + if(Sx_types[71].call(null, bQ)){ var - f$5 = Sx_runtime[25].call(null, frame, n1), - remaining$17 = Sx_runtime[25].call(null, frame, n2), - fenv$21 = Sx_runtime[25].call(null, frame, n3), - bR = [0, 1 - Sx_types[67].call(null, converted_val)]; - if(Sx_types[67].call(null, bR)) - return make_cek_value(n4, fenv$21, rest_k); - var bS = Sx_runtime[33].call(null, remaining$17); - if(Sx_types[67].call(null, bS)) - return make_cek_value(n5, fenv$21, rest_k); + f$5 = Sx_runtime[26].call(null, frame, n7), + remaining$17 = Sx_runtime[26].call(null, frame, n8), + fenv$21 = Sx_runtime[26].call(null, frame, n9), + bR = [0, 1 - Sx_types[71].call(null, converted_val)]; + if(Sx_types[71].call(null, bR)) + return make_cek_value(n_, fenv$21, rest_k); + var bS = Sx_runtime[34].call(null, remaining$17); + if(Sx_types[71].call(null, bS)) + return make_cek_value(n$, fenv$21, rest_k); var bT = kont_push (make_every_frame - (f$5, Sx_runtime[15].call(null, remaining$17), fenv$21), + (f$5, Sx_runtime[16].call(null, remaining$17), fenv$21), rest_k); return continue_with_call (f$5, - [6, [0, Sx_runtime[14].call(null, remaining$17), 0]], + [6, [0, Sx_runtime[15].call(null, remaining$17), 0]], fenv$21, - n6, + oa, bT); } - var bU = Sx_runtime[1].call(null, cst, [0, match_val, n7]); - if(Sx_types[67].call(null, bU)){ + var bU = Sx_runtime[2].call(null, cst, [0, match_val, ob]); + if(Sx_types[71].call(null, bU)){ var - remaining$18 = Sx_runtime[25].call(null, frame, n8), - fenv$22 = Sx_runtime[25].call(null, frame, n9), - bV = Sx_runtime[33].call(null, remaining$18); - if(Sx_types[67].call(null, bV)) + remaining$18 = Sx_runtime[26].call(null, frame, oc), + fenv$22 = Sx_runtime[26].call(null, frame, od), + bV = Sx_runtime[34].call(null, remaining$18); + if(Sx_types[71].call(null, bV)) return make_cek_value(converted_val, fenv$22, rest_k); var - bW = Sx_runtime[15].call(null, remaining$18), + bW = Sx_runtime[16].call(null, remaining$18), bX = kont_push (make_handler_frame - (Sx_runtime[25].call(null, frame, n_), bW, fenv$22), + (Sx_runtime[26].call(null, frame, oe), bW, fenv$22), rest_k); return make_cek_state - (Sx_runtime[14].call(null, remaining$18), fenv$22, bX); + (Sx_runtime[15].call(null, remaining$18), fenv$22, bX); } - var bY = Sx_runtime[1].call(null, cst, [0, match_val, n$]); - if(Sx_types[67].call(null, bY)) + var bY = Sx_runtime[2].call(null, cst, [0, match_val, of]); + if(Sx_types[71].call(null, bY)) return make_cek_value(converted_val, env, rest_k); - var bZ = Sx_runtime[1].call(null, cst, [0, match_val, oa]); - if(Sx_types[67].call(null, bZ)){ - var saved_kont = Sx_runtime[25].call(null, frame, ob); + var bZ = Sx_runtime[2].call(null, cst, [0, match_val, og]); + if(Sx_types[71].call(null, bZ)){ + var saved_kont = Sx_runtime[26].call(null, frame, oh); return make_cek_value - (converted_val, Sx_runtime[25].call(null, frame, oc), saved_kont); + (converted_val, Sx_runtime[26].call(null, frame, oi), saved_kont); } - var b0 = Sx_runtime[1].call(null, cst, [0, match_val, od]); - if(Sx_types[67].call(null, b0)) + var b0 = Sx_runtime[2].call(null, cst, [0, match_val, oj]); + if(Sx_types[71].call(null, b0)) return make_cek_value(converted_val, env, rest_k); - var b1 = Sx_runtime[1].call(null, cst, [0, match_val, oe]); - if(Sx_types[67].call(null, b1)){ + var b1 = Sx_runtime[2].call(null, cst, [0, match_val, ok]); + if(Sx_types[71].call(null, b1)){ var - test_value = Sx_runtime[25].call(null, frame, of), - fenv$23 = Sx_runtime[25].call(null, frame, og); + test_value = Sx_runtime[26].call(null, frame, ol), + fenv$23 = Sx_runtime[26].call(null, frame, om); return continue_with_call (converted_val, [6, [0, test_value, 0]], @@ -58021,48 +65195,48 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= [6, [0, test_value, 0]], rest_k); } - var b2 = Sx_runtime[1].call(null, cst, [0, match_val, oh]); - if(Sx_types[67].call(null, b2)){ + var b2 = Sx_runtime[2].call(null, cst, [0, match_val, on]); + if(Sx_types[71].call(null, b2)){ var - after_thunk = Sx_runtime[25].call(null, frame, oi), - winders_len = Sx_runtime[25].call(null, frame, oj), - fenv$24 = Sx_runtime[25].call(null, frame, ok), - b3 = [0, Sx_runtime[24].call(null, winders_ref[1]), [0, winders_len, 0]], - b4 = Sx_runtime[1].call(null, cst$0, b3); - if(Sx_types[67].call(null, b4)) - winders_ref[1] = Sx_runtime[15].call(null, winders_ref[1]); + after_thunk = Sx_runtime[26].call(null, frame, oo), + winders_len = Sx_runtime[26].call(null, frame, op), + fenv$24 = Sx_runtime[26].call(null, frame, oq), + b3 = [0, Sx_runtime[25].call(null, winders_ref[1]), [0, winders_len, 0]], + b4 = Sx_runtime[2].call(null, cst$0, b3); + if(Sx_types[71].call(null, b4)) + winders_ref[1] = Sx_runtime[16].call(null, winders_ref[1]); return continue_with_call (after_thunk, - om, + os, fenv$24, - ol, + or, kont_push (make_wind_return_frame(converted_val, fenv$24), rest_k)); } - var b5 = Sx_runtime[1].call(null, cst, [0, match_val, on]); - if(Sx_types[67].call(null, b5)){ - var b6 = Sx_runtime[25].call(null, frame, oo); - return make_cek_value(Sx_runtime[25].call(null, frame, op), b6, rest_k); + var b5 = Sx_runtime[2].call(null, cst, [0, match_val, ot]); + if(Sx_types[71].call(null, b5)){ + var b6 = Sx_runtime[26].call(null, frame, ou); + return make_cek_value(Sx_runtime[26].call(null, frame, ov), b6, rest_k); } - var b7 = Sx_runtime[1].call(null, cst, [0, match_val, oq]); - if(Sx_types[67].call(null, b7)){ + var b7 = Sx_runtime[2].call(null, cst, [0, match_val, ow]); + if(Sx_types[71].call(null, b7)){ var - fenv$25 = Sx_runtime[25].call(null, frame, or), - continuable_p = Sx_runtime[25].call(null, frame, os), + fenv$25 = Sx_runtime[26].call(null, frame, ox), + continuable_p = Sx_runtime[26].call(null, frame, oy), unwind_result = kont_unwind_to_handler(rest_k, converted_val), - handler_fn = Sx_runtime[25].call(null, unwind_result, ot), - unwound_k = Sx_runtime[25].call(null, unwind_result, ou), - b8 = Sx_runtime[83].call(null, handler_fn); - if(Sx_types[67].call(null, b8)){ + handler_fn = Sx_runtime[26].call(null, unwind_result, oz), + unwound_k = Sx_runtime[26].call(null, unwind_result, oA), + b8 = Sx_runtime[84].call(null, handler_fn); + if(Sx_types[71].call(null, b8)){ last_error_kont_ref[1] = unwound_k; var - b9 = [0, ov, [0, Sx_runtime[68].call(null, converted_val), 0]], - b_ = [3, Sx_runtime[4].call(null, b9)]; - return Sx_runtime[101].call(null, b_); + b9 = [0, oB, [0, Sx_runtime[69].call(null, converted_val), 0]], + b_ = [3, Sx_runtime[5].call(null, b9)]; + return Sx_runtime[102].call(null, b_); } var b$ = - Sx_types[67].call(null, continuable_p) + Sx_types[71].call(null, continuable_p) ? kont_push(make_signal_return_frame(fenv$25, unwound_k), unwound_k) : kont_push(make_raise_guard_frame(fenv$25, unwound_k), unwound_k); return continue_with_call @@ -58072,125 +65246,125 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= [6, [0, converted_val, 0]], b$); } - var ca = Sx_runtime[1].call(null, cst, [0, match_val, ow]); - if(Sx_types[67].call(null, ca)){ + var ca = Sx_runtime[2].call(null, cst, [0, match_val, oC]); + if(Sx_types[71].call(null, ca)){ last_error_kont_ref[1] = rest_k; - return Sx_runtime[101].call(null, ox); + return Sx_runtime[102].call(null, oD); } - var cb = Sx_runtime[1].call(null, cst, [0, match_val, oy]); - if(Sx_types[67].call(null, cb)){ + var cb = Sx_runtime[2].call(null, cst, [0, match_val, oE]); + if(Sx_types[71].call(null, cb)){ var - f$6 = Sx_runtime[25].call(null, frame, oz), - remaining$19 = Sx_runtime[25].call(null, frame, oA), + f$6 = Sx_runtime[26].call(null, frame, oF), + remaining$19 = Sx_runtime[26].call(null, frame, oG), cc = [0, - Sx_runtime[25].call(null, frame, oB), + Sx_runtime[26].call(null, frame, oH), [0, [6, [0, converted_val, 0]], 0]], - new_results$1 = Sx_runtime[1].call(null, cst_append, cc), - fenv$26 = Sx_runtime[25].call(null, frame, oC), - cd = Sx_runtime[5].call(null, remaining$19), + new_results$1 = Sx_runtime[2].call(null, cst_append, cc), + fenv$26 = Sx_runtime[26].call(null, frame, oI), + cd = Sx_runtime[6].call(null, remaining$19), ce = [0, Stdlib_List[34].call (null, function(c){ - var a = Sx_runtime[33].call(null, c); - return Sx_types[67].call(null, a); + var a = Sx_runtime[34].call(null, c); + return Sx_types[71].call(null, a); }, cd)]; - if(Sx_types[67].call(null, ce)) + if(Sx_types[71].call(null, ce)) return make_cek_value(new_results$1, fenv$26, rest_k); var - cf = Sx_runtime[5].call(null, remaining$19), + cf = Sx_runtime[6].call(null, remaining$19), heads = [6, Stdlib_List[20].call - (null, function(c){return Sx_runtime[14].call(null, c);}, cf)], - cg = Sx_runtime[5].call(null, remaining$19), + (null, function(c){return Sx_runtime[15].call(null, c);}, cf)], + cg = Sx_runtime[6].call(null, remaining$19), tails = [6, Stdlib_List[20].call - (null, function(c){return Sx_runtime[15].call(null, c);}, cg)]; + (null, function(c){return Sx_runtime[16].call(null, c);}, cg)]; return continue_with_call (f$6, heads, fenv$26, - oD, + oJ, kont_push (make_multi_map_frame(f$6, tails, new_results$1, fenv$26), rest_k)); } - var ch = Sx_runtime[1].call(null, cst, [0, match_val, oE]); - if(Sx_types[67].call(null, ch)){ + var ch = Sx_runtime[2].call(null, cst, [0, match_val, oK]); + if(Sx_types[71].call(null, ch)){ var - ci = Sx_runtime[24].call(null, winders_ref[1]), - k = Sx_runtime[98].call(null, rest_k, ci); + ci = Sx_runtime[25].call(null, winders_ref[1]), + k = Sx_runtime[99].call(null, rest_k, ci); return continue_with_call (converted_val, [6, [0, k, 0]], - Sx_runtime[25].call(null, frame, oF), + Sx_runtime[26].call(null, frame, oL), [6, [0, k, 0]], rest_k); } - var cj = Sx_runtime[1].call(null, cst, [0, match_val, oG]); - if(Sx_types[67].call(null, cj)){ + var cj = Sx_runtime[2].call(null, cst, [0, match_val, oM]); + if(Sx_types[71].call(null, cj)){ var - resume_fn = Sx_runtime[25].call(null, frame, oH), + resume_fn = Sx_runtime[26].call(null, frame, oN), result$1 = - Sx_runtime[7].call(null, resume_fn, [6, [0, converted_val, 0]]), - and$8 = Sx_runtime[38].call(null, result$1), + Sx_runtime[8].call(null, resume_fn, [6, [0, converted_val, 0]]), + and$8 = Sx_runtime[39].call(null, result$1), ck = - Sx_types[67].call(null, and$8) - ? Sx_runtime[25].call(null, result$1, oI) + Sx_types[71].call(null, and$8) + ? Sx_runtime[26].call(null, result$1, oO) : and$8; - if(! Sx_types[67].call(null, ck)) + if(! Sx_types[71].call(null, ck)) return make_cek_value - (result$1, Sx_runtime[25].call(null, frame, oN), rest_k); + (result$1, Sx_runtime[26].call(null, frame, oT), rest_k); var - cl = Sx_runtime[25].call(null, frame, oJ), + cl = Sx_runtime[26].call(null, frame, oP), cm = kont_push - (make_vm_resume_frame(Sx_runtime[25].call(null, result$1, oK), cl), + (make_vm_resume_frame(Sx_runtime[26].call(null, result$1, oQ), cl), rest_k), - cn = Sx_runtime[25].call(null, frame, oL); + cn = Sx_runtime[26].call(null, frame, oR); return make_cek_suspended - (Sx_runtime[25].call(null, result$1, oM), cn, cm); + (Sx_runtime[26].call(null, result$1, oS), cn, cm); } - var co = Sx_runtime[1].call(null, cst, [0, match_val, oO]); - if(Sx_types[67].call(null, co)) + var co = Sx_runtime[2].call(null, cst, [0, match_val, oU]); + if(Sx_types[71].call(null, co)) return make_cek_suspended - (converted_val, Sx_runtime[25].call(null, frame, oP), rest_k); - var cp = Sx_runtime[1].call(null, cst, [0, match_val, oQ]); - if(Sx_types[67].call(null, cp)){ + (converted_val, Sx_runtime[26].call(null, frame, oV), rest_k); + var cp = Sx_runtime[2].call(null, cst, [0, match_val, oW]); + if(Sx_types[71].call(null, cp)){ var - import_set = Sx_runtime[25].call(null, frame, oR), - remaining_sets = Sx_runtime[25].call(null, frame, oS), - fenv$27 = Sx_runtime[25].call(null, frame, oT); + import_set = Sx_runtime[26].call(null, frame, oX), + remaining_sets = Sx_runtime[26].call(null, frame, oY), + fenv$27 = Sx_runtime[26].call(null, frame, oZ); bind_import_set(import_set, fenv$27); - var cq = Sx_runtime[33].call(null, remaining_sets); - return Sx_types[67].call(null, cq) + var cq = Sx_runtime[34].call(null, remaining_sets); + return Sx_types[71].call(null, cq) ? make_cek_value(0, fenv$27, rest_k) : step_sf_import(remaining_sets, fenv$27, rest_k); } - var cr = Sx_runtime[1].call(null, cst, [0, match_val, oU]); - if(! Sx_types[67].call(null, cr)){ + var cr = Sx_runtime[2].call(null, cst, [0, match_val, o0]); + if(! Sx_types[71].call(null, cr)){ last_error_kont_ref[1] = rest_k; var - cA = [3, Sx_runtime[4].call(null, [0, o3, [0, match_val, 0]])], - cB = Sx_runtime[2].call(null, cA); + cA = [3, Sx_runtime[5].call(null, [0, o9, [0, match_val, 0]])], + cB = Sx_runtime[3].call(null, cA); throw caml_maybe_attach_backtrace([0, Sx_types[9], cB], 1); } var - remaining$20 = Sx_runtime[25].call(null, frame, oV), - current_param = Sx_runtime[25].call(null, frame, oW), - results$2 = Sx_runtime[25].call(null, frame, oX), - body$2 = Sx_runtime[25].call(null, frame, oY), - fenv$28 = Sx_runtime[25].call(null, frame, oZ), - cs = Sx_runtime[83].call(null, current_param); - if(Sx_types[67].call(null, cs)){ + remaining$20 = Sx_runtime[26].call(null, frame, o1), + current_param = Sx_runtime[26].call(null, frame, o2), + results$2 = Sx_runtime[26].call(null, frame, o3), + body$2 = Sx_runtime[26].call(null, frame, o4), + fenv$28 = Sx_runtime[26].call(null, frame, o5), + cs = Sx_runtime[84].call(null, current_param); + if(Sx_types[71].call(null, cs)){ var - ct = Sx_runtime[14].call(null, remaining$20), - val_expr = Sx_runtime[17].call(null, ct, o0); + ct = Sx_runtime[15].call(null, remaining$20), + val_expr = Sx_runtime[18].call(null, ct, o6); return make_cek_state (val_expr, fenv$28, @@ -58208,21 +65382,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= [0, [6, [0, - Sx_types[102].call(null, current_param), + Sx_types[106].call(null, current_param), [0, converted_val, 0]]], 0]], 0]], - new_results$2 = Sx_runtime[1].call(null, cst_append, cu), - rest_bindings = Sx_runtime[15].call(null, remaining$20), - cv = Sx_runtime[33].call(null, rest_bindings); - if(Sx_types[67].call(null, cv)){ + new_results$2 = Sx_runtime[2].call(null, cst_append, cu), + rest_bindings = Sx_runtime[16].call(null, remaining$20), + cv = Sx_runtime[34].call(null, rest_bindings); + if(Sx_types[71].call(null, cv)){ var - cw = [0, Sx_runtime[24].call(null, body$2), o1], - cx = Sx_runtime[1].call(null, cst, cw), + cw = [0, Sx_runtime[25].call(null, body$2), o7], + cx = Sx_runtime[2].call(null, cst, cw), body_expr = - Sx_types[67].call(null, cx) - ? Sx_runtime[14].call(null, body$2) - : Sx_runtime[18].call(null, o2, body$2), + Sx_types[71].call(null, cx) + ? Sx_runtime[15].call(null, body$2) + : Sx_runtime[19].call(null, o8, body$2), provide_kont = kont_push_provides(new_results$2, fenv$28, rest_k); return make_cek_state(body_expr, fenv$28, provide_kont); } @@ -58232,72 +65406,72 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (make_parameterize_frame (rest_bindings, 0, new_results$2, body$2, fenv$28), rest_k), - cz = Sx_runtime[14].call(null, rest_bindings); - return make_cek_state(Sx_runtime[14].call(null, cz), fenv$28, cy); + cz = Sx_runtime[15].call(null, rest_bindings); + return make_cek_state(Sx_runtime[15].call(null, cz), fenv$28, cy); } var - o4 = [3, cst_value], - o5 = [3, "captured"], - o6 = [0, 0], - o7 = [3, "message"], - o8 = [3, cst_vm_suspended], - o9 = [3, cst_resume], - o_ = [3, cst_request], - o$ = [3, cst_args_got], - pa = [3, cst_expects], - pb = [3, cst_lambda], - pc = [2, 1.], - pd = [3, cst_vm_suspended], - pe = [3, cst_resume], - pf = [3, cst_request], - pg = [2, 1.], - ph = [3, cst_children], - pi = [3, "Not callable: "]; + o_ = [3, cst_value], + o$ = [3, "captured"], + pa = [0, 0], + pb = [3, "message"], + pc = [3, cst_vm_suspended], + pd = [3, cst_resume], + pe = [3, cst_request], + pf = [3, cst_args_got], + pg = [3, cst_expects], + ph = [3, cst_lambda], + pi = [2, 1.], + pj = [3, cst_vm_suspended], + pk = [3, cst_resume], + pl = [3, cst_request], + pm = [2, 1.], + pn = [3, cst_children], + po = [3, "Not callable: "]; function continue_with_call(f, args, env, raw_args, kont){ - var b = Sx_types[101].call(null, f); - if(Sx_types[67].call(null, b)){ + var b = Sx_types[105].call(null, f); + if(Sx_types[71].call(null, b)){ var - uid = Sx_types[102].call(null, f), + uid = Sx_types[106].call(null, f), frame = kont_find_provide(kont, uid), c = - Sx_types[67].call(null, frame) - ? Sx_runtime[25].call(null, frame, o4) - : Sx_types[103].call(null, f); + Sx_types[71].call(null, frame) + ? Sx_runtime[26].call(null, frame, o_) + : Sx_types[107].call(null, f); return make_cek_value(c, env, kont); } - var d = Sx_runtime[97].call(null, f); - if(Sx_types[67].call(null, d)){ + var d = Sx_runtime[98].call(null, f); + if(Sx_types[71].call(null, d)){ var - e = Sx_runtime[33].call(null, args), - arg = Sx_types[67].call(null, e) ? 0 : Sx_runtime[14].call(null, args), - captured = Sx_runtime[99].call(null, f), - w_len = Sx_runtime[100].call(null, f); + e = Sx_runtime[34].call(null, args), + arg = Sx_types[71].call(null, e) ? 0 : Sx_runtime[15].call(null, args), + captured = Sx_runtime[100].call(null, f), + w_len = Sx_runtime[101].call(null, f); wind_escape_to(w_len); return make_cek_value(arg, env, captured); } - var g = Sx_runtime[94].call(null, f); - if(Sx_types[67].call(null, g)){ + var g = Sx_runtime[95].call(null, f); + if(Sx_types[71].call(null, g)){ var - h = Sx_runtime[33].call(null, args), - arg$0 = Sx_types[67].call(null, h) ? 0 : Sx_runtime[14].call(null, args), - cont_data = Sx_runtime[96].call(null, f), - captured$0 = Sx_runtime[25].call(null, cont_data, o5), + h = Sx_runtime[34].call(null, args), + arg$0 = Sx_types[71].call(null, h) ? 0 : Sx_runtime[15].call(null, args), + cont_data = Sx_runtime[97].call(null, f), + captured$0 = Sx_runtime[26].call(null, cont_data, o$), result = cek_run(make_cek_value(arg$0, env, captured$0)); return make_cek_value(result, env, kont); } - var and = Sx_runtime[90].call(null, f); - if(Sx_types[67].call(null, and)){ + var and = Sx_runtime[91].call(null, f); + if(Sx_types[71].call(null, and)){ var - i = Sx_runtime[85].call(null, f), - and$0 = [0, 1 - Sx_types[67].call(null, i)]; - if(Sx_types[67].call(null, and$0)){ + i = Sx_runtime[86].call(null, f), + and$0 = [0, 1 - Sx_types[71].call(null, i)]; + if(Sx_types[71].call(null, and$0)){ var - j = Sx_runtime[86].call(null, f), - and$1 = [0, 1 - Sx_types[67].call(null, j)]; - if(Sx_types[67].call(null, and$1)) + j = Sx_runtime[87].call(null, f), + and$1 = [0, 1 - Sx_types[71].call(null, j)]; + if(Sx_types[71].call(null, and$1)) var - k = Sx_runtime[87].call(null, f), - a = [0, 1 - Sx_types[67].call(null, k)]; + k = Sx_runtime[88].call(null, f), + a = [0, 1 - Sx_types[71].call(null, k)]; else var a = and$1; } @@ -58306,179 +65480,179 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - result$0 = Sx_runtime[8].call(null, f, args), - l = [0, Sx_runtime[9].call(null, result$0)]; - if(Sx_types[67].call(null, l)){ - var m = kont_push(make_raise_eval_frame(env, o6), kont); - return make_cek_value(Sx_runtime[25].call(null, result$0, o7), env, m); + result$0 = Sx_runtime[9].call(null, f, args), + l = [0, Sx_runtime[10].call(null, result$0)]; + if(Sx_types[71].call(null, l)){ + var m = kont_push(make_raise_eval_frame(env, pa), kont); + return make_cek_value(Sx_runtime[26].call(null, result$0, pb), env, m); } var - and$2 = Sx_runtime[38].call(null, result$0), + and$2 = Sx_runtime[39].call(null, result$0), n = - Sx_types[67].call(null, and$2) - ? Sx_runtime[25].call(null, result$0, o8) + Sx_types[71].call(null, and$2) + ? Sx_runtime[26].call(null, result$0, pc) : and$2; - if(! Sx_types[67].call(null, n)) + if(! Sx_types[71].call(null, n)) return make_cek_value(result$0, env, kont); var o = kont_push - (make_vm_resume_frame(Sx_runtime[25].call(null, result$0, o9), env), + (make_vm_resume_frame(Sx_runtime[26].call(null, result$0, pd), env), kont); return make_cek_suspended - (Sx_runtime[25].call(null, result$0, o_), env, o); + (Sx_runtime[26].call(null, result$0, pe), env, o); } - var p = Sx_runtime[85].call(null, f); - if(! Sx_types[67].call(null, p)){ + var p = Sx_runtime[86].call(null, f); + if(! Sx_types[71].call(null, p)){ var - or$1 = Sx_runtime[86].call(null, f), + or$1 = Sx_runtime[87].call(null, f), or$2 = - Sx_types[67].call(null, or$1) ? or$1 : Sx_runtime[87].call(null, f); - if(! Sx_types[67].call(null, or$2)){ + Sx_types[71].call(null, or$1) ? or$1 : Sx_runtime[88].call(null, f); + if(! Sx_types[71].call(null, or$2)){ var - P = [0, pi, [0, Sx_runtime[68].call(null, f), 0]], - Q = [3, Sx_runtime[4].call(null, P)], - R = Sx_runtime[2].call(null, Q); + P = [0, po, [0, Sx_runtime[69].call(null, f), 0]], + Q = [3, Sx_runtime[5].call(null, P)], + R = Sx_runtime[3].call(null, Q); throw caml_maybe_attach_backtrace([0, Sx_types[9], R], 1); } var parsed = parse_keyword_args(raw_args, env), - kwargs = Sx_runtime[14].call(null, parsed), - children = Sx_runtime[17].call(null, parsed, pg), - I = Sx_types[81].call(null, f), - local$0 = Sx_runtime[81].call(null, I, env), - J = Sx_types[79].call(null, f), - K = Sx_runtime[5].call(null, J); + kwargs = Sx_runtime[15].call(null, parsed), + children = Sx_runtime[18].call(null, parsed, pm), + I = Sx_types[85].call(null, f), + local$0 = Sx_runtime[82].call(null, I, env), + J = Sx_types[83].call(null, f), + K = Sx_runtime[6].call(null, J); Stdlib_List[18].call (null, function(p){ var - or = Sx_runtime[56].call(null, kwargs, p), - or$0 = Sx_types[67].call(null, or) ? or : 0, - a = Sx_runtime[3].call(null, p); - Sx_runtime[77].call(null, local$0, a, or$0); + or = Sx_runtime[57].call(null, kwargs, p), + or$0 = Sx_types[71].call(null, or) ? or : 0, + a = Sx_runtime[4].call(null, p); + Sx_runtime[78].call(null, local$0, a, or$0); return 0; }, K); - var L = Sx_types[82].call(null, f); - if(Sx_types[67].call(null, L)){ - var M = Sx_runtime[3].call(null, ph); - Sx_runtime[77].call(null, local$0, M, children); + var L = Sx_types[86].call(null, f); + if(Sx_types[71].call(null, L)){ + var M = Sx_runtime[4].call(null, pn); + Sx_runtime[78].call(null, local$0, M, children); } var - N = Sx_types[76].call(null, f), + N = Sx_types[80].call(null, f), O = - kont_push(make_comp_trace_frame(Sx_types[75].call(null, f), N), kont); - return make_cek_state(Sx_types[80].call(null, f), local$0, O); + kont_push(make_comp_trace_frame(Sx_types[79].call(null, f), N), kont); + return make_cek_state(Sx_types[84].call(null, f), local$0, O); } var - params = Sx_types[70].call(null, f), - q = Sx_types[72].call(null, f), - local = Sx_runtime[81].call(null, q, env), + params = Sx_types[74].call(null, f), + q = Sx_types[76].call(null, f), + local = Sx_runtime[82].call(null, q, env), r = bind_lambda_params(params, args, local), - s = [0, 1 - Sx_types[67].call(null, r)]; - if(Sx_types[67].call(null, s)){ + s = [0, 1 - Sx_types[71].call(null, r)]; + if(Sx_types[71].call(null, s)){ var - t = [0, Sx_runtime[24].call(null, params), 0], - u = [0, Sx_runtime[24].call(null, args), t], - v = Sx_runtime[1].call(null, cst$0, u); - if(Sx_types[67].call(null, v)){ + t = [0, Sx_runtime[25].call(null, params), 0], + u = [0, Sx_runtime[25].call(null, args), t], + v = Sx_runtime[2].call(null, cst$0, u); + if(Sx_types[71].call(null, v)){ var - w = [0, o$, [0, Sx_runtime[24].call(null, args), 0]], - x = [0, pa, [0, Sx_runtime[24].call(null, params), w]], - or = Sx_types[73].call(null, f), - or$0 = Sx_types[67].call(null, or) ? or : pb, - y = [3, Sx_runtime[4].call(null, [0, or$0, x])], - z = Sx_runtime[2].call(null, y); + w = [0, pf, [0, Sx_runtime[25].call(null, args), 0]], + x = [0, pg, [0, Sx_runtime[25].call(null, params), w]], + or = Sx_types[77].call(null, f), + or$0 = Sx_types[71].call(null, or) ? or : ph, + y = [3, Sx_runtime[5].call(null, [0, or$0, x])], + z = Sx_runtime[3].call(null, y); throw caml_maybe_attach_backtrace([0, Sx_types[9], z], 1); } var - A = Sx_runtime[1].call(null, cst_zip, [0, params, [0, args, 0]]), - B = Sx_runtime[5].call(null, A); + A = Sx_runtime[2].call(null, cst_zip, [0, params, [0, args, 0]]), + B = Sx_runtime[6].call(null, A); Stdlib_List[18].call (null, function(pair){ var - a = Sx_runtime[17].call(null, pair, pc), - b = Sx_runtime[14].call(null, pair), - c = Sx_runtime[3].call(null, b); - Sx_runtime[77].call(null, local, c, a); + a = Sx_runtime[18].call(null, pair, pi), + b = Sx_runtime[15].call(null, pair), + c = Sx_runtime[4].call(null, b); + Sx_runtime[78].call(null, local, c, a); return 0; }, B); var - C = [0, params, [0, Sx_runtime[24].call(null, args), 0]], - D = Sx_runtime[1].call(null, cst_slice, C), - E = Sx_runtime[5].call(null, D); + C = [0, params, [0, Sx_runtime[25].call(null, args), 0]], + D = Sx_runtime[2].call(null, cst_slice, C), + E = Sx_runtime[6].call(null, D); Stdlib_List[18].call (null, function(p){ - var a = Sx_runtime[3].call(null, p); - Sx_runtime[77].call(null, local, a, 0); + var a = Sx_runtime[4].call(null, p); + Sx_runtime[78].call(null, local, a, 0); return 0; }, E); } var - jit_result = Sx_runtime[137].call(null, f, args), - F = Sx_runtime[136].call(null, jit_result); - if(Sx_types[67].call(null, F)) - return make_cek_state(Sx_types[71].call(null, f), local, kont); + jit_result = Sx_runtime[139].call(null, f, args), + F = Sx_runtime[138].call(null, jit_result); + if(Sx_types[71].call(null, F)) + return make_cek_state(Sx_types[75].call(null, f), local, kont); var - and$3 = Sx_runtime[38].call(null, jit_result), + and$3 = Sx_runtime[39].call(null, jit_result), G = - Sx_types[67].call(null, and$3) - ? Sx_runtime[25].call(null, jit_result, pd) + Sx_types[71].call(null, and$3) + ? Sx_runtime[26].call(null, jit_result, pj) : and$3; - if(! Sx_types[67].call(null, G)) + if(! Sx_types[71].call(null, G)) return make_cek_value(jit_result, local, kont); var H = kont_push - (make_vm_resume_frame(Sx_runtime[25].call(null, jit_result, pe), env), + (make_vm_resume_frame(Sx_runtime[26].call(null, jit_result, pk), env), kont); return make_cek_suspended - (Sx_runtime[25].call(null, jit_result, pf), env, H); + (Sx_runtime[26].call(null, jit_result, pl), env, H); } - var pj = [0, [2, 2.], 0], pk = [2, 1.], pl = [0, [2, 2.], 0]; + var pp = [0, [2, 2.], 0], pq = [2, 1.], pr = [0, [2, 2.], 0]; function sf_case_step_loop(match_val, clauses$1, env, kont){ var clauses = clauses$1; for(;;){ var - a = [0, Sx_runtime[24].call(null, clauses), pj], - b = Sx_runtime[1].call(null, cst$3, a); - if(Sx_types[67].call(null, b)) return make_cek_value(0, env, kont); + a = [0, Sx_runtime[25].call(null, clauses), pp], + b = Sx_runtime[2].call(null, cst$3, a); + if(Sx_types[71].call(null, b)) return make_cek_value(0, env, kont); var - test = Sx_runtime[14].call(null, clauses), - body = Sx_runtime[17].call(null, clauses, pk), + test = Sx_runtime[15].call(null, clauses), + body = Sx_runtime[18].call(null, clauses, pq), c = is_else_clause(test); - if(Sx_types[67].call(null, c)) return make_cek_state(body, env, kont); + if(Sx_types[71].call(null, c)) return make_cek_state(body, env, kont); var test_val = trampoline(eval_expr(test, env)), - d = Sx_runtime[1].call(null, cst, [0, match_val, [0, test_val, 0]]); - if(Sx_types[67].call(null, d)) return make_cek_state(body, env, kont); - var clauses$0 = Sx_runtime[1].call(null, cst_slice, [0, clauses, pl]); + d = Sx_runtime[2].call(null, cst, [0, match_val, [0, test_val, 0]]); + if(Sx_types[71].call(null, d)) return make_cek_state(body, env, kont); + var clauses$0 = Sx_runtime[2].call(null, cst_slice, [0, clauses, pr]); clauses = clauses$0; } } - var pm = [6, 0]; + var ps = [6, 0]; function eval_expr_cek(expr, env){ - return cek_run(make_cek_state(expr, env, pm)); + return cek_run(make_cek_state(expr, env, ps)); } function trampoline_cek(val){ - var a = Sx_runtime[84].call(null, val); - if(! Sx_types[67].call(null, a)) return val; - var b = Sx_types[89].call(null, val); - return eval_expr_cek(Sx_types[88].call(null, val), b); + var a = Sx_runtime[85].call(null, val); + if(! Sx_types[71].call(null, a)) return val; + var b = Sx_types[93].call(null, val); + return eval_expr_cek(Sx_types[92].call(null, val), b); } function make_coroutine(thunk){ return [23, [0, "coroutine", 0, 0, 0, 0, 0, 0, 0, 0, 0]]; } - var pn = [6, 0]; + var pt = [6, 0]; function eval_expr(expr, env){ - return cek_run(make_cek_state(expr, env, pn)); + return cek_run(make_cek_state(expr, env, pt)); } caml_update_dummy (custom_special_forms, [7, Stdlib_Hashtbl[1].call(null, 0, 0)]); @@ -58518,20 +65692,28 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = 0; } if(! a){ - var match$1 = cek_suspended_p(s[1]); + var match$2 = cek_suspended_p(s[1]); a: { - if(typeof match$1 !== "number" && 0 === match$1[0] && match$1[1]){var b = 1; break a;} - var b = 0; + if(typeof match$2 !== "number" && 0 === match$2[0] && match$2[1]){var c = 1; break a;} + var c = 0; } - if(! b){s[1] = cek_step(s[1]); continue;} + if(! c){s[1] = cek_step(s[1]); continue;} } var match$0 = cek_suspended_p(s[1]); - if(typeof match$0 !== "number" && 0 === match$0[0] && match$0[1]) - throw caml_maybe_attach_backtrace - ([0, Sx_types[9], cst_IO_suspension_in_non_IO_co], 1); - var c = cek_value(s[1]); - return c; + a: + { + if(typeof match$0 !== "number" && 0 === match$0[0] && match$0[1]){ + var match$1 = Sx_types[13][1]; + if(! match$1) + throw caml_maybe_attach_backtrace + ([0, Sx_types[9], cst_IO_suspension_in_non_IO_co], 1); + var hook = match$1[1], b = caml_call1(hook, s[1]); + break a; + } + var b = cek_value(s[1]); + } + return b; } } catch(exn$0){ @@ -58669,17 +65851,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return Stdlib[28].call(null, msg, a); } var - po = [0, 0], - pp = [0, 0], - pq = + pu = [0, 0], + pv = [0, 0], + pw = [0, [2, 0, [11, cst_expected, [4, 0, 0, 0, [11, cst_args_got, [4, 0, 0, 0, 0]]]]], "%s: expected %d args, got %d"], - pr = [0, 1], - ps = [0, 0], - pt = [0, 0]; + px = [0, 0], + py = [0, 0]; function sf_define_type(args, env_val){ a: { @@ -58691,16 +65872,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= type_name = Sx_types[35].call(null, type_sym), ctor_specs = Stdlib_List[7].call(null, items); function env_bind_v(k, v){ - Sx_runtime[77].call(null, env_val, [3, k], v); + Sx_runtime[78].call(null, env_val, [3, k], v); return 0; } - var - cst_adt_registry = "*adt-registry*", - a = Sx_runtime[75].call(null, env_val, [3, cst_adt_registry]); - if(1 - Sx_types[67].call(null, a)) + var a = Sx_runtime[76].call(null, env_val, [3, cst_adt_registry]); + if(1 - Sx_types[71].call(null, a)) env_bind_v(cst_adt_registry, [7, Stdlib_Hashtbl[1].call(null, 0, 8)]); var - registry = Sx_runtime[76].call(null, env_val, [3, cst_adt_registry]), + registry = Sx_runtime[77].call(null, env_val, [3, cst_adt_registry]), ctor_names = Stdlib_List[20].call (null, @@ -58720,34 +65899,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_Hashtbl[11].call(null, d, type_name, [6, ctor_names]); } var - cst_type = "_type", b = [15, Stdlib[28].call(null, type_name, cst$4), function(pargs){ if(pargs && ! pargs[2]){ var v = pargs[1]; - if(typeof v !== "number" && 7 === v[0]){ - var d = v[1], b = Stdlib_Hashtbl[9].call(null, d, cst_adt); - a: - if(b){ - var match = Stdlib_Hashtbl[7].call(null, d, cst_type); - if(match){ - var match$0 = match[1]; - if(typeof match$0 !== "number" && 3 === match$0[0]){ - var t = match$0[1], a = t === type_name ? 1 : 0; - break a; - } - } - var a = 0; - } - else - var a = b; - return [0, a]; + if(typeof v !== "number" && 38 === v[0]){ + var a = v[1]; + return [0, a[1] === type_name ? 1 : 0]; } - return pp; + return pv; } - return po; + return pu; }]; env_bind_v(Stdlib[28].call(null, type_name, cst$4), b); Stdlib_List[18].call @@ -58767,18 +65931,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= [15, cn, function(ctor_args){ - if(Stdlib_List[1].call(null, ctor_args) !== arity){ - var - a = Stdlib_List[1].call(null, ctor_args), - b = caml_call3(Stdlib_Printf[4].call(null, pq), cn, arity, a); - throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); - } - var d = Stdlib_Hashtbl[1].call(null, 0, 4); - Stdlib_Hashtbl[11].call(null, d, cst_adt, pr); - Stdlib_Hashtbl[11].call(null, d, cst_type, [3, type_name]); - Stdlib_Hashtbl[11].call(null, d, cst_ctor, [3, cn]); - Stdlib_Hashtbl[11].call(null, d, cst_fields, [6, ctor_args]); - return [7, d]; + if(Stdlib_List[1].call(null, ctor_args) === arity) + return [38, + [0, type_name, cn, Stdlib_Array[11].call(null, ctor_args)]]; + var + a = Stdlib_List[1].call(null, ctor_args), + b = caml_call3(Stdlib_Printf[4].call(null, pw), cn, arity, a); + throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); }]); var a = @@ -58787,25 +65946,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(pargs){ if(pargs && ! pargs[2]){ var v = pargs[1]; - if(typeof v !== "number" && 7 === v[0]){ - var d = v[1], b = Stdlib_Hashtbl[9].call(null, d, cst_adt); - a: - if(b){ - var match = Stdlib_Hashtbl[7].call(null, d, cst_ctor); - if(match){ - var match$0 = match[1]; - if(typeof match$0 !== "number" && 3 === match$0[0]){var c = match$0[1], a = c === cn ? 1 : 0; break a; - } - } - var a = 0; - } - else - var a = b; - return [0, a]; + if(typeof v !== "number" && 38 === v[0]){ + var a = v[1]; + return [0, a[2] === cn ? 1 : 0]; } - return pt; + return py; } - return ps; + return px; }]; env_bind_v(Stdlib[28].call(null, cn, cst$4), a); return Stdlib_List[19].call @@ -58819,40 +65966,27 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function(pargs){ if(pargs && ! pargs[2]){ var v = pargs[1]; - if(typeof v !== "number" && 7 === v[0]){ + if(typeof v !== "number" && 38 === v[0]){ + var a = v[1]; + if(idx < a[3].length - 1) + return runtime.caml_check_bound(a[3], idx)[idx + 1]; var - d = v[1], - match = Stdlib_Hashtbl[7].call(null, d, cst_fields); - if(match){ - var match$0 = match[1]; - if(typeof match$0 !== "number" && 6 === match$0[0]){ - var fs = match$0[1]; - if(idx < Stdlib_List[1].call(null, fs)) - return Stdlib_List[8].call(null, fs, idx); - var - k = Stdlib[28].call(null, fname, ": index out of bounds"), - l = Stdlib[28].call(null, cst$5, k), - m = Stdlib[28].call(null, cn, l); - throw caml_maybe_attach_backtrace([0, Sx_types[9], m], 1); - } - } - var - h = Stdlib[28].call(null, fname, ": not an ADT"), + h = Stdlib[28].call(null, fname, ": index out of bounds"), i = Stdlib[28].call(null, cst$5, h), j = Stdlib[28].call(null, cn, i); throw caml_maybe_attach_backtrace([0, Sx_types[9], j], 1); } var - e = Stdlib[28].call(null, fname, ": not a dict"), + e = Stdlib[28].call(null, fname, ": not an ADT"), f = Stdlib[28].call(null, cst$5, e), g = Stdlib[28].call(null, cn, f); throw caml_maybe_attach_backtrace([0, Sx_types[9], g], 1); } var - a = Stdlib[28].call(null, fname, ": expected 1 arg"), - b = Stdlib[28].call(null, cst$5, a), - c = Stdlib[28].call(null, cn, b); - throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); + b = Stdlib[28].call(null, fname, ": expected 1 arg"), + c = Stdlib[28].call(null, cst$5, b), + d = Stdlib[28].call(null, cn, c); + throw caml_maybe_attach_backtrace([0, Sx_types[9], d], 1); }], c = Stdlib[28].call(null, cst$5, fname); return env_bind_v(Stdlib[28].call(null, cn, c), b); @@ -58880,10 +66014,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }]); - var cst_list$0 = "_list", cst_values = "_values", pu = [0, 1]; + var cst_list$0 = "_list", cst_values = "_values", pz = [0, 1]; function make_values_dict(vs){ var d = Stdlib_Hashtbl[1].call(null, 0, 2); - Stdlib_Hashtbl[11].call(null, d, cst_values, pu); + Stdlib_Hashtbl[11].call(null, d, cst_values, pz); Stdlib_Hashtbl[11].call(null, d, cst_list$0, [6, vs]); return [7, d]; } @@ -58929,7 +66063,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= 1 < Stdlib_List[1].call(null, items) ? Stdlib_List[7].call(null, items) : 0, - local_env = Sx_runtime[80].call(null, env_val); + local_env = Sx_runtime[81].call(null, env_val); Stdlib_List[18].call (null, function(clause){ @@ -58971,7 +66105,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= idx < Stdlib_List[1].call(null, vs) ? Stdlib_List[8].call(null, vs, idx) : 0; - Sx_runtime[77].call(null, local_env, [3, n], v); + Sx_runtime[78].call(null, local_env, [3, n], v); return 0; }, names); @@ -59015,7 +66149,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= idx < Stdlib_List[1].call(null, vs) ? Stdlib_List[8].call(null, vs, idx) : 0; - Sx_runtime[77].call(null, env_val, [3, n], v); + Sx_runtime[78].call(null, env_val, [3, n], v); return 0; }, names); @@ -59056,19 +66190,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= cst_promise = "_promise", cst_forced = "forced", cst_thunk = "thunk", - pv = [0, 1], - pw = [0, 0], - px = [0, 1]; + pA = [0, 1], + pB = [0, 0], + pC = [0, 1]; function make_promise_dict(opt, thunk){ var iterative = opt ? opt[1] : 0, d = Stdlib_Hashtbl[1].call(null, 0, 4); - Stdlib_Hashtbl[11].call(null, d, cst_promise, pv); - Stdlib_Hashtbl[11].call(null, d, cst_forced, pw); + Stdlib_Hashtbl[11].call(null, d, cst_promise, pA); + Stdlib_Hashtbl[11].call(null, d, cst_forced, pB); Stdlib_Hashtbl[11].call(null, d, cst_thunk, thunk); Stdlib_Hashtbl[11].call(null, d, cst_value, 0); - if(iterative) Stdlib_Hashtbl[11].call(null, d, cst_iterative, px); + if(iterative) Stdlib_Hashtbl[11].call(null, d, cst_iterative, pC); return [7, d]; } - var py = [6, 0]; + var pD = [6, 0]; function sf_delay(args, env_val){ a: { @@ -59078,10 +66212,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var expr = 0; } - var thunk = Sx_types[42].call(null, py, expr, env_val); + var thunk = Sx_types[42].call(null, pD, expr, env_val); return make_promise_dict(0, thunk); } - var pz = [6, 0], pA = [0, 1]; + var pE = [6, 0], pF = [0, 1]; function sf_delay_force(args, env_val){ a: { @@ -59091,8 +66225,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var expr = 0; } - var thunk = Sx_types[42].call(null, pz, expr, env_val); - return make_promise_dict(pA, thunk); + var thunk = Sx_types[42].call(null, pE, expr, env_val); + return make_promise_dict(pF, thunk); } function is_promise(v){ if(typeof v !== "number" && 7 === v[0]){ @@ -59105,7 +66239,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; } - var pB = [6, 0], pC = [0, 1]; + var pG = [6, 0], pH = [0, 1]; function force_promise(p){ if(! is_promise(p)) return p; if(typeof p !== "number" && 7 === p[0]){ @@ -59122,7 +66256,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match$0 = Stdlib_Hashtbl[7].call(null, d, cst_thunk); if(match$0) var t = match$0[1], thunk = t; else var thunk = 0; var - result = cek_call(thunk, pB), + result = cek_call(thunk, pG), match$1 = Stdlib_Hashtbl[7].call(null, d, cst_iterative); a: { @@ -59137,7 +66271,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= iterative ? is_promise(result) ? force_promise(result) : result : result; - Stdlib_Hashtbl[11].call(null, d, cst_forced, pC); + Stdlib_Hashtbl[11].call(null, d, cst_forced, pH); Stdlib_Hashtbl[11].call(null, d, cst_value, final_val); return final_val; } @@ -59174,7 +66308,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; }]); runtime.caml_register_global - (1730, + (1734, [0, trampoline_fn, trampoline, @@ -59369,6 +66503,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= match_find_clause, match_pattern, step_sf_match, + match_check_exhaustiveness, step_sf_handler_bind, step_sf_restart_case, step_sf_signal, @@ -59436,14 +66571,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 22691 "../lib/.sx.objs/jsoo/default/sx.cma.js" -//# shape: Sx_vm:[N,N,N,F(1)*,N,F(1)*,F(2),F(1),F(1),F(1),F(1),F(1),F(1)*,F(2),N,N,N,N,N,F(1),F(1),N,F(3),F(1),F(6),F(3),F(3),F(2),F(3),F(1),F(2),F(2),F(2),F(1)*,F(2),F(1),F(1)*,F(2),F(1)] +//# 28169 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# shape: Sx_vm:[N,N,N,N,N,N,F(1)*,N,F(1)*,F(2),F(1),F(1),F(1),F(1),F(1),F(1)*,F(2),N,N,N,N,N,F(1),F(1),N,F(3),F(1),F(6),F(3),F(3),F(2),F(3),F(1),F(2),F(2),F(2),F(1)*,F(3),F(2),F(1),F(1),F(2),F(1),F(1)*,F(2),F(1)] (function (globalThis){ "use strict"; var runtime = globalThis.jsoo_runtime, caml_check_bound = runtime.caml_check_bound, + caml_fresh_oo_id = runtime.caml_fresh_oo_id, caml_make_vect = runtime.caml_make_vect, caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace, caml_ml_string_length = runtime.caml_ml_string_length, @@ -59482,8 +66618,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= dummy = 0, global_data = runtime.caml_get_global_data(), Stdlib_List = global_data.Stdlib__List, - Stdlib_Hashtbl = global_data.Stdlib__Hashtbl, Sx_types = global_data.Sx_types, + Stdlib_Hashtbl = global_data.Stdlib__Hashtbl, Stdlib_Queue = global_data.Stdlib__Queue, Stdlib = global_data.Stdlib, Sx_runtime = global_data.Sx_runtime, @@ -59494,7 +66630,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_Array = global_data.Stdlib__Array, Sx_parser = global_data.Sx_parser, Stdlib_Printexc = global_data.Stdlib__Printexc, - VmSuspended = [248, "Sx_vm.VmSuspended", runtime.caml_fresh_oo_id(0)]; + VmSuspended = [248, "Sx_vm.VmSuspended", caml_fresh_oo_id(0)], + Invalid_opcode = [248, "Sx_vm.Invalid_opcode", caml_fresh_oo_id(0)]; Sx_types[15][1] = function(exn){ if(exn[1] !== VmSuspended) return 0; @@ -59503,6 +66640,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= }; var jit_compile_ref = [0, function(a, param){return 0;}], + extension_dispatch_ref = + [0, + function(op, vm, frame){ + throw caml_maybe_attach_backtrace([0, Invalid_opcode, op], 1); + }], + extension_opcode_name_ref = [0, function(param){return 0;}], jit_failed_sentinel = [0, [0, -1, -1, 0, [0], [0], 0, 0], @@ -59556,7 +66699,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match = cl[3]; function a(args){ var - a = Stdlib_List[20].call(null, Sx_runtime[2], args), + a = Stdlib_List[20].call(null, Sx_runtime[3], args), b = Stdlib_String[7].call(null, ",", a), c = Stdlib[28].call(null, "VM_CLOSURE_CALL:", b); throw caml_maybe_attach_backtrace([0, Sx_types[9], c], 1); @@ -59915,7 +67058,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= globals); var result = - Sx_ref[241].call + Sx_ref[242].call (null, [6, [0, j, [0, [6, [0, i, [0, fn_expr, 0]]], 0]]], [20, compile_env]); @@ -59975,16 +67118,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= active_vm[1] = [0, create(vm[4])]; var b = [20, Sx_types[20].call(null, 0)], - state = Sx_ref[236].call(null, f, [6, a], b, [6, a], k), + state = Sx_ref[237].call(null, f, [6, a], b, [6, a], k), final = Sx_ref[156].call(null, state); active_vm[1] = saved_active; - var match = Sx_runtime[12].call(null, final, l); + var match = Sx_runtime[13].call(null, final, l); if (typeof match !== "number" && 3 === match[0] && match[1] === cst_io_suspended){ vm[5] = [0, final]; throw caml_maybe_attach_backtrace - ([0, VmSuspended, Sx_runtime[12].call(null, final, m), vm], 1); + ([0, VmSuspended, Sx_runtime[13].call(null, final, m), vm], 1); } return Sx_ref[18].call(null, final); } @@ -60009,19 +67152,47 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= push_closure_frame(vm, cl, args); var saved_frames = Stdlib_List[7].call(null, vm[3]); vm[3] = [0, Stdlib_List[6].call(null, vm[3]), 0]; - try{run(vm);} + try{ + run(vm); + if(saved_sp < vm[2]) + var a = vm[2] - 1 | 0, b = caml_check_bound(vm[1], a)[a + 1]; + else + var b = 0; + var result = b; + } catch(e$0){ var e = caml_wrap_exception(e$0); - if(e[1] === VmSuspended){ + if(e[1] !== VmSuspended){ + vm[3] = saved_frames; + vm[2] = saved_sp; + throw caml_maybe_attach_backtrace(e, 0); + } + var req = e[2], match$0 = Sx_types[12][1]; + if(! match$0){ vm[7] = [0, [0, saved_frames, saved_sp], vm[7]]; throw caml_maybe_attach_backtrace(e, 0); } - vm[3] = saved_frames; - vm[2] = saved_sp; - throw caml_maybe_attach_backtrace(e, 0); + var resolver = match$0[1], saved_reuse = vm[7]; + vm[7] = 0; + var req$0 = req; + for(;;){ + var r = caml_call2(resolver, req$0, 0); + try{var cb = resume_vm(vm, r);} + catch(exn$0){ + var exn = caml_wrap_exception(exn$0); + if(exn[1] !== VmSuspended) throw caml_maybe_attach_backtrace(exn, 0); + var req2 = exn[2]; + req$0 = req2; + continue; + } + vm[7] = saved_reuse; + var result = cb; + break; + } } vm[3] = saved_frames; - return pop(vm); + vm[2] = saved_sp; + return result; } function vm_call(vm, f, args){ if(typeof f !== "number") @@ -60036,7 +67207,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } if(0 === l[4]) return push(vm, cek_call_or_suspend(vm, f, [6, args])); l[6] = l[6] + 1 | 0; - if(Sx_types[43][1] <= l[6] && 0 < Sx_types[47][1]){ + if(Sx_types[43][1] <= l[6] && 0 < Sx_types[51][1]){ l[5] = [0, jit_failed_sentinel]; var match$0 = caml_call2(jit_compile_ref[1], l, vm[4]); if(! match$0){ @@ -60046,16 +67217,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cl$0 = match$0[1]; Sx_types[44][1]++; l[5] = [0, cl$0]; - Stdlib_Queue[3].call(null, [0, l[7], [8, l]], Sx_types[49]); + Stdlib_Queue[3].call(null, [0, l[7], [8, l]], Sx_types[53]); for(;;){ - var d = Sx_types[47][1]; - if(d >= Stdlib_Queue[14].call(null, Sx_types[49])) + var d = Sx_types[51][1]; + if(d >= Stdlib_Queue[14].call(null, Sx_types[53])) return push_closure_frame(vm, cl$0, args); - var match$1 = Stdlib_Queue[7].call(null, Sx_types[49])[2]; + var match$1 = Stdlib_Queue[7].call(null, Sx_types[53])[2]; if(typeof match$1 !== "number" && 8 === match$1[0]){ var ev_l = match$1[1]; ev_l[5] = 0; - Sx_types[48][1]++; + Sx_types[52][1]++; } } } @@ -60174,7 +67345,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var cl$7 = f[1]; return push_closure_frame(vm, cl$7, args); } var - a = Sx_runtime[2].call(null, f), + a = Sx_runtime[3].call(null, f), b = Stdlib[28].call(null, "VM: not callable: ", a); throw caml_maybe_attach_backtrace([0, Sx_types[9], b], 1); } @@ -60249,8 +67420,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= "VM: unknown opcode ", [4, 0, 0, 0, [11, cst_at_ip, [4, 0, 0, 0, 0]]]], "VM: unknown opcode %d at ip=%d"], - q = [1, 0], - r = + q = [0, 1], + r = [1, 0], + s = [0, [11, "VM: CONST index ", @@ -60260,9 +67432,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= 0, [11, " out of bounds (pool size ", [4, 0, 0, 0, [12, 41, 0]]]]], "VM: CONST index %d out of bounds (pool size %d)"], - s = [0, 1], - t = [0, 0], - u = + t = [0, 1], + u = [0, 0], + v = [0, [11, "VM: LOCAL_GET slot=", @@ -60274,21 +67446,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= " base=", [4, 0, 0, 0, [11, cst_sp, [4, 0, 0, 0, [11, " out of bounds", 0]]]]]]], "VM: LOCAL_GET slot=%d base=%d sp=%d out of bounds"], - v = + w = [0, [11, "VM: UPVALUE_GET idx=", [4, 0, 0, 0, [11, " out of bounds (have ", [4, 0, 0, 0, [12, 41, 0]]]]], "VM: UPVALUE_GET idx=%d out of bounds (have %d)"], - w = - [0, [11, "Unhandled exception: ", [2, 0, 0]], "Unhandled exception: %s"], x = + [0, [11, "Unhandled exception: ", [2, 0, 0]], "Unhandled exception: %s"], + y = [0, [11, "VM: CLOSURE idx ", [4, 0, 0, 0, [11, " >= consts ", [4, 0, 0, 0, 0]]]], "VM: CLOSURE idx %d >= consts %d"], - y = + z = [0, [2, 0, @@ -60313,10 +67485,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else var fn_name = cst; var - R = Stdlib_List[1].call(null, rest_frames), - S = vm[2], - T = frame[3]; - caml_call4(Stdlib_Printf[3].call(null, n), fn_name, T, S, R); + T = Stdlib_List[1].call(null, rest_frames), + U = vm[2], + V = frame[3]; + caml_call4(Stdlib_Printf[3].call(null, n), fn_name, V, U, T); var result = frame[3] < vm[2] ? pop(vm) : 0; vm[3] = rest_frames; vm[2] = frame[3]; @@ -60325,16 +67497,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else{ var saved_ip = frame[2], - B = frame[2], - op = caml_check_bound(bc, B)[B + 1]; + H = frame[2], + op = caml_check_bound(bc, H)[H + 1]; frame[2] = frame[2] + 1 | 0; vm_insn_count[1]++; - var C = 0 === (vm_insn_count[1] & 65535); - if(C) - var D = 0 < Sx_ref[3][1], E = D ? Sx_ref[3][1] < vm_insn_count[1] : D; + var I = 0 === (vm_insn_count[1] & 65535); + if(I) + var J = 0 < Sx_ref[3][1], K = J ? Sx_ref[3][1] < vm_insn_count[1] : J; else - var E = C; - if(E) + var K = I; + if(K) throw caml_maybe_attach_backtrace ([0, Sx_types[9], "TIMEOUT: step limit exceeded"], 1); try{ @@ -60367,93 +67539,231 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 32: var count = read_u8(frame), - Z = + $ = Stdlib_List[11].call (null, count, function(param){return pop(vm);}), - parts = Stdlib_List[10].call(null, Z), - _ = Stdlib_List[20].call(null, Sx_runtime[2], parts), - s$1 = Stdlib_String[7].call(null, cst$1, _); + parts = Stdlib_List[10].call(null, $), + aa = Stdlib_List[20].call(null, Sx_runtime[3], parts), + s$1 = Stdlib_String[7].call(null, cst$1, aa); push(vm, [3, s$1]); break a; case 48: var b$0 = pop(vm), a = pop(vm); b: { - if - (typeof a !== "number" - && 2 === a[0] && typeof b$0 !== "number" && 2 === b$0[0]){ - var y$0 = b$0[1], x$0 = a[1], F = [2, x$0 + y$0]; - break b; - } + if(typeof a !== "number") + switch(a[0]){ + case 1: + var x$0 = a[1]; + if(typeof b$0 !== "number") + switch(b$0[0]){ + case 1: + var y$0 = b$0[1], j = [1, x$0 + y$0 | 0]; break b; + case 2: + var y$1 = b$0[1], j = [2, x$0 + y$1]; break b; + } + break; + case 2: + var x$1 = a[1]; + if(typeof b$0 !== "number") + switch(b$0[0]){ + case 1: + var y$2 = b$0[1], j = [2, x$1 + y$2]; break b; + case 2: + var y$3 = b$0[1], j = [2, x$1 + y$3]; break b; + } + break; + } var - F = + j = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "+"), [0, a, [0, b$0, 0]]); } - push(vm, F); + push(vm, j); break a; case 49: var b$1 = pop(vm), a$0 = pop(vm); b: { - if - (typeof a$0 !== "number" - && 2 === a$0[0] && typeof b$1 !== "number" && 2 === b$1[0]){ - var y$1 = b$1[1], x$1 = a$0[1], G = [2, x$1 - y$1]; - break b; - } + if(typeof a$0 !== "number") + switch(a$0[0]){ + case 1: + var x$2 = a$0[1]; + if(typeof b$1 !== "number") + switch(b$1[0]){ + case 1: + var y$4 = b$1[1], m = [1, x$2 - y$4 | 0]; break b; + case 2: + var y$5 = b$1[1], m = [2, x$2 - y$5]; break b; + } + break; + case 2: + var x$3 = a$0[1]; + if(typeof b$1 !== "number") + switch(b$1[0]){ + case 1: + var y$6 = b$1[1], m = [2, x$3 - y$6]; break b; + case 2: + var y$7 = b$1[1], m = [2, x$3 - y$7]; break b; + } + break; + } var - G = + m = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], cst$0), [0, a$0, [0, b$1, 0]]); } - push(vm, G); + push(vm, m); break a; case 50: var b$2 = pop(vm), a$1 = pop(vm); b: { - if - (typeof a$1 !== "number" - && 2 === a$1[0] && typeof b$2 !== "number" && 2 === b$2[0]){ - var y$2 = b$2[1], x$2 = a$1[1], H = [2, x$2 * y$2]; - break b; - } + if(typeof a$1 !== "number") + switch(a$1[0]){ + case 1: + var x$4 = a$1[1]; + if(typeof b$2 !== "number") + switch(b$2[0]){ + case 1: + var y$8 = b$2[1], A = [1, runtime.caml_mul(x$4, y$8)]; + break b; + case 2: + var y$9 = b$2[1], A = [2, x$4 * y$9]; break b; + } + break; + case 2: + var x$5 = a$1[1]; + if(typeof b$2 !== "number") + switch(b$2[0]){ + case 1: + var y$10 = b$2[1], A = [2, x$5 * y$10]; break b; + case 2: + var y$11 = b$2[1], A = [2, x$5 * y$11]; break b; + } + break; + } var - H = + A = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "*"), [0, a$1, [0, b$2, 0]]); } - push(vm, H); + push(vm, A); break a; case 51: var b$3 = pop(vm), a$2 = pop(vm); b: { - if - (typeof a$2 !== "number" - && 2 === a$2[0] && typeof b$3 !== "number" && 2 === b$3[0]){ - var y$3 = b$3[1], x$3 = a$2[1], I = [2, x$3 / y$3]; - break b; - } + if(typeof a$2 !== "number") + switch(a$2[0]){ + case 1: + var x$6 = a$2[1]; + if(typeof b$3 !== "number") + switch(b$3[0]){ + case 1: + var y$12 = b$3[1]; + if(0 !== y$12 && 0 === runtime.caml_mod(x$6, y$12)){var B = [1, runtime.caml_div(x$6, y$12)]; break b; + } + break; + case 2: + var y$13 = b$3[1], B = [2, x$6 / y$13]; break b; + } + break; + case 2: + var x$7 = a$2[1]; + if(typeof b$3 !== "number") + switch(b$3[0]){ + case 1: + var y$14 = b$3[1], B = [2, x$7 / y$14]; break b; + case 2: + var y$15 = b$3[1], B = [2, x$7 / y$15]; break b; + } + break; + } var - I = + B = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "/"), [0, a$2, [0, b$3, 0]]); } - push(vm, I); + push(vm, B); break a; case 52: var b$4 = pop(vm), a$3 = pop(vm); - push - (vm, - caml_call1 - (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "="), - [0, a$3, [0, b$4, 0]])); + b: + { + if(typeof a$3 === "number"){ + if(0 === a$3 && typeof b$4 === "number" && ! b$4){var c = q; break b;} + } + else + switch(a$3[0]){ + case 0: + if(typeof b$4 !== "number" && 0 === b$4[0]){ + var + y$16 = b$4[1], + x$8 = a$3[1], + c = [0, x$8 === y$16 ? 1 : 0]; + break b; + } + break; + case 1: + var x$9 = a$3[1]; + if(typeof b$4 !== "number") + switch(b$4[0]){ + case 1: + var y$17 = b$4[1], c = [0, x$9 === y$17 ? 1 : 0]; break b; + case 2: + var y$18 = b$4[1], c = [0, x$9 === y$18 ? 1 : 0]; break b; + } + break; + case 2: + var x$10 = a$3[1]; + if(typeof b$4 !== "number") + switch(b$4[0]){ + case 1: + var y$19 = b$4[1], c = [0, x$10 === y$19 ? 1 : 0]; break b; + case 2: + var y$20 = b$4[1], c = [0, x$10 === y$20 ? 1 : 0]; break b; + } + break; + case 3: + if(typeof b$4 !== "number" && 3 === b$4[0]){ + var + y$21 = b$4[1], + x$11 = a$3[1], + c = [0, x$11 === y$21 ? 1 : 0]; + break b; + } + break; + case 4: + if(typeof b$4 !== "number" && 4 === b$4[0]){ + var + y$22 = b$4[1], + x$12 = a$3[1], + c = [0, x$12 === y$22 ? 1 : 0]; + break b; + } + break; + case 5: + if(typeof b$4 !== "number" && 5 === b$4[0]){ + var + y$23 = b$4[1], + x$13 = a$3[1], + c = [0, x$13 === y$23 ? 1 : 0]; + break b; + } + break; + } + var + c = + caml_call1 + (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "="), + [0, a$3, [0, b$4, 0]]); + } + push(vm, c); break a; case 53: var b$5 = pop(vm), a$4 = pop(vm); @@ -60461,29 +67771,39 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= { if(typeof a$4 !== "number") switch(a$4[0]){ + case 1: + var x$14 = a$4[1]; + if(typeof b$5 !== "number") + switch(b$5[0]){ + case 1: + var y$24 = b$5[1], g = [0, x$14 < y$24 ? 1 : 0]; break b; + case 2: + var y$25 = b$5[1], g = [0, x$14 < y$25 ? 1 : 0]; break b; + } + break; case 2: - if(typeof b$5 !== "number" && 2 === b$5[0]){ - var y$4 = b$5[1], x$4 = a$4[1], z = [0, x$4 < y$4 ? 1 : 0]; - break b; - } + var x$15 = a$4[1]; + if(typeof b$5 !== "number") + switch(b$5[0]){ + case 1: + var y$26 = b$5[1], g = [0, x$15 < y$26 ? 1 : 0]; break b; + case 2: + var y$27 = b$5[1], g = [0, x$15 < y$27 ? 1 : 0]; break b; + } break; case 3: if(typeof b$5 !== "number" && 3 === b$5[0]){ var - y$5 = b$5[1], - x$5 = a$4[1], - z = [0, runtime.caml_string_lessthan(x$5, y$5)]; + y$28 = b$5[1], + x$16 = a$4[1], + g = [0, runtime.caml_string_lessthan(x$16, y$28)]; break b; } break; } - var - z = - caml_call1 - (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "<"), - [0, a$4, [0, b$5, 0]]); + var g = Sx_runtime[2].call(null, "<", [0, a$4, [0, b$5, 0]]); } - push(vm, z); + push(vm, g); break a; case 54: var b$6 = pop(vm), a$5 = pop(vm); @@ -60491,33 +67811,43 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= { if(typeof a$5 !== "number") switch(a$5[0]){ + case 1: + var x$17 = a$5[1]; + if(typeof b$6 !== "number") + switch(b$6[0]){ + case 1: + var y$29 = b$6[1], h = [0, y$29 < x$17 ? 1 : 0]; break b; + case 2: + var y$30 = b$6[1], h = [0, y$30 < x$17 ? 1 : 0]; break b; + } + break; case 2: - if(typeof b$6 !== "number" && 2 === b$6[0]){ - var y$6 = b$6[1], x$6 = a$5[1], A = [0, y$6 < x$6 ? 1 : 0]; - break b; - } + var x$18 = a$5[1]; + if(typeof b$6 !== "number") + switch(b$6[0]){ + case 1: + var y$31 = b$6[1], h = [0, y$31 < x$18 ? 1 : 0]; break b; + case 2: + var y$32 = b$6[1], h = [0, y$32 < x$18 ? 1 : 0]; break b; + } break; case 3: if(typeof b$6 !== "number" && 3 === b$6[0]){ var - y$7 = b$6[1], - x$7 = a$5[1], - A = [0, runtime.caml_string_greaterthan(x$7, y$7)]; + y$33 = b$6[1], + x$19 = a$5[1], + h = [0, runtime.caml_string_greaterthan(x$19, y$33)]; break b; } break; } - var - A = - caml_call1 - (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], ">"), - [0, a$5, [0, b$6, 0]]); + var h = Sx_runtime[2].call(null, ">", [0, a$5, [0, b$6, 0]]); } - push(vm, A); + push(vm, h); break a; case 55: var v$1 = pop(vm); - push(vm, [0, 1 - Sx_types[67].call(null, v$1)]); + push(vm, [0, 1 - Sx_types[71].call(null, v$1)]); break a; case 56: var v$2 = pop(vm); @@ -60528,29 +67858,29 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof v$2 !== "number"){ switch(v$2[0]){ case 3: - var s$2 = v$2[1], c = [1, caml_ml_string_length(s$2)]; + var s$2 = v$2[1], C = [1, caml_ml_string_length(s$2)]; break b; case 6: var l = v$2[1]; break; case 7: - var d = v$2[1], c = [1, Stdlib_Hashtbl[15].call(null, d)]; + var d = v$2[1], C = [1, Stdlib_Hashtbl[15].call(null, d)]; break b; case 21: var l = v$2[1][1]; break; default: break c; } - var c = [1, Stdlib_List[1].call(null, l)]; + var C = [1, Stdlib_List[1].call(null, l)]; break b; } - if(0 === v$2){var c = q; break b;} + if(0 === v$2){var C = r; break b;} } var - c = + C = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "len"), [0, v$2, 0]); } - push(vm, c); + push(vm, C); break a; case 57: var v$3 = pop(vm); @@ -60562,21 +67892,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else switch(v$3[0]){ case 6: - var J = v$3[1]; if(J){var j = J[1]; break b;} break; + var L = v$3[1]; if(L){var F = L[1]; break b;} break; case 21: - var K = v$3[1][1]; if(K){var j = K[1]; break b;} break; + var M = v$3[1][1]; if(M){var F = M[1]; break b;} break; default: break c; } - var j = 0; + var F = 0; break b; } var - j = + F = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "first"), [0, v$3, 0]); } - push(vm, j); + push(vm, F); break a; case 58: var v$4 = pop(vm); @@ -60587,29 +67917,29 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof v$4 !== "number"){ switch(v$4[0]){ case 6: - var L = v$4[1]; - if(! L){var g = b; break b;} - var xs = L[2]; + var N = v$4[1]; + if(! N){var D = b; break b;} + var xs = N[2]; break; case 21: - var M = v$4[1][1]; - if(! M){var g = b; break b;} - var xs = M[2]; + var O = v$4[1][1]; + if(! O){var D = b; break b;} + var xs = O[2]; break; default: break c; } - var g = [6, xs]; + var D = [6, xs]; break b; } - if(0 === v$4){var g = b; break b;} + if(0 === v$4){var D = b; break b;} } var - g = + D = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "rest"), [0, v$4, 0]); } - push(vm, g); + push(vm, D); break a; case 59: var n$2 = pop(vm), coll = pop(vm); @@ -60624,11 +67954,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var f$0 = n$2[1], s$3 = coll[1], i = f$0 | 0; if(0 <= i && i < caml_ml_string_length(s$3)){ var - $ = runtime.caml_string_get(s$3, i), - h = [3, Stdlib_String[1].call(null, 1, $)]; + ab = runtime.caml_string_get(s$3, i), + E = [3, Stdlib_String[1].call(null, 1, ab)]; break b; } - var h = 0; + var E = 0; break b; case 6: var l$0 = coll[1]; break; @@ -60639,87 +67969,89 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof n$2 !== "number" && 2 === n$2[0]){ var f$1 = n$2[1]; try{ - var aa = Stdlib_List[8].call(null, l$0, f$1 | 0), h = aa; + var ac = Stdlib_List[8].call(null, l$0, f$1 | 0), E = ac; break b; } - catch(exn){var h = 0; break b;} + catch(exn){var E = 0; break b;} } } var - h = + E = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "nth"), [0, coll, [0, n$2, 0]]); } - push(vm, h); + push(vm, E); break a; case 60: - var coll$0 = pop(vm), x$8 = pop(vm); + var coll$0 = pop(vm), x$20 = pop(vm); b: { if(typeof coll$0 === "number"){ - if(0 === coll$0){var m = [6, [0, x$8, 0]]; break b;} + if(0 === coll$0){var G = [6, [0, x$20, 0]]; break b;} } else switch(coll$0[0]){ case 6: - var l$1 = coll$0[1], m = [6, [0, x$8, l$1]]; break b; + var l$1 = coll$0[1], G = [6, [0, x$20, l$1]]; break b; case 21: - var l$2 = coll$0[1][1], m = [6, [0, x$8, l$2]]; break b; + var l$2 = coll$0[1][1], G = [6, [0, x$20, l$2]]; break b; } var - m = + G = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "cons"), - [0, x$8, [0, coll$0, 0]]); + [0, x$20, [0, coll$0, 0]]); } - push(vm, m); + push(vm, G); break a; case 61: var v$5 = pop(vm); b: { - if(typeof v$5 !== "number" && 2 === v$5[0]){var x$9 = v$5[1], N = [2, - x$9]; break b; + if(typeof v$5 !== "number" && 2 === v$5[0]){ + var x$21 = v$5[1], P = [2, - x$21]; + break b; } var - N = + P = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], cst$0), [0, v$5, 0]); } - push(vm, N); + push(vm, P); break a; case 62: var v$6 = pop(vm); b: { if(typeof v$6 !== "number" && 2 === v$6[0]){ - var x$10 = v$6[1], O = [2, x$10 + 1.]; + var x$22 = v$6[1], Q = [2, x$22 + 1.]; break b; } var - O = + Q = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "inc"), [0, v$6, 0]); } - push(vm, O); + push(vm, Q); break a; case 63: var v$7 = pop(vm); b: { if(typeof v$7 !== "number" && 2 === v$7[0]){ - var x$11 = v$7[1], P = [2, x$11 - 1.]; + var x$23 = v$7[1], R = [2, x$23 - 1.]; break b; } var - P = + R = caml_call1 (Stdlib_Hashtbl[6].call(null, Sx_primitives[1], "dec"), [0, v$7, 0]); } - push(vm, P); + push(vm, R); break a; } } @@ -60730,19 +68062,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var idx$0 = read_u16(frame); if(consts.length - 1 <= idx$0){ var - ab = + ad = caml_call2 - (Stdlib_Printf[4].call(null, r), idx$0, consts.length - 1); - throw caml_maybe_attach_backtrace([0, Sx_types[9], ab], 1); + (Stdlib_Printf[4].call(null, s), idx$0, consts.length - 1); + throw caml_maybe_attach_backtrace([0, Sx_types[9], ad], 1); } push(vm, caml_check_bound(consts, idx$0)[idx$0 + 1]); break a; case 1: push(vm, 0); break a; case 2: - push(vm, s); break a; - case 3: push(vm, t); break a; + case 3: + push(vm, u); break a; case 4: pop(vm); break a; case 5: @@ -60762,10 +68094,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var idx$1 = frame[3] + slot | 0; if(vm[2] <= idx$1){ var - ac = vm[2], - ad = frame[3], - ae = caml_call3(Stdlib_Printf[4].call(null, u), slot, ad, ac); - throw caml_maybe_attach_backtrace([0, Sx_types[9], ae], 1); + ae = vm[2], + af = frame[3], + ag = caml_call3(Stdlib_Printf[4].call(null, v), slot, af, ae); + throw caml_maybe_attach_backtrace([0, Sx_types[9], ag], 1); } var v$8 = caml_check_bound(vm[1], idx$1)[idx$1 + 1]; } @@ -60777,22 +68109,22 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= v$9 = peek(vm), match$5 = Stdlib_Hashtbl[7].call(null, frame[4], slot$0); if(match$5){var cell$0 = match$5[1]; cell$0[1] = v$9; break a;} - var Q = frame[3] + slot$0 | 0; - caml_check_bound(vm[1], Q)[Q + 1] = v$9; + var S = frame[3] + slot$0 | 0; + caml_check_bound(vm[1], S)[S + 1] = v$9; break a; case 17: var idx$2 = read_u8(frame); if(frame[1][2].length - 1 <= idx$2){ var - af = frame[1][2].length - 1, - ag = caml_call2(Stdlib_Printf[4].call(null, v), idx$2, af); - throw caml_maybe_attach_backtrace([0, Sx_types[9], ag], 1); + ah = frame[1][2].length - 1, + ai = caml_call2(Stdlib_Printf[4].call(null, w), idx$2, ah); + throw caml_maybe_attach_backtrace([0, Sx_types[9], ai], 1); } push(vm, caml_check_bound(frame[1][2], idx$2)[idx$2 + 1][1]); break a; case 18: - var idx$3 = read_u8(frame), ah = peek(vm); - caml_check_bound(frame[1][2], idx$3)[idx$3 + 1][1] = ah; + var idx$3 = read_u8(frame), aj = peek(vm); + caml_check_bound(frame[1][2], idx$3)[idx$3 + 1][1] = aj; break a; case 19: var @@ -60808,8 +68140,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= for(;;) try{ var - ai = [0, Stdlib_Hashtbl[6].call(null, e[1], id)], - found_in_env = ai; + ak = [0, Stdlib_Hashtbl[6].call(null, e[1], id)], + found_in_env = ak; break; } catch(exn){ @@ -60829,36 +68161,36 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else try{ var - an = Stdlib_Hashtbl[6].call(null, vm[4], name$0), - v$11 = an; + ap = Stdlib_Hashtbl[6].call(null, vm[4], name$0), + v$11 = ap; } catch(exn){ var exn$1 = caml_wrap_exception(exn); if(exn$1 !== Stdlib[8]) throw caml_maybe_attach_backtrace(exn$1, 0); - try{var am = Sx_primitives[15].call(null, name$0), v$11 = am;} + try{var ao = Sx_primitives[15].call(null, name$0), v$11 = ao;} catch(exn){ try{ var resolve_fn = Stdlib_Hashtbl[6].call(null, vm[4], "__resolve-symbol"); - Sx_runtime[6].call(null, resolve_fn, [0, [3, name$0], 0]); - try{var al = Stdlib_Hashtbl[6].call(null, vm[4], name$0);} + Sx_runtime[7].call(null, resolve_fn, [0, [3, name$0], 0]); + try{var an = Stdlib_Hashtbl[6].call(null, vm[4], name$0);} catch(exn){ var exn$3 = caml_wrap_exception(exn); if(exn$3 !== Stdlib[8]) throw caml_maybe_attach_backtrace(exn$3, 0); - var ak = Stdlib[28].call(null, cst_VM_undefined, name$0); - throw caml_maybe_attach_backtrace([0, Sx_types[9], ak], 1); + var am = Stdlib[28].call(null, cst_VM_undefined, name$0); + throw caml_maybe_attach_backtrace([0, Sx_types[9], am], 1); } - var v$11 = al; + var v$11 = an; } catch(exn){ var exn$2 = caml_wrap_exception(exn); if(exn$2 !== Stdlib[8]) throw caml_maybe_attach_backtrace(exn$2, 0); - var aj = Stdlib[28].call(null, cst_VM_undefined, name$0); - throw caml_maybe_attach_backtrace([0, Sx_types[9], aj], 1); + var al = Stdlib[28].call(null, cst_VM_undefined, name$0); + throw caml_maybe_attach_backtrace([0, Sx_types[9], al], 1); } } } @@ -60880,8 +68212,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= e$0 = env$0; for(;;){ if(Stdlib_Hashtbl[9].call(null, e$0[1], id$0)){ - var ao = peek(vm); - Stdlib_Hashtbl[11].call(null, e$0[1], id$0, ao); + var aq = peek(vm); + Stdlib_Hashtbl[11].call(null, e$0[1], id$0, aq); var written = 1; break; } @@ -60907,20 +68239,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= break a; case 32: var offset$0 = read_i16(frame), v$13 = pop(vm); - if(! (1 - Sx_types[67].call(null, v$13))) break a; + if(! (1 - Sx_types[71].call(null, v$13))) break a; frame[2] = frame[2] + offset$0 | 0; break a; case 33: var offset$1 = read_i16(frame), v$14 = pop(vm); - if(! Sx_types[67].call(null, v$14)) break a; + if(! Sx_types[71].call(null, v$14)) break a; frame[2] = frame[2] + offset$1 | 0; break a; case 34: var catch_offset = read_i16(frame), - ap = vm[2], - aq = Stdlib_List[1].call(null, vm[3]), - entry = [0, frame[2] + catch_offset | 0, aq, ap, frame]; + ar = vm[2], + as = Stdlib_List[1].call(null, vm[3]), + entry = [0, frame[2] + catch_offset | 0, as, ar, frame]; vm[6] = [0, entry, vm[6]]; break a; case 35: @@ -60933,15 +68265,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var exn_val = pop(vm), match$14 = vm[6]; if(! match$14){ var - as = Sx_runtime[2].call(null, exn_val), - at = caml_call1(Stdlib_Printf[4].call(null, w), as); - throw caml_maybe_attach_backtrace([0, Sx_types[9], at], 1); + au = Sx_runtime[3].call(null, exn_val), + av = caml_call1(Stdlib_Printf[4].call(null, x), au); + throw caml_maybe_attach_backtrace([0, Sx_types[9], av], 1); } var rest$0 = match$14[2], entry$0 = match$14[1]; vm[6] = rest$0; for(;;){ - var ar = entry$0[2]; - if(ar >= Stdlib_List[1].call(null, vm[3])){ + var at = entry$0[2]; + if(at >= Stdlib_List[1].call(null, vm[3])){ vm[2] = entry$0[3]; entry$0[4][2] = entry$0[1]; push(vm, exn_val); @@ -60958,8 +68290,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_Array[1].call (null, argc, function(param){return pop(vm);}), f$3 = pop(vm), - au = Stdlib_Array[10].call(null, args), - args_list = Stdlib_List[10].call(null, au); + aw = Stdlib_Array[10].call(null, args), + args_list = Stdlib_List[10].call(null, aw); vm_call(vm, f$3, args_list); break a; case 48: @@ -60969,8 +68301,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_Array[1].call (null, argc$0, function(param){return pop(vm);}), f$4 = pop(vm), - av = Stdlib_Array[10].call(null, args$0), - args_list$0 = Stdlib_List[10].call(null, av); + ax = Stdlib_Array[10].call(null, args$0), + args_list$0 = Stdlib_List[10].call(null, ax); vm[3] = rest_frames; vm[2] = frame[3]; vm_call(vm, f$4, args_list$0); @@ -60985,10 +68317,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var idx$6 = read_u16(frame); if(consts.length - 1 <= idx$6){ var - aw = + ay = caml_call2 - (Stdlib_Printf[4].call(null, x), idx$6, consts.length - 1); - throw caml_maybe_attach_backtrace([0, Sx_types[9], aw], 1); + (Stdlib_Printf[4].call(null, y), idx$6, consts.length - 1); + throw caml_maybe_attach_backtrace([0, Sx_types[9], ay], 1); } var code_val = caml_check_bound(consts, idx$6)[idx$6 + 1], @@ -61002,7 +68334,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_Hashtbl[7].call(null, d$0, cst_upvalue_count); if(match$16){ var match$17 = match$16[1]; - if(typeof match$17 !== "number" && 2 === match$17[0]){var n$3 = match$17[1], uv_count = n$3 | 0; break b;} + if(typeof match$17 !== "number") + switch(match$17[0]){ + case 1: + var n$3 = match$17[1], uv_count = n$3; break b; + case 2: + var n$4 = match$17[1], uv_count = n$4 | 0; break b; + } } var uv_count = 0; break b; @@ -61044,10 +68382,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else var s$6 = match$18[1], name$2 = s$6; var - ax = + az = Stdlib_List[11].call (null, argc$1, function(param){return pop(vm);}), - args$1 = Stdlib_List[10].call(null, ax), + args$1 = Stdlib_List[10].call(null, az), args$2 = Stdlib_List[20].call (null, @@ -61060,19 +68398,19 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= try{ try{ var - aB = Stdlib_Hashtbl[6].call(null, vm[4], name$2), - fn_val = aB; + aD = Stdlib_Hashtbl[6].call(null, vm[4], name$2), + fn_val = aD; } catch(exn){ var exn$5 = caml_wrap_exception(exn); if(exn$5 !== Stdlib[8]) throw caml_maybe_attach_backtrace(exn$5, 0); - try{var aA = Sx_primitives[15].call(null, name$2), fn_val = aA; + try{var aC = Sx_primitives[15].call(null, name$2), fn_val = aC; } catch(exn){ var - az = Stdlib[28].call(null, cst_VM_unknown_primitive, name$2); - throw caml_maybe_attach_backtrace([0, Sx_types[9], az], 1); + aB = Stdlib[28].call(null, cst_VM_unknown_primitive, name$2); + throw caml_maybe_attach_backtrace([0, Sx_types[9], aB], 1); } } b: @@ -61086,7 +68424,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 9: case 10: case 24: - var result$1 = Sx_ref[221].call(null, fn_val, [6, args$2]); + var result$1 = Sx_ref[222].call(null, fn_val, [6, args$2]); break b; } var result$1 = 0; @@ -61098,20 +68436,20 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= throw caml_maybe_attach_backtrace(exn$4, 0); var msg$0 = exn$4[2], - ay = + aA = caml_call3 - (Stdlib_Printf[4].call(null, y), msg$0, name$2, argc$1); - throw caml_maybe_attach_backtrace([0, Sx_types[9], ay], 1); + (Stdlib_Printf[4].call(null, z), msg$0, name$2, argc$1); + throw caml_maybe_attach_backtrace([0, Sx_types[9], aA], 1); } push(vm, result$1); break a; case 63: var count$0 = read_u16(frame), - aC = + aE = Stdlib_List[11].call (null, count$0, function(param){return pop(vm);}), - items = Stdlib_List[10].call(null, aC); + items = Stdlib_List[10].call(null, aE); push(vm, [6, items]); break a; case 64: @@ -61130,21 +68468,24 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 5: var s$7 = k[1], key = s$7; break b; } - var key = Sx_runtime[2].call(null, k); + var key = Sx_runtime[3].call(null, k); } Stdlib_Hashtbl[11].call(null, d$1, key, v$15); - var aD = for$ + 1 | 0; + var aF = for$ + 1 | 0; if(count$1 === for$) break; - for$ = aD; + for$ = aF; } } push(vm, [7, d$1]); break a; } - var - X = frame[2] - 1 | 0, - Y = caml_call2(Stdlib_Printf[4].call(null, p), op, X); - throw caml_maybe_attach_backtrace([0, Sx_types[9], Y], 1); + if(200 > op){ + var + Z = frame[2] - 1 | 0, + _ = caml_call2(Stdlib_Printf[4].call(null, p), op, Z); + throw caml_maybe_attach_backtrace([0, Sx_types[9], _], 1); + } + caml_call3(extension_dispatch_ref[1], op, vm, frame); } } catch(exn$0){var exn = caml_wrap_exception(exn$0); break;} @@ -61158,97 +68499,114 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= else var fn_name$0 = cst; var - U = vm[2], - V = frame[3], - W = + W = vm[2], + X = frame[3], + Y = caml_call8 (Stdlib_Printf[4].call(null, o), msg, saved_ip, op, fn_name$0, - V, - U, + X, + W, bc.length - 1, consts.length - 1); - throw caml_maybe_attach_backtrace([0, Sx_types[9], W], 1); + throw caml_maybe_attach_backtrace([0, Sx_types[9], Y], 1); } - var z = [3, cst_phase], A = [3, cst_request]; + var A = [3, cst_phase], B = [3, cst_request]; function resume_vm(vm, result){ - var match = vm[5]; - if(match){ - var cek_state = match[1]; - vm[5] = 0; - var - final = Sx_ref[158].call(null, cek_state, result), - match$0 = Sx_runtime[12].call(null, final, z); - if - (typeof match$0 !== "number" - && 3 === match$0[0] && match$0[1] === cst_io_suspended){ - vm[5] = [0, final]; - throw caml_maybe_attach_backtrace - ([0, VmSuspended, Sx_runtime[12].call(null, final, A), vm], 1); + var prev_active = active_vm[1]; + active_vm[1] = [0, vm]; + function restore(param){active_vm[1] = prev_active;} + try{ + var match = vm[5]; + if(match){ + var cek_state = match[1]; + vm[5] = 0; + var + final = Sx_ref[158].call(null, cek_state, result), + match$0 = Sx_runtime[13].call(null, final, A); + if + (typeof match$0 !== "number" + && 3 === match$0[0] && match$0[1] === cst_io_suspended){ + vm[5] = [0, final]; + throw caml_maybe_attach_backtrace + ([0, VmSuspended, Sx_runtime[13].call(null, final, B), vm], 1); + } + push(vm, Sx_ref[18].call(null, final)); } - push(vm, Sx_ref[18].call(null, final)); + else + push(vm, result); + try{run(vm);} + catch(e){ + var e$0 = caml_wrap_exception(e); + if(e$0[1] === VmSuspended) throw caml_maybe_attach_backtrace(e$0, 0); + if(e$0[1] !== Sx_types[9]) throw caml_maybe_attach_backtrace(e$0, 0); + var msg = e$0[2], match$1 = vm[6]; + if(! match$1) + throw caml_maybe_attach_backtrace([0, Sx_types[9], msg], 1); + var rest = match$1[2], entry = match$1[1]; + vm[6] = rest; + for(;;){ + var a = entry[2]; + if(a >= Stdlib_List[1].call(null, vm[3])){ + vm[2] = entry[3]; + entry[4][2] = entry[1]; + push(vm, [3, msg]); + run(vm); + break; + } + var match$2 = vm[3]; + if(match$2){var fs = match$2[2]; vm[3] = fs;} + } + } + vm[7] = 0; + var + restore_reuse = + function(pending){ + if(! pending) return; + var + rest = pending[2], + match = pending[1], + saved_sp = match[2], + saved_frames = match[1], + callback_result = pop(vm); + vm[3] = saved_frames; + if(saved_sp < vm[2]) vm[2] = saved_sp; + push(vm, callback_result); + try{ + run(vm); + var new_pending = Stdlib_List[10].call(null, vm[7]); + vm[7] = 0; + restore_reuse(Stdlib[37].call(null, new_pending, rest)); + return; + } + catch(e$0){ + var e = caml_wrap_exception(e$0); + if(e[1] !== VmSuspended) throw caml_maybe_attach_backtrace(e, 0); + var a = vm[7], b = Stdlib_List[10].call(null, rest); + vm[7] = Stdlib[37].call(null, b, a); + throw caml_maybe_attach_backtrace(e, 0); + } + }, + pending = Stdlib_List[10].call(null, vm[7]); + vm[7] = 0; + restore_reuse(pending); + var r = pop(vm); + restore(0); + return r; } - else - push(vm, result); - try{run(vm);} catch(e$0){ var e = caml_wrap_exception(e$0); - if(e[1] === VmSuspended) throw caml_maybe_attach_backtrace(e, 0); - if(e[1] !== Sx_types[9]) throw caml_maybe_attach_backtrace(e, 0); - var msg = e[2], match$1 = vm[6]; - if(! match$1) - throw caml_maybe_attach_backtrace([0, Sx_types[9], msg], 1); - var rest = match$1[2], entry = match$1[1]; - vm[6] = rest; - for(;;){ - var a = entry[2]; - if(a >= Stdlib_List[1].call(null, vm[3])){ - vm[2] = entry[3]; - entry[4][2] = entry[1]; - push(vm, [3, msg]); - run(vm); - break; - } - var match$2 = vm[3]; - if(match$2){var fs = match$2[2]; vm[3] = fs;} - } + restore(0); + throw caml_maybe_attach_backtrace(e, 0); } - vm[7] = 0; - function restore_reuse(pending){ - if(! pending) return; - var - rest = pending[2], - saved_frames = pending[1][1], - callback_result = pop(vm); - vm[3] = saved_frames; - push(vm, callback_result); - try{ - run(vm); - var new_pending = Stdlib_List[10].call(null, vm[7]); - vm[7] = 0; - restore_reuse(Stdlib[37].call(null, new_pending, rest)); - return; - } - catch(e$0){ - var e = caml_wrap_exception(e$0); - if(e[1] !== VmSuspended) throw caml_maybe_attach_backtrace(e, 0); - var a = vm[7], b = Stdlib_List[10].call(null, rest); - vm[7] = Stdlib[37].call(null, b, a); - throw caml_maybe_attach_backtrace(e, 0); - } - } - var pending = Stdlib_List[10].call(null, vm[7]); - vm[7] = 0; - restore_reuse(pending); - return pop(vm); } - var B = [0, "module"]; + var C = [0, "module"]; function execute_module(code, globals){ var - cl = [0, code, [0], B, globals, 0], + cl = [0, code, [0], C, globals, 0], vm = create(globals), frame = [0, cl, 0, 0, Stdlib_Hashtbl[1].call(null, 0, 4)], a = code[3] - 1 | 0; @@ -61479,23 +68837,189 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return a; } + function bytecode_find_opcode(pred, bc, consts){ + var len = bc.length - 1, found = 0, ip$0 = 0; + for(;;){ + if(! found && ip$0 < len){ + var op = caml_check_bound(bc, ip$0)[ip$0 + 1]; + if(caml_call1(pred, op)){found = 1; continue;} + var ip = ip$0 + 1 | 0; + a: + { + if(51 === op && (ip + 1 | 0) < len){ + var + lo = caml_check_bound(bc, ip)[ip + 1], + b = ip + 1 | 0, + hi = caml_check_bound(bc, b)[b + 1], + idx = lo | hi << 8; + b: + if(idx < consts.length - 1){ + var match = caml_check_bound(consts, idx)[idx + 1]; + if(typeof match !== "number" && 7 === match[0]){ + var + d = match[1], + match$0 = Stdlib_Hashtbl[7].call(null, d, cst_upvalue_count); + if(match$0){ + var match$1 = match$0[1]; + if(typeof match$1 !== "number") + switch(match$1[0]){ + case 1: + var n = match$1[1], uv_count = n; break b; + case 2: + var n$0 = match$1[1], uv_count = n$0 | 0; break b; + } + } + var uv_count = 0; + break b; + } + var uv_count = 0; + } + else + var uv_count = 0; + var extra = 2 + (uv_count * 2 | 0) | 0; + break a; + } + b: + { + c: + { + if(50 <= op){ + if(66 > op){ + if(52 === op){var extra = 3; break a;} + if(64 <= op) break c; + break b; + } + if(128 === op) break c; + if(144 !== op) break b; + } + else if(20 <= op){ + var a = op - 22 | 0; + if(25 >= a >>> 0){ + if(3 < a - 10 >>> 0) break b; + var extra = 2; + break a; + } + if(26 > a) break c; + } + else{if(1 === op) break c; if(16 > op) break b;} + var extra = 1; + break a; + } + var extra = 2; + break a; + } + var extra = 0; + } + ip$0 = ip + extra | 0; + continue; + } + return found; + } + } + function bytecode_uses_extension_opcode(bc, consts){ + return bytecode_find_opcode + (function(op){return 200 <= op ? 1 : 0;}, bc, consts); + } + function code_uses_handler(code){ + var + a = + bytecode_find_opcode + (function(op){return 35 === op ? 1 : 0;}, code[4], code[5]); + return a + ? a + : Stdlib_Array + [24].call + (null, + function(c){ + a: + if(typeof c !== "number" && 7 === c[0]){ + var d = c[1]; + if + (! + Stdlib_Hashtbl[9].call(null, d, cst_bytecode) + && ! Stdlib_Hashtbl[9].call(null, d, cst_vc_bytecode)) + break a; + try{var a = code_uses_handler(code_from_value(c)); return a;} + catch(exn){return 0;} + } + return 0; + }, + code[5]); + } + function code_refs_escaping_caller(code){ + return Stdlib_Array[24].call + (null, + function(c){ + if(typeof c !== "number") + switch(c[0]){ + case 3: + var s = c[1]; + return Stdlib_Hashtbl[9].call(null, Sx_types[50], s); + case 7: + var d = c[1]; + if + (! + Stdlib_Hashtbl[9].call(null, d, cst_bytecode) + && ! Stdlib_Hashtbl[9].call(null, d, cst_vc_bytecode)) + break; + try{ + var a = code_refs_escaping_caller(code_from_value(c)); + return a; + } + catch(exn){return 0;} + } + return 0; + }, + code[5]); + } var cst_jit_FAIL = "[jit] FAIL ", + cst_jit_SKIP = "[jit] SKIP ", jit_compiling = [0, 0], - C = + D = [0, [11, cst_jit_FAIL, [2, 0, [11, cst$2, [2, 0, [12, 10, [10, 0]]]]]], "[jit] FAIL %s: %s\n%!"], - D = [4, cst_fn], - E = [4, cst_quote], - F = [4, cst_compile], - G = + E = [4, cst_fn], + F = [4, cst_quote], + G = [4, cst_compile], + H = [0, [11, cst_jit_FAIL, [2, 0, [11, ": compiler returned ", [2, 0, [12, 10, [10, 0]]]]]], "[jit] FAIL %s: compiler returned %s\n%!"], - H = + I = + [0, + [11, + cst_jit_SKIP, + [2, + 0, + [11, + ": bytecode uses extension opcodes (interpret-only in v1)\n", + [10, 0]]]], + "[jit] SKIP %s: bytecode uses extension opcodes (interpret-only in v1)\n%!"], + J = + [0, + [11, + cst_jit_SKIP, + [2, + 0, + [11, + ": installs an exception handler (guard) \xe2\x80\x94 interpret-only\n", + [10, 0]]]], + "[jit] SKIP %s: installs an exception handler (guard) \xe2\x80\x94 interpret-only\n%!"], + K = + [0, + [11, + cst_jit_SKIP, + [2, + 0, + [11, + ": calls a call/cc-establishing form \xe2\x80\x94 interpret-only\n", + [10, 0]]]], + "[jit] SKIP %s: calls a call/cc-establishing form \xe2\x80\x94 interpret-only\n%!"], + L = [0, [11, cst_jit_FAIL, @@ -61509,17 +69033,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= 0, [11, " out of bounds (pool=", [4, 0, 0, 0, [11, cst$0, [10, 0]]]]]]]], "[jit] FAIL %s: closure index %d out of bounds (pool=%d)\n%!"], - I = + M = [0, [11, - "[jit] SKIP ", + cst_jit_SKIP, [2, 0, [11, ": non-closure execution failed (bc[0]=", [4, 0, 0, 0, [11, ", len=", [4, 0, 0, 0, [11, cst$0, [10, 0]]]]]]]], "[jit] SKIP %s: non-closure execution failed (bc[0]=%d, len=%d)\n%!"], - J = + N = [0, [11, "[jit] RESOLVED ", @@ -61539,6 +69063,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= && ! Stdlib_List[37].call(null, ":as", l[1])){ if(0 !== l[4] && 0 === l[3][2]){ if(jit_is_broken_name(fn_name)) return 0; + if(Sx_types[49].call(null, fn_name)) return 0; try{ jit_compiling[1] = 1; try{ @@ -61554,7 +69079,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var param_syms = [6, Stdlib_List[20].call(null, function(s){return [4, s];}, l[1])], - fn_expr = [6, [0, D, [0, param_syms, [0, l[2], 0]]]]; + fn_expr = [6, [0, E, [0, param_syms, [0, l[2], 0]]]]; a: { if(typeof compile_fn !== "number" && 8 === compile_fn[0]){ @@ -61579,9 +69104,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= globals); var result = - Sx_ref[241].call + Sx_ref[242].call (null, - [6, [0, F, [0, [6, [0, E, [0, fn_expr, 0]]], 0]]], + [6, [0, G, [0, [6, [0, F, [0, fn_expr, 0]]], 0]]], [20, compile_env]); } jit_compiling[1] = 0; @@ -61623,24 +69148,41 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var g = caml_check_bound(bc, 2)[3] << 8, idx = caml_check_bound(bc, 1)[2] | g; - if(idx < outer_code[5].length - 1){ - var - inner_val = caml_check_bound(outer_code[5], idx)[idx + 1], - code = code_from_value(inner_val), - a = [0, [0, code, [0], l[4], effective_globals, [0, l[3]]]]; + if(idx >= outer_code[5].length - 1){ + var h = outer_code[5].length - 1; + caml_call3(Stdlib_Printf[3].call(null, L), fn_name, idx, h); + var a = 0; break a; } - var h = outer_code[5].length - 1; - caml_call3(Stdlib_Printf[3].call(null, H), fn_name, idx, h); - var a = 0; + var + inner_val = caml_check_bound(outer_code[5], idx)[idx + 1], + code = code_from_value(inner_val); + if(bytecode_uses_extension_opcode(code[4], code[5])){ + caml_call1(Stdlib_Printf[3].call(null, I), fn_name); + var a = 0; + break a; + } + if(code_uses_handler(code)){ + caml_call1(Stdlib_Printf[3].call(null, J), fn_name); + var a = 0; + break a; + } + if + (0 < Stdlib_Hashtbl[15].call(null, Sx_types[50]) + && code_refs_escaping_caller(code)){ + caml_call1(Stdlib_Printf[3].call(null, K), fn_name); + var a = 0; + break a; + } + var a = [0, [0, code, [0], l[4], effective_globals, [0, l[3]]]]; break a; } try{ var value = execute_module(outer_code, globals), k = 0 < bc.length - 1 ? caml_check_bound(bc, 0)[1] : -1, - m = Sx_types[57].call(null, value); - caml_call3(Stdlib_Printf[3].call(null, J), fn_name, m, k); + m = Sx_types[61].call(null, value); + caml_call3(Stdlib_Printf[3].call(null, N), fn_name, m, k); var a = 0; break a; } @@ -61648,13 +69190,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var i = bc.length - 1, j = 0 < bc.length - 1 ? caml_check_bound(bc, 0)[1] : -1; - caml_call3(Stdlib_Printf[3].call(null, I), fn_name, j, i); + caml_call3(Stdlib_Printf[3].call(null, M), fn_name, j, i); var a = 0; break a; } } - var f = Sx_types[57].call(null, result); - caml_call2(Stdlib_Printf[3].call(null, G), fn_name, f); + var f = Sx_types[61].call(null, result); + caml_call2(Stdlib_Printf[3].call(null, H), fn_name, f); var a = 0; } return a; @@ -61663,7 +69205,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var e = caml_wrap_exception(e$0); jit_compiling[1] = 0; var b = Stdlib_Printexc[1].call(null, e); - caml_call2(Stdlib_Printf[3].call(null, C), fn_name, b); + caml_call2(Stdlib_Printf[3].call(null, D), fn_name, b); return 0; } } @@ -61673,7 +69215,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } jit_compile_ref[1] = jit_compile_lambda; Sx_types[6][1] = function(cl, args){return call_closure_reuse(cl, args);}; - var K = [0, 1]; + var O = [0, 1]; Sx_types[16][1] = function(exn){ if(exn[1] !== VmSuspended) return 0; @@ -61683,7 +69225,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= saved_cek = vm[5], saved_reuse = vm[7], d = Stdlib_Hashtbl[1].call(null, 0, 3); - Stdlib_Hashtbl[11].call(null, d, "__vm_suspended", K); + Stdlib_Hashtbl[11].call(null, d, "__vm_suspended", O); Stdlib_Hashtbl[11].call(null, d, cst_request, request); Stdlib_Hashtbl[11].call (null, @@ -61724,14 +69266,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } throw caml_maybe_attach_backtrace([0, VmSuspended, request, vm], 1); }]; - var L = [6, 0], M = [3, cst_phase], N = [3, cst_request]; + var P = [6, 0], Q = [3, cst_phase], R = [3, cst_request]; Sx_types[8][1] = function(f, args){ var a = [20, Sx_types[20].call(null, 0)], - state = Sx_ref[236].call(null, f, [6, args], a, [6, args], L), + state = Sx_ref[237].call(null, f, [6, args], a, [6, args], P), final = Sx_ref[156].call(null, state), - match = Sx_runtime[12].call(null, final, M); + match = Sx_runtime[13].call(null, final, Q); if (typeof match !== "number" && 3 === match[0] && match[1] === cst_io_suspended){ @@ -61743,11 +69285,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(0 !== active[7]){vm[7] = active[7]; active[7] = 0;} } throw caml_maybe_attach_backtrace - ([0, VmSuspended, Sx_runtime[12].call(null, final, N), vm], 1); + ([0, VmSuspended, Sx_runtime[13].call(null, final, R), vm], 1); } return Sx_ref[18].call(null, final); }; - var O = [0, [11, "UNKNOWN_", [4, 0, 0, 0, 0]], "UNKNOWN_%d"]; + var S = [0, [11, "UNKNOWN_", [4, 0, 0, 0, 0]], "UNKNOWN_%d"]; function opcode_name(n){ if(66 <= n){ var switcher = n - 128 | 0; @@ -61846,7 +69388,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 64: return "DICT"; } - return caml_call1(Stdlib_Printf[4].call(null, O), n); + var match = caml_call1(extension_opcode_name_ref[1], n); + if(! match) return caml_call1(Stdlib_Printf[4].call(null, S), n); + var name = match[1]; + return name; } function opcode_operand_size(param){ a: @@ -61884,15 +69429,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var cst_opcode = "opcode", - S = [0, 0], - T = [0, 0], + W = [0, 0], + X = [0, 0], c = [2, 0.], a = [6, 0], - P = [4, "do"], - Q = [4, cst_quote], - R = [0, "trace"], - U = [0, 1], - V = [0, 0]; + T = [4, "do"], + U = [4, cst_quote], + V = [0, "trace"], + Y = [0, 1], + Z = [0, 0]; function trace_run(src, globals){ try{var compile_fn = Stdlib_Hashtbl[6].call(null, globals, cst_compile);} catch(exn$0){ @@ -61906,15 +69451,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= a: { if(exprs && ! exprs[2]){var e = exprs[1], expr = e; break a;} - var expr = [6, [0, P, exprs]]; + var expr = [6, [0, T, exprs]]; } var - quoted = [6, [0, Q, [0, expr, 0]]], + quoted = [6, [0, U, [0, expr, 0]]], K = [20, Sx_types[20].call(null, 0)], code_val = - Sx_ref[241].call(null, [6, [0, compile_fn, [0, quoted, 0]]], K), + Sx_ref[242].call(null, [6, [0, compile_fn, [0, quoted, 0]]], K), code = code_from_value(code_val), - cl = [0, code, [0], R, globals, 0], + cl = [0, code, [0], V, globals, 0], vm = create(globals), frame0 = [0, cl, 0, 0, Stdlib_Hashtbl[1].call(null, 0, 4)], m = code[3] - 1 | 0; @@ -61949,7 +69494,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = (vm[2] - 1 | 0) - i | 0, v = caml_check_bound(vm[1], a)[a + 1]; - return [3, Sx_types[112].call(null, v)]; + return [3, Sx_types[117].call(null, v)]; }), entry = Stdlib_Hashtbl[1].call(null, 0, 4), M = [3, opcode_name(op)]; @@ -61980,12 +69525,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 16: var count = read_u8(frame), - W = + P = Stdlib_List[11].call (null, count, function(param){return pop(vm);}), - parts = Stdlib_List[10].call(null, W), - X = Stdlib_List[20].call(null, Sx_runtime[2], parts); - push(vm, [3, Stdlib_String[7].call(null, cst$1, X)]); + parts = Stdlib_List[10].call(null, P), + Q = Stdlib_List[20].call(null, Sx_runtime[3], parts); + push(vm, [3, Stdlib_String[7].call(null, cst$1, Q)]); break; case 32: var b = pop(vm), a$0 = pop(vm); @@ -62052,7 +69597,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ! (2 === a$5[0] && ! (typeof b$4 === "number" || ! (2 === b$4[0])))) - var w = S; + var w = W; else var y$3 = b$4[1], x$3 = a$5[1], w = [0, x$3 < y$3 ? 1 : 0]; push(vm, w); @@ -62065,14 +69610,14 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ! (2 === a$6[0] && ! (typeof b$5 === "number" || ! (2 === b$5[0])))) - var z = T; + var z = X; else var y$4 = b$5[1], x$4 = a$6[1], z = [0, y$4 < x$4 ? 1 : 0]; push(vm, z); break; case 39: var v = pop(vm); - push(vm, [0, 1 - Sx_types[67].call(null, v)]); + push(vm, [0, 1 - Sx_types[71].call(null, v)]); break; case 40: var v$0 = pop(vm); @@ -62148,7 +69693,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(typeof n !== "number" && 2 === n[0]){ var f = n[1]; try{ - var Y = Stdlib_List[8].call(null, l$0, f | 0), j = Y; + var R = Stdlib_List[8].call(null, l$0, f | 0), j = R; break a; } catch(exn){var j = 0; break a;} @@ -62215,9 +69760,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 1: push(vm, 0); break; case 2: - push(vm, U); break; + push(vm, Y); break; case 3: - push(vm, V); break; + push(vm, Z); break; case 4: pop(vm); break; case 5: @@ -62258,8 +69803,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= push(vm, caml_check_bound(frame[1][2], idx$1)[idx$1 + 1][1]); break; case 18: - var idx$2 = read_u8(frame), Z = peek(vm); - caml_check_bound(frame[1][2], idx$2)[idx$2 + 1][1] = Z; + var idx$2 = read_u8(frame), S = peek(vm); + caml_check_bound(frame[1][2], idx$2)[idx$2 + 1][1] = S; break; case 19: var @@ -62301,12 +69846,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= break; case 32: var offset$0 = read_i16(frame), v$9 = pop(vm); - if(1 - Sx_types[67].call(null, v$9)) + if(1 - Sx_types[71].call(null, v$9)) frame[2] = frame[2] + offset$0 | 0; break; case 33: var offset$1 = read_i16(frame), v$10 = pop(vm); - if(Sx_types[67].call(null, v$10)) + if(Sx_types[71].call(null, v$10)) frame[2] = frame[2] + offset$1 | 0; break; case 34: @@ -62381,8 +69926,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= match$8 = Stdlib_Hashtbl[7].call(null, d, cst_upvalue_count); if(match$8){ var match$9 = match$8[1]; - if(typeof match$9 !== "number" && 2 === match$9[0]){var n$0 = match$9[1], uv_count = n$0 | 0; break a; - } + if(typeof match$9 !== "number") + switch(match$9[0]){ + case 1: + var n$0 = match$9[1], uv_count = n$0; break a; + case 2: + var n$1 = match$9[1], uv_count = n$1 | 0; break a; + } } var uv_count = 0; break a; @@ -62477,7 +70027,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= case 5: var s$4 = k[1], key = s$4; break a; } - var key = Sx_runtime[2].call(null, k); + var key = Sx_runtime[3].call(null, k); } Stdlib_Hashtbl[11].call(null, d$0, key, v$11); var an = for$ + 1 | 0; @@ -62581,7 +70131,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= match$0 = Stdlib_Hashtbl[7].call(null, d, cst_upvalue_count); if(match$0){ var match$1 = match$0[1]; - if(typeof match$1 !== "number" && 2 === match$1[0]){var n = match$1[1], uv_count = n | 0; break c;} + if(typeof match$1 !== "number") + switch(match$1[0]){ + case 1: + var n = match$1[1], uv_count = n; break c; + case 2: + var n$0 = match$1[1], uv_count = n$0 | 0; break c; + } } var uv_count = 0; break c; @@ -62624,7 +70180,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(idx < consts.length - 1) var h = caml_check_bound(consts, idx)[idx + 1], - const_str = Sx_types[112].call(null, h); + const_str = Sx_types[117].call(null, h); else var const_str = cst; var operands$1 = [0, [2, idx], [0, [3, const_str], 0]], ip$4 = ip$0; @@ -62651,7 +70207,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var j = Stdlib_Array[14].call - (null, function(v){return [3, Sx_types[112].call(null, v)];}, consts), + (null, function(v){return [3, Sx_types[117].call(null, v)];}, consts), k = [6, Stdlib_Array[10].call(null, j)]; Stdlib_Hashtbl[11].call(null, result, cst_constants, k); var l = [6, Stdlib_List[10].call(null, instrs)]; @@ -62659,10 +70215,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return [7, result]; } runtime.caml_register_global - (237, + (247, [0, VmSuspended, + Invalid_opcode, jit_compile_ref, + extension_dispatch_ref, + extension_opcode_name_ref, jit_failed_sentinel, is_jit_failed, active_vm, @@ -62695,6 +70254,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= execute_module, execute_module_safe, jit_is_broken_name, + bytecode_find_opcode, + bytecode_uses_extension_opcode, + code_uses_handler, + code_refs_escaping_caller, jit_compile_lambda, opcode_name, opcode_operand_size, @@ -62705,7 +70268,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 25961 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# 32147 "../lib/.sx.objs/jsoo/default/sx.cma.js" //# shape: Sx_vm_ref:[F(2),F(2),F(1),F(1)*,N,F(2),F(1),F(1),F(1),F(1)*,F(1)*,F(2),F(1)*,F(1)*,F(2)*,F(4),F(5),F(2),F(1),F(2),F(1),F(1),F(1),F(1),F(1),F(3),F(4),F(2),F(3),F(1),F(2),F(1),F(1),F(1),F(1),F(1)*,F(1),F(1),F(1),F(1),F(2),F(1),F(2)*,F(1),F(2),F(1),F(3),F(4),F(3),F(1)*,F(3),N,F(1)*,F(1)*,F(1)*,F(2),F(1)*,F(3),F(2),F(3),N,N,N,F(3),F(3),F(2),F(2),F(2),F(3),F(2),F(3),F(1),F(5),F(2),F(2),F(1),F(3),F(1),N,N,F(1)*] (function (globalThis){ @@ -62736,12 +70299,12 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Sx_ref = global_data.Sx_ref, Stdlib_Array = global_data.Stdlib__Array, Stdlib = global_data.Stdlib, - cek_call = Sx_ref[221], - eval_expr = Sx_ref[241]; + cek_call = Sx_ref[222], + eval_expr = Sx_ref[242]; function trampoline(v){ if(typeof v !== "number" && 12 === v[0]){ var env = v[2], expr = v[1]; - return Sx_ref[241].call(null, expr, [20, env]); + return Sx_ref[242].call(null, expr, [20, env]); } return v; } @@ -62752,10 +70315,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } var str = - [15, "str", function(args){return [3, Sx_runtime[4].call(null, args)];}]; + [15, "str", function(args){return [3, Sx_runtime[5].call(null, args)];}]; function call_primitive(name, args){ var n = Sx_types[35].call(null, name), a = to_ocaml_list(args); - return Sx_runtime[1].call(null, n, a); + return Sx_runtime[2].call(null, n, a); } function unwrap_vm(v){ if(typeof v !== "number" && 26 === v[0]){var m = v[1]; return m;} @@ -62775,7 +70338,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function make_upvalue_cell(v){return 0;} function uv_get$0(param){return 0;} function uv_set_b(a, param){return 0;} - function code_from_value(v){return Sx_vm[24].call(null, v);} + function code_from_value(v){return Sx_vm[27].call(null, v);} function make_vm_code(arity, locals, bytecode, constants){ var d = Stdlib_Hashtbl[1].call(null, 0, 4); Stdlib_Hashtbl[11].call(null, d, "arity", arity); @@ -62817,7 +70380,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } function make_vm_frame(closure, base){ var cl = unwrap_closure(closure), a = Stdlib_Hashtbl[1].call(null, 0, 4); - return [25, [0, cl, 0, Sx_types[90].call(null, base), a]]; + return [25, [0, cl, 0, Sx_types[94].call(null, base), a]]; } function make_vm(globals){ a: @@ -62882,9 +70445,9 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var m = unwrap_vm(vm_val), f = unwrap_frame(frame_val), - a = Sx_types[90].call(null, slot), + a = Sx_types[94].call(null, slot), idx = f[3] + a | 0, - b = Sx_types[90].call(null, slot), + b = Sx_types[94].call(null, slot), match = Stdlib_Hashtbl[7].call(null, f[4], b); if(! match) return caml_check_bound(m[1], idx)[idx + 1]; var cell = match[1]; @@ -62894,7 +70457,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var m = unwrap_vm(vm_val), f = unwrap_frame(frame_val), - s = Sx_types[90].call(null, slot), + s = Sx_types[94].call(null, slot), match = Stdlib_Hashtbl[7].call(null, f[4], s); if(match){ var cell = match[1]; @@ -62904,18 +70467,18 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; } function frame_upvalue_get(frame_val, idx){ - var f = unwrap_frame(frame_val), a = Sx_types[90].call(null, idx); + var f = unwrap_frame(frame_val), a = Sx_types[94].call(null, idx); return caml_check_bound(f[1][2], a)[a + 1][1]; } function frame_upvalue_set(frame_val, idx, v){ - var f = unwrap_frame(frame_val), a = Sx_types[90].call(null, idx); + var f = unwrap_frame(frame_val), a = Sx_types[94].call(null, idx); caml_check_bound(f[1][2], a)[a + 1][1] = v; return 0; } function frame_ip(f){var fr = unwrap_frame(f); return [2, fr[2]];} function frame_set_ip_b(f, v){ var fr = unwrap_frame(f); - fr[2] = Sx_types[90].call(null, v); + fr[2] = Sx_types[94].call(null, v); return 0; } function frame_base(f){var fr = unwrap_frame(f); return [2, fr[3]];} @@ -62953,15 +70516,15 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; } var a = [3, cst_vc_bytecode]; - function code_bytecode(code){return Sx_runtime[12].call(null, code, a);} + function code_bytecode(code){return Sx_runtime[13].call(null, code, a);} var b = [3, cst_vc_constants]; - function code_constants(code){return Sx_runtime[12].call(null, code, b);} + function code_constants(code){return Sx_runtime[13].call(null, code, b);} var c = [3, cst_vc_locals]; - function code_locals(code){return Sx_runtime[12].call(null, code, c);} + function code_locals(code){return Sx_runtime[13].call(null, code, c);} function vm_sp(v){var m = unwrap_vm(v); return [2, m[2]];} function vm_set_sp_b(v, s){ var m = unwrap_vm(v); - m[2] = Sx_types[90].call(null, s); + m[2] = Sx_types[94].call(null, s); return 0; } function vm_stack(v){unwrap_vm(v); return 0;} @@ -63007,7 +70570,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(found_in_env){var v$0 = found_in_env[1]; return v$0;} var match$2 = Stdlib_Hashtbl[7].call(null, m[4], n); if(match$2){var v$1 = match$2[1]; return v$1;} - try{var c = Sx_runtime[1].call(null, n, 0); return c;} + try{var c = Sx_runtime[2].call(null, n, 0); return c;} catch(exn){ var match$3 = Sx_types[25][1]; if(! match$3){ @@ -63095,7 +70658,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= match = Stdlib_Hashtbl[7].call(null, d, "upvalue-count"); if(match){ var match$0 = match[1]; - if(typeof match$0 !== "number" && 2 === match$0[0]){var n = match$0[1], uv_count = n | 0; break a;} + if(typeof match$0 !== "number") + switch(match$0[0]){ + case 1: + var n = match$0[1], uv_count = n; break a; + case 2: + var n$0 = match$0[1], uv_count = n$0 | 0; break a; + } } var uv_count = 0; break a; @@ -63180,17 +70749,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var a = to_ocaml_list(args), b = [20, Sx_types[20].call(null, 0)], - state = Sx_ref[236].call(null, f, [6, a], b, [6, a], h), + state = Sx_ref[237].call(null, f, [6, a], b, [6, a], h), final = Sx_ref[156].call(null, state), - match = Sx_runtime[12].call(null, final, i); + match = Sx_runtime[13].call(null, final, i); if (typeof match !== "number" && 3 === match[0] && match[1] === "io-suspended"){ var m = unwrap_vm(vm_val); m[5] = [0, final]; var - c = Sx_vm[6].call(null, m[4]), - d = Sx_runtime[12].call(null, final, j); + c = Sx_vm[9].call(null, m[4]), + d = Sx_runtime[13].call(null, final, j); throw caml_maybe_attach_backtrace([0, Sx_vm[1], d, c], 1); } return Sx_ref[18].call(null, final); @@ -63279,7 +70848,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= if(0 === l[4]) return vm_push(vm_val, cek_call_or_suspend(vm_val, f, args)); l[5] = [0, jit_failed_sentinel]; - var match$0 = caml_call2(Sx_vm[2][1], l, m[4]); + var match$0 = caml_call2(Sx_vm[3][1], l, m[4]); if(! match$0) return vm_push(vm_val, cek_call_or_suspend(vm_val, f, args)); var cl$0 = match$0[1]; @@ -63294,7 +70863,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return vm_push(vm_val, cek_call_or_suspend(vm_val, f, args)); } function collect_n_from_stack(vm_val, n){ - var m = unwrap_vm(vm_val), count = Sx_types[90].call(null, n), a = 0; + var m = unwrap_vm(vm_val), count = Sx_types[94].call(null, n), a = 0; if(count < 1) var result$0 = a; else{ @@ -63315,7 +70884,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function collect_n_pairs(vm_val, n){ var m = unwrap_vm(vm_val), - count = Sx_types[90].call(null, n), + count = Sx_types[94].call(null, n), d = Stdlib_Hashtbl[1].call(null, 0, count); if(count >= 1){ var for$ = 1; @@ -63336,7 +70905,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return [7, d]; } function pad_n_nils(vm_val, n){ - var m = unwrap_vm(vm_val), count = Sx_types[90].call(null, n); + var m = unwrap_vm(vm_val), count = Sx_types[94].call(null, n); if(count >= 1){ var for$ = 1; for(;;){ @@ -63357,27 +70926,27 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= m = [0, [3, "island"], 0]; function vm_call(vm, f, args){ var a = vm_closure_p(f); - if(Sx_types[67].call(null, a)) return vm_push_frame(vm, f, args); + if(Sx_types[71].call(null, a)) return vm_push_frame(vm, f, args); var b = is_lambda(f); - if(Sx_types[67].call(null, b)) return try_jit_call(vm, f, args); + if(Sx_types[71].call(null, b)) return try_jit_call(vm, f, args); var - c = [0, Sx_runtime[73].call(null, f), k], - or = Sx_runtime[1].call(null, cst, c); - if(Sx_types[67].call(null, or)) + c = [0, Sx_runtime[74].call(null, f), k], + or = Sx_runtime[2].call(null, cst, c); + if(Sx_types[71].call(null, or)) var or$0 = or; else var - i = [0, Sx_runtime[73].call(null, f), m], - or$0 = Sx_runtime[1].call(null, cst, i); - if(Sx_types[67].call(null, or$0)) + i = [0, Sx_runtime[74].call(null, f), m], + or$0 = Sx_runtime[2].call(null, cst, i); + if(Sx_types[71].call(null, or$0)) return vm_push(vm, cek_call_or_suspend(vm, f, args)); - var d = Sx_runtime[90].call(null, f); - if(Sx_types[67].call(null, d)) - return vm_push(vm, Sx_runtime[7].call(null, f, args)); + var d = Sx_runtime[91].call(null, f); + if(Sx_types[71].call(null, d)) + return vm_push(vm, Sx_runtime[8].call(null, f, args)); var - e = [0, l, [0, Sx_runtime[73].call(null, f), 0]], - g = [3, Sx_runtime[4].call(null, e)], - h = Sx_runtime[2].call(null, g); + e = [0, l, [0, Sx_runtime[74].call(null, f), 0]], + g = [3, Sx_runtime[5].call(null, e)], + h = Sx_runtime[3].call(null, g); throw caml_maybe_attach_backtrace([0, Sx_types[9], h], 1); } var @@ -63390,8 +70959,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= t = [0, [3, "every?"], 0], u = [3, cst_VM_undefined]; function vm_resolve_ho_form(vm, name){ - var a = Sx_runtime[1].call(null, cst, [0, name, n]), cst$0 = "\xce\xbb"; - if(Sx_types[67].call(null, a)) + var a = Sx_runtime[2].call(null, cst, [0, name, n]), cst$0 = "\xce\xbb"; + if(Sx_types[71].call(null, a)) return [15, cst$0, function(args){ @@ -63401,7 +70970,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var coll = a[1], f = args[1], - b = Sx_runtime[5].call(null, coll); + b = Sx_runtime[6].call(null, coll); Stdlib_List[18].call (null, function(x){ @@ -63414,8 +70983,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }]; - var b = Sx_runtime[1].call(null, cst, [0, name, o]); - if(Sx_types[67].call(null, b)) + var b = Sx_runtime[2].call(null, cst, [0, name, o]); + if(Sx_types[71].call(null, b)) return [15, cst$0, function(args){ @@ -63425,7 +70994,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var coll = a[1], f = args[1], - b = Sx_runtime[5].call(null, coll); + b = Sx_runtime[6].call(null, coll); return [6, Stdlib_List[20].call (null, @@ -63435,8 +71004,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }]; - var c = Sx_runtime[1].call(null, cst, [0, name, p]); - if(Sx_types[67].call(null, c)) + var c = Sx_runtime[2].call(null, cst, [0, name, p]); + if(Sx_types[71].call(null, c)) return [15, cst$0, function(args){ @@ -63446,7 +71015,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var coll = a[1], f = args[1], - b = Sx_runtime[5].call(null, coll); + b = Sx_runtime[6].call(null, coll); return [6, Stdlib_List[21].call (null, @@ -63459,8 +71028,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }]; - var d = Sx_runtime[1].call(null, cst, [0, name, q]); - if(Sx_types[67].call(null, d)) + var d = Sx_runtime[2].call(null, cst, [0, name, q]); + if(Sx_types[71].call(null, d)) return [15, cst$0, function(args){ @@ -63470,21 +71039,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var coll = a[1], f = args[1], - b = Sx_runtime[5].call(null, coll); + b = Sx_runtime[6].call(null, coll); return [6, Stdlib_List[44].call (null, function(x){ var a = vm_call_external(vm, f, [6, [0, x, 0]]); - return Sx_types[67].call(null, a); + return Sx_types[71].call(null, a); }, b)]; } } return 0; }]; - var e = Sx_runtime[1].call(null, cst, [0, name, r]); - if(Sx_types[67].call(null, e)) + var e = Sx_runtime[2].call(null, cst, [0, name, r]); + if(Sx_types[71].call(null, e)) return [15, cst$0, function(args){ @@ -63497,7 +71066,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= coll = b[1], init = a[1], f = args[1], - c = Sx_runtime[5].call(null, coll); + c = Sx_runtime[6].call(null, coll); return Stdlib_List[26].call (null, function(acc, x){ @@ -63510,8 +71079,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } return 0; }]; - var f = Sx_runtime[1].call(null, cst, [0, name, s]); - if(Sx_types[67].call(null, f)) + var f = Sx_runtime[2].call(null, cst, [0, name, s]); + if(Sx_types[71].call(null, f)) return [15, cst$0, function(args){ @@ -63521,21 +71090,21 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var coll = a[1], f = args[1], - b = Sx_runtime[5].call(null, coll); + b = Sx_runtime[6].call(null, coll); return [0, Stdlib_List[34].call (null, function(x){ var a = vm_call_external(vm, f, [6, [0, x, 0]]); - return Sx_types[67].call(null, a); + return Sx_types[71].call(null, a); }, b)]; } } return 0; }]; - var g = Sx_runtime[1].call(null, cst, [0, name, t]); - if(Sx_types[67].call(null, g)) + var g = Sx_runtime[2].call(null, cst, [0, name, t]); + if(Sx_types[71].call(null, g)) return [15, cst$0, function(args){ @@ -63545,13 +71114,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var coll = a[1], f = args[1], - b = Sx_runtime[5].call(null, coll); + b = Sx_runtime[6].call(null, coll); return [0, Stdlib_List[33].call (null, function(x){ var a = vm_call_external(vm, f, [6, [0, x, 0]]); - return Sx_types[67].call(null, a); + return Sx_types[71].call(null, a); }, b)]; } @@ -63559,13 +71128,13 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; }]; var - h = [3, Sx_runtime[4].call(null, [0, u, [0, name, 0]])], - i = Sx_runtime[2].call(null, h); + h = [3, Sx_runtime[5].call(null, [0, u, [0, name, 0]])], + i = Sx_runtime[3].call(null, h); throw caml_maybe_attach_backtrace([0, Sx_types[9], i], 1); } function vm_call_external(vm, f, args){ var a = vm_closure_p(f); - return Sx_types[67].call(null, a) + return Sx_types[71].call(null, a) ? vm_call_closure(f, args, vm_globals_ref(vm)) : cek_call(f, args); } @@ -63574,26 +71143,26 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= for(;;){ var a = vm_frames(vm), - b = Sx_runtime[33].call(null, a), - c = [0, 1 - Sx_types[67].call(null, b)]; - if(! Sx_types[67].call(null, c)) return 0; + b = Sx_runtime[34].call(null, a), + c = [0, 1 - Sx_types[71].call(null, b)]; + if(! Sx_types[71].call(null, c)) return 0; var d = vm_frames(vm), - frame = Sx_runtime[14].call(null, d), + frame = Sx_runtime[15].call(null, d), e = vm_frames(vm), - rest_frames = Sx_runtime[15].call(null, e), + rest_frames = Sx_runtime[16].call(null, e), bc = code_bytecode(closure_code(frame_closure(frame))), consts = code_constants(closure_code(frame_closure(frame))), - f = [0, Sx_runtime[24].call(null, bc), 0], + f = [0, Sx_runtime[25].call(null, bc), 0], g = [0, frame_ip(frame), f], - h = Sx_runtime[1].call(null, ">=", g); - if(Sx_types[67].call(null, h)) return vm_set_frames_b(vm, v); + h = Sx_runtime[2].call(null, ">=", g); + if(Sx_types[71].call(null, h)) return vm_set_frames_b(vm, v); vm_step(vm, frame, rest_frames, bc, consts); var i = vm_globals_ref(vm), - j = Sx_runtime[25].call(null, i, w), - k = Sx_runtime[83].call(null, j); - if(! Sx_types[67].call(null, k)) return 0; + j = Sx_runtime[26].call(null, i, w), + k = Sx_runtime[84].call(null, j); + if(! Sx_types[71].call(null, k)) return 0; } } var @@ -63646,89 +71215,89 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function vm_step(vm, frame, rest_frames, bc, consts){ var op = frame_read_u8(frame), - c = Sx_runtime[1].call(null, cst, [0, op, x]); - if(Sx_types[67].call(null, c)){ + c = Sx_runtime[2].call(null, cst, [0, op, x]); + if(Sx_types[71].call(null, c)){ var idx = frame_read_u16(frame); - return vm_push(vm, Sx_runtime[17].call(null, consts, idx)); + return vm_push(vm, Sx_runtime[18].call(null, consts, idx)); } - var e = Sx_runtime[1].call(null, cst, [0, op, y]); - if(Sx_types[67].call(null, e)) return vm_push(vm, 0); - var g = Sx_runtime[1].call(null, cst, [0, op, z]); - if(Sx_types[67].call(null, g)) return vm_push(vm, A); - var h = Sx_runtime[1].call(null, cst, [0, op, B]); - if(Sx_types[67].call(null, h)) return vm_push(vm, C); - var i = Sx_runtime[1].call(null, cst, [0, op, D]); - if(Sx_types[67].call(null, i)) return vm_pop(vm); - var j = Sx_runtime[1].call(null, cst, [0, op, E]); - if(Sx_types[67].call(null, j)) return vm_push(vm, vm_peek(vm)); - var k = Sx_runtime[1].call(null, cst, [0, op, F]); - if(Sx_types[67].call(null, k)){ + var e = Sx_runtime[2].call(null, cst, [0, op, y]); + if(Sx_types[71].call(null, e)) return vm_push(vm, 0); + var g = Sx_runtime[2].call(null, cst, [0, op, z]); + if(Sx_types[71].call(null, g)) return vm_push(vm, A); + var h = Sx_runtime[2].call(null, cst, [0, op, B]); + if(Sx_types[71].call(null, h)) return vm_push(vm, C); + var i = Sx_runtime[2].call(null, cst, [0, op, D]); + if(Sx_types[71].call(null, i)) return vm_pop(vm); + var j = Sx_runtime[2].call(null, cst, [0, op, E]); + if(Sx_types[71].call(null, j)) return vm_push(vm, vm_peek(vm)); + var k = Sx_runtime[2].call(null, cst, [0, op, F]); + if(Sx_types[71].call(null, k)){ var slot = frame_read_u8(frame); return vm_push(vm, frame_local_get(vm, frame, slot)); } - var l = Sx_runtime[1].call(null, cst, [0, op, G]); - if(Sx_types[67].call(null, l)){ + var l = Sx_runtime[2].call(null, cst, [0, op, G]); + if(Sx_types[71].call(null, l)){ var slot$0 = frame_read_u8(frame); return frame_local_set(vm, frame, slot$0, vm_peek(vm)); } - var m = Sx_runtime[1].call(null, cst, [0, op, H]); - if(Sx_types[67].call(null, m)){ + var m = Sx_runtime[2].call(null, cst, [0, op, H]); + if(Sx_types[71].call(null, m)){ var idx$0 = frame_read_u8(frame); return vm_push(vm, frame_upvalue_get(frame, idx$0)); } - var o = Sx_runtime[1].call(null, cst, [0, op, I]); - if(Sx_types[67].call(null, o)){ + var o = Sx_runtime[2].call(null, cst, [0, op, I]); + if(Sx_types[71].call(null, o)){ var idx$1 = frame_read_u8(frame); return frame_upvalue_set(frame, idx$1, vm_peek(vm)); } - var p = Sx_runtime[1].call(null, cst, [0, op, J]); - if(Sx_types[67].call(null, p)){ + var p = Sx_runtime[2].call(null, cst, [0, op, J]); + if(Sx_types[71].call(null, p)){ var idx$2 = frame_read_u16(frame), - name = Sx_runtime[17].call(null, consts, idx$2); + name = Sx_runtime[18].call(null, consts, idx$2); return vm_push(vm, vm_global_get(vm, frame, name)); } - var q = Sx_runtime[1].call(null, cst, [0, op, K]); - if(Sx_types[67].call(null, q)){ + var q = Sx_runtime[2].call(null, cst, [0, op, K]); + if(Sx_types[71].call(null, q)){ var idx$3 = frame_read_u16(frame), - name$0 = Sx_runtime[17].call(null, consts, idx$3); + name$0 = Sx_runtime[18].call(null, consts, idx$3); return vm_global_set(vm, frame, name$0, vm_peek(vm)); } - var r = Sx_runtime[1].call(null, cst, [0, op, L]), cst$0 = "+"; - if(Sx_types[67].call(null, r)){ + var r = Sx_runtime[2].call(null, cst, [0, op, L]), cst$0 = "+"; + if(Sx_types[71].call(null, r)){ var offset = frame_read_i16(frame), s = [0, frame_ip(frame), [0, offset, 0]]; - return frame_set_ip_b(frame, Sx_runtime[1].call(null, cst$0, s)); + return frame_set_ip_b(frame, Sx_runtime[2].call(null, cst$0, s)); } - var t = Sx_runtime[1].call(null, cst, [0, op, M]); - if(Sx_types[67].call(null, t)){ + var t = Sx_runtime[2].call(null, cst, [0, op, M]); + if(Sx_types[71].call(null, t)){ var offset$0 = frame_read_i16(frame), v = vm_pop(vm), - u = [0, 1 - Sx_types[67].call(null, v)]; - if(! Sx_types[67].call(null, u)) return 0; + u = [0, 1 - Sx_types[71].call(null, v)]; + if(! Sx_types[71].call(null, u)) return 0; var w = [0, frame_ip(frame), [0, offset$0, 0]]; - return frame_set_ip_b(frame, Sx_runtime[1].call(null, cst$0, w)); + return frame_set_ip_b(frame, Sx_runtime[2].call(null, cst$0, w)); } - var ap = Sx_runtime[1].call(null, cst, [0, op, N]); - if(Sx_types[67].call(null, ap)){ + var ap = Sx_runtime[2].call(null, cst, [0, op, N]); + if(Sx_types[71].call(null, ap)){ var offset$1 = frame_read_i16(frame), v$0 = vm_pop(vm); - if(! Sx_types[67].call(null, v$0)) return 0; + if(! Sx_types[71].call(null, v$0)) return 0; var aq = [0, frame_ip(frame), [0, offset$1, 0]]; - return frame_set_ip_b(frame, Sx_runtime[1].call(null, cst$0, aq)); + return frame_set_ip_b(frame, Sx_runtime[2].call(null, cst$0, aq)); } - var ar = Sx_runtime[1].call(null, cst, [0, op, O]); - if(Sx_types[67].call(null, ar)){ + var ar = Sx_runtime[2].call(null, cst, [0, op, O]); + if(Sx_types[71].call(null, ar)){ var argc = frame_read_u8(frame), args = collect_n_from_stack(vm, argc), f = vm_pop(vm); return vm_call(vm, f, args); } - var as = Sx_runtime[1].call(null, cst, [0, op, P]); - if(Sx_types[67].call(null, as)){ + var as = Sx_runtime[2].call(null, cst, [0, op, P]); + if(Sx_types[71].call(null, as)){ var argc$0 = frame_read_u8(frame), args$0 = collect_n_from_stack(vm, argc$0), @@ -63737,147 +71306,147 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= vm_set_sp_b(vm, frame_base(frame)); return vm_call(vm, f$0, args$0); } - var at = Sx_runtime[1].call(null, cst, [0, op, Q]); - if(Sx_types[67].call(null, at)){ + var at = Sx_runtime[2].call(null, cst, [0, op, Q]); + if(Sx_types[71].call(null, at)){ var result = vm_pop(vm); vm_set_frames_b(vm, rest_frames); vm_set_sp_b(vm, frame_base(frame)); return vm_push(vm, result); } - var au = Sx_runtime[1].call(null, cst, [0, op, R]); - if(Sx_types[67].call(null, au)){ + var au = Sx_runtime[2].call(null, cst, [0, op, R]); + if(Sx_types[71].call(null, au)){ var idx$4 = frame_read_u16(frame), - code_val = Sx_runtime[17].call(null, consts, idx$4), + code_val = Sx_runtime[18].call(null, consts, idx$4), cl = vm_create_closure(vm, frame, code_val); return vm_push(vm, cl); } - var av = Sx_runtime[1].call(null, cst, [0, op, S]); - if(Sx_types[67].call(null, av)){ + var av = Sx_runtime[2].call(null, cst, [0, op, S]); + if(Sx_types[71].call(null, av)){ var idx$5 = frame_read_u16(frame), argc$1 = frame_read_u8(frame), - name$1 = Sx_runtime[17].call(null, consts, idx$5), + name$1 = Sx_runtime[18].call(null, consts, idx$5), args$1 = collect_n_from_stack(vm, argc$1); return vm_push(vm, call_primitive(name$1, args$1)); } - var aw = Sx_runtime[1].call(null, cst, [0, op, T]); - if(Sx_types[67].call(null, aw)){ + var aw = Sx_runtime[2].call(null, cst, [0, op, T]); + if(Sx_types[71].call(null, aw)){ var count = frame_read_u16(frame), items = collect_n_from_stack(vm, count); return vm_push(vm, items); } - var ax = Sx_runtime[1].call(null, cst, [0, op, U]); - if(Sx_types[67].call(null, ax)){ + var ax = Sx_runtime[2].call(null, cst, [0, op, U]); + if(Sx_types[71].call(null, ax)){ var count$0 = frame_read_u16(frame), d = collect_n_pairs(vm, count$0); return vm_push(vm, d); } - var ay = Sx_runtime[1].call(null, cst, [0, op, V]); - if(Sx_types[67].call(null, ay)){ + var ay = Sx_runtime[2].call(null, cst, [0, op, V]); + if(Sx_types[71].call(null, ay)){ var count$1 = frame_read_u8(frame), parts = collect_n_from_stack(vm, count$1); - return vm_push(vm, Sx_runtime[7].call(null, str, parts)); + return vm_push(vm, Sx_runtime[8].call(null, str, parts)); } - var az = Sx_runtime[1].call(null, cst, [0, op, W]); - if(Sx_types[67].call(null, az)){ + var az = Sx_runtime[2].call(null, cst, [0, op, W]); + if(Sx_types[71].call(null, az)){ var idx$6 = frame_read_u16(frame), - name$2 = Sx_runtime[17].call(null, consts, idx$6), + name$2 = Sx_runtime[18].call(null, consts, idx$6), aA = vm_peek(vm), aB = vm_globals_ref(vm); - return Sx_runtime[11].call(null, aB, name$2, aA); + return Sx_runtime[12].call(null, aB, name$2, aA); } - var aC = Sx_runtime[1].call(null, cst, [0, op, X]); - if(Sx_types[67].call(null, aC)){ + var aC = Sx_runtime[2].call(null, cst, [0, op, X]); + if(Sx_types[71].call(null, aC)){ var b = vm_pop(vm), a = vm_pop(vm); - return vm_push(vm, Sx_runtime[1].call(null, cst$0, [0, a, [0, b, 0]])); + return vm_push(vm, Sx_runtime[2].call(null, cst$0, [0, a, [0, b, 0]])); } - var aD = Sx_runtime[1].call(null, cst, [0, op, Y]), cst$1 = "-"; - if(Sx_types[67].call(null, aD)){ + var aD = Sx_runtime[2].call(null, cst, [0, op, Y]), cst$1 = "-"; + if(Sx_types[71].call(null, aD)){ var b$0 = vm_pop(vm), a$0 = vm_pop(vm); return vm_push - (vm, Sx_runtime[1].call(null, cst$1, [0, a$0, [0, b$0, 0]])); + (vm, Sx_runtime[2].call(null, cst$1, [0, a$0, [0, b$0, 0]])); } - var aE = Sx_runtime[1].call(null, cst, [0, op, Z]); - if(Sx_types[67].call(null, aE)){ + var aE = Sx_runtime[2].call(null, cst, [0, op, Z]); + if(Sx_types[71].call(null, aE)){ var b$1 = vm_pop(vm), a$1 = vm_pop(vm); - return vm_push(vm, Sx_runtime[1].call(null, "*", [0, a$1, [0, b$1, 0]])); + return vm_push(vm, Sx_runtime[2].call(null, "*", [0, a$1, [0, b$1, 0]])); } - var aF = Sx_runtime[1].call(null, cst, [0, op, _]); - if(Sx_types[67].call(null, aF)){ + var aF = Sx_runtime[2].call(null, cst, [0, op, _]); + if(Sx_types[71].call(null, aF)){ var b$2 = vm_pop(vm), a$2 = vm_pop(vm); - return vm_push(vm, Sx_runtime[1].call(null, "/", [0, a$2, [0, b$2, 0]])); + return vm_push(vm, Sx_runtime[2].call(null, "/", [0, a$2, [0, b$2, 0]])); } - var aG = Sx_runtime[1].call(null, cst, [0, op, $]); - if(Sx_types[67].call(null, aG)){ + var aG = Sx_runtime[2].call(null, cst, [0, op, $]); + if(Sx_types[71].call(null, aG)){ var b$3 = vm_pop(vm), a$3 = vm_pop(vm); - return vm_push(vm, Sx_runtime[1].call(null, cst, [0, a$3, [0, b$3, 0]])); + return vm_push(vm, Sx_runtime[2].call(null, cst, [0, a$3, [0, b$3, 0]])); } - var aH = Sx_runtime[1].call(null, cst, [0, op, aa]); - if(Sx_types[67].call(null, aH)){ + var aH = Sx_runtime[2].call(null, cst, [0, op, aa]); + if(Sx_types[71].call(null, aH)){ var b$4 = vm_pop(vm), a$4 = vm_pop(vm); - return vm_push(vm, Sx_runtime[1].call(null, "<", [0, a$4, [0, b$4, 0]])); + return vm_push(vm, Sx_runtime[2].call(null, "<", [0, a$4, [0, b$4, 0]])); } - var aI = Sx_runtime[1].call(null, cst, [0, op, ab]); - if(Sx_types[67].call(null, aI)){ + var aI = Sx_runtime[2].call(null, cst, [0, op, ab]); + if(Sx_types[71].call(null, aI)){ var b$5 = vm_pop(vm), a$5 = vm_pop(vm); - return vm_push(vm, Sx_runtime[1].call(null, ">", [0, a$5, [0, b$5, 0]])); + return vm_push(vm, Sx_runtime[2].call(null, ">", [0, a$5, [0, b$5, 0]])); } - var aJ = Sx_runtime[1].call(null, cst, [0, op, ac]); - if(Sx_types[67].call(null, aJ)){ + var aJ = Sx_runtime[2].call(null, cst, [0, op, ac]); + if(Sx_types[71].call(null, aJ)){ var aK = vm_pop(vm); - return vm_push(vm, [0, 1 - Sx_types[67].call(null, aK)]); + return vm_push(vm, [0, 1 - Sx_types[71].call(null, aK)]); } - var aL = Sx_runtime[1].call(null, cst, [0, op, ad]); - if(Sx_types[67].call(null, aL)){ + var aL = Sx_runtime[2].call(null, cst, [0, op, ad]); + if(Sx_types[71].call(null, aL)){ var aM = vm_pop(vm); - return vm_push(vm, Sx_runtime[24].call(null, aM)); + return vm_push(vm, Sx_runtime[25].call(null, aM)); } - var aN = Sx_runtime[1].call(null, cst, [0, op, ae]); - if(Sx_types[67].call(null, aN)){ + var aN = Sx_runtime[2].call(null, cst, [0, op, ae]); + if(Sx_types[71].call(null, aN)){ var aO = vm_pop(vm); - return vm_push(vm, Sx_runtime[14].call(null, aO)); + return vm_push(vm, Sx_runtime[15].call(null, aO)); } - var aP = Sx_runtime[1].call(null, cst, [0, op, af]); - if(Sx_types[67].call(null, aP)){ + var aP = Sx_runtime[2].call(null, cst, [0, op, af]); + if(Sx_types[71].call(null, aP)){ var aQ = vm_pop(vm); - return vm_push(vm, Sx_runtime[15].call(null, aQ)); + return vm_push(vm, Sx_runtime[16].call(null, aQ)); } - var aR = Sx_runtime[1].call(null, cst, [0, op, ag]); - if(Sx_types[67].call(null, aR)){ + var aR = Sx_runtime[2].call(null, cst, [0, op, ag]); + if(Sx_types[71].call(null, aR)){ var n = vm_pop(vm), coll = vm_pop(vm); - return vm_push(vm, Sx_runtime[17].call(null, coll, n)); + return vm_push(vm, Sx_runtime[18].call(null, coll, n)); } - var aS = Sx_runtime[1].call(null, cst, [0, op, ah]); - if(Sx_types[67].call(null, aS)){ + var aS = Sx_runtime[2].call(null, cst, [0, op, ah]); + if(Sx_types[71].call(null, aS)){ var coll$0 = vm_pop(vm), x$0 = vm_pop(vm); - return vm_push(vm, Sx_runtime[18].call(null, x$0, coll$0)); + return vm_push(vm, Sx_runtime[19].call(null, x$0, coll$0)); } - var aT = Sx_runtime[1].call(null, cst, [0, op, ai]); - if(Sx_types[67].call(null, aT)){ + var aT = Sx_runtime[2].call(null, cst, [0, op, ai]); + if(Sx_types[71].call(null, aT)){ var aU = [0, aj, [0, vm_pop(vm), 0]]; - return vm_push(vm, Sx_runtime[1].call(null, cst$1, aU)); + return vm_push(vm, Sx_runtime[2].call(null, cst$1, aU)); } - var aV = Sx_runtime[1].call(null, cst, [0, op, ak]); - if(Sx_types[67].call(null, aV)){ + var aV = Sx_runtime[2].call(null, cst, [0, op, ak]); + if(Sx_types[71].call(null, aV)){ var aW = [0, vm_pop(vm), 0]; - return vm_push(vm, Sx_runtime[1].call(null, "inc", aW)); + return vm_push(vm, Sx_runtime[2].call(null, "inc", aW)); } - var aX = Sx_runtime[1].call(null, cst, [0, op, al]); - if(Sx_types[67].call(null, aX)){ + var aX = Sx_runtime[2].call(null, cst, [0, op, al]); + if(Sx_types[71].call(null, aX)){ var aY = [0, vm_pop(vm), 0]; - return vm_push(vm, Sx_runtime[1].call(null, "dec", aY)); + return vm_push(vm, Sx_runtime[2].call(null, "dec", aY)); } - var aZ = Sx_runtime[1].call(null, cst, [0, op, am]); - if(Sx_types[67].call(null, aZ)){ + var aZ = Sx_runtime[2].call(null, cst, [0, op, am]); + if(Sx_types[71].call(null, aZ)){ var request = vm_pop(vm), a0 = vm_globals_ref(vm); - return Sx_runtime[11].call(null, a0, an, request); + return Sx_runtime[12].call(null, a0, an, request); } var - a1 = [3, Sx_runtime[4].call(null, [0, ao, [0, op, 0]])], - a2 = Sx_runtime[2].call(null, a1); + a1 = [3, Sx_runtime[5].call(null, [0, ao, [0, op, 0]])], + a2 = Sx_runtime[3].call(null, a1); throw caml_maybe_attach_backtrace([0, Sx_types[9], a2], 1); } vm_run_fn[1] = vm_run; @@ -63887,7 +71456,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match = Stdlib_Hashtbl[7].call(null, globals, cst_io_request); if(match){ var req = match[1]; - if(Sx_types[67].call(null, req)){ + if(Sx_types[71].call(null, req)){ var d = Stdlib_Hashtbl[1].call(null, 0, 4); Stdlib_Hashtbl[11].call(null, d, "suspended", ap); Stdlib_Hashtbl[11].call(null, d, "op", aq); @@ -63946,7 +71515,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function call_closure(cl, args, globals){ return vm_call_closure([24, cl], [6, args], [7, globals]); } - var jit_compile_ref = Sx_vm[2]; + var jit_compile_ref = Sx_vm[3]; runtime.caml_register_global (178, [0, @@ -64036,7 +71605,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } (globalThis)); -//# 27293 "../lib/.sx.objs/jsoo/default/sx.cma.js" +//# 33485 "../lib/.sx.objs/jsoo/default/sx.cma.js" //# shape: Sx_render:[F(2),F(1),F(1)*,F(1)*,F(2),F(1),F(2),F(2),F(1),F(1),F(1),F(1),F(1),N,N,N,F(2),F(2),F(3),F(2),F(1),F(3),F(2),F(1)*,N,F(1),N,N,N,N,N,N,N,N,F(1),F(1),F(1),F(1),F(1),N,F(1),N,N,F(1),F(2),F(2),F(2),F(2),F(2),F(1),F(2),F(2),F(2),F(1),F(2),F(3),F(3),F(3),F(3),F(2),F(2),F(3),F(3),F(2),F(2),F(3),F(1),F(1),F(1),F(1)] (function (globalThis){ @@ -64316,7 +71885,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= Stdlib_String = global_data.Stdlib__String, Sx_vm = global_data.Sx_vm, Stdlib_Printexc = global_data.Stdlib__Printexc; - function eval_expr(expr, env){return Sx_ref[241].call(null, expr, env);} + function eval_expr(expr, env){return Sx_ref[242].call(null, expr, env);} var cond_scheme_p = Sx_ref[137], cst$6 = "", a = [3, cst$6]; function raw_html_content(v){ if(typeof v !== "number" && 17 === v[0]){var s = v[1]; return [3, s];} @@ -64327,26 +71896,26 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return 0; } function scope_emit(v1, v2){ - return Sx_runtime[1].call(null, "scope-emit!", [0, v1, [0, v2, 0]]); + return Sx_runtime[2].call(null, "scope-emit!", [0, v1, [0, v2, 0]]); } - function init(v){return Sx_runtime[1].call(null, "init", [0, v, 0]);} + function init(v){return Sx_runtime[2].call(null, "init", [0, v, 0]);} function dict_has(a, b){ - return Sx_runtime[1].call(null, "dict-has?", [0, a, [0, b, 0]]); + return Sx_runtime[2].call(null, "dict-has?", [0, a, [0, b, 0]]); } function dict_get(a, b){ - return Sx_runtime[1].call(null, "dict-get", [0, a, [0, b, 0]]); + return Sx_runtime[2].call(null, "dict-get", [0, a, [0, b, 0]]); } function is_component(v){ - return Sx_runtime[1].call(null, "component?", [0, v, 0]); + return Sx_runtime[2].call(null, "component?", [0, v, 0]); } function is_island(v){ - return Sx_runtime[1].call(null, "island?", [0, v, 0]); + return Sx_runtime[2].call(null, "island?", [0, v, 0]); } - function is_macro(v){return Sx_runtime[1].call(null, "macro?", [0, v, 0]);} + function is_macro(v){return Sx_runtime[2].call(null, "macro?", [0, v, 0]);} function is_lambda(v){ - return Sx_runtime[1].call(null, "lambda?", [0, v, 0]); + return Sx_runtime[2].call(null, "lambda?", [0, v, 0]); } - function is_nil(v){return Sx_runtime[1].call(null, "nil?", [0, v, 0]);} + function is_nil(v){return Sx_runtime[2].call(null, "nil?", [0, v, 0]);} var b = [3, cst$6], render_html_lake_ref = [0, function(a, param){return b;}], @@ -64363,11 +71932,11 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function render_html_island(comp, args, env){ return caml_call3(render_html_island_ref[1], comp, args, env); } - var cek_call = Sx_ref[221]; + var cek_call = Sx_ref[222]; function trampoline(v){ if(typeof v !== "number" && 12 === v[0]){ var env = v[2], expr = v[1]; - return Sx_ref[241].call(null, expr, [20, env]); + return Sx_ref[242].call(null, expr, [20, env]); } return v; } @@ -64386,7 +71955,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var args = 0; } var - local = Sx_runtime[80].call(null, [20, mac[4]]), + local = Sx_runtime[81].call(null, [20, mac[4]]), ps$0 = Stdlib_List[20].call(null, function(p){return [3, p];}, mac[1]); a: { @@ -64396,37 +71965,37 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var match = mac[2]; if(! match) break a; var rp = match[1]; - Sx_runtime[77].call(null, local, [3, rp], [6, as]); + Sx_runtime[78].call(null, local, [3, rp], [6, as]); break a; } var ps_rest = ps[2], p = ps[1]; if(! as) break; var as_rest = as[2], a = as[1]; - Sx_runtime[77].call(null, local, p, a); + Sx_runtime[78].call(null, local, p, a); ps = ps_rest; as = as_rest; } var b = Stdlib_List[10].call(null, ps); Stdlib_List[18].call (null, - function(p){Sx_runtime[77].call(null, local, p, 0); return 0;}, + function(p){Sx_runtime[78].call(null, local, p, 0); return 0;}, b); } - return Sx_ref[241].call(null, mac[3], local); + return Sx_ref[242].call(null, mac[3], local); } return 0; } function try_catch(try_fn, catch_fn){ - try{var b = Sx_runtime[6].call(null, try_fn, 0); return b;} + try{var b = Sx_runtime[7].call(null, try_fn, 0); return b;} catch(e$0){ var e = caml_wrap_exception(e$0); if(e[1] === Sx_vm[1]) throw caml_maybe_attach_backtrace(e, 0); if(e[1] === Sx_types[9]){ var msg = e[2]; - return Sx_runtime[6].call(null, catch_fn, [0, [3, msg], 0]); + return Sx_runtime[7].call(null, catch_fn, [0, [3, msg], 0]); } var a = [0, [3, Stdlib_Printexc[1].call(null, e)], 0]; - return Sx_runtime[6].call(null, catch_fn, a); + return Sx_runtime[7].call(null, catch_fn, a); } } function set_render_active_b(v){return 0;} @@ -64487,7 +72056,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= (null, function(k, v){ if(is_boolean_attr(k)){ - var a = Sx_types[67].call(null, v); + var a = Sx_types[71].call(null, v); return a ? (Stdlib_Buffer [12].call @@ -64513,7 +72082,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= f = [3, cst$6], render_to_html_ref = [0, function(expr, env){return f;}]; function scope_emitted(name){ - return Sx_runtime[1].call(null, "scope-emitted", [0, name, 0]); + return Sx_runtime[2].call(null, "scope-emitted", [0, name, 0]); } var cst = "=", @@ -64527,23 +72096,23 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= l = [0, [3, cst_deftype], 0], m = [0, [3, cst_defeffect], 0]; function definition_form_p(name){ - var or = Sx_runtime[1].call(null, cst, [0, name, g]); - if(Sx_types[67].call(null, or)) return or; - var or$0 = Sx_runtime[1].call(null, cst, [0, name, h]); - if(Sx_types[67].call(null, or$0)) return or$0; - var or$1 = Sx_runtime[1].call(null, cst, [0, name, i]); - if(Sx_types[67].call(null, or$1)) return or$1; - var or$2 = Sx_runtime[1].call(null, cst, [0, name, j]); - if(Sx_types[67].call(null, or$2)) return or$2; - var or$3 = Sx_runtime[1].call(null, cst, [0, name, k]); - if(Sx_types[67].call(null, or$3)) return or$3; - var or$4 = Sx_runtime[1].call(null, cst, [0, name, l]); - if(Sx_types[67].call(null, or$4)) return or$4; - var or$5 = Sx_runtime[1].call(null, cst, [0, name, m]); - return Sx_types[67].call(null, or$5) + var or = Sx_runtime[2].call(null, cst, [0, name, g]); + if(Sx_types[71].call(null, or)) return or; + var or$0 = Sx_runtime[2].call(null, cst, [0, name, h]); + if(Sx_types[71].call(null, or$0)) return or$0; + var or$1 = Sx_runtime[2].call(null, cst, [0, name, i]); + if(Sx_types[71].call(null, or$1)) return or$1; + var or$2 = Sx_runtime[2].call(null, cst, [0, name, j]); + if(Sx_types[71].call(null, or$2)) return or$2; + var or$3 = Sx_runtime[2].call(null, cst, [0, name, k]); + if(Sx_types[71].call(null, or$3)) return or$3; + var or$4 = Sx_runtime[2].call(null, cst, [0, name, l]); + if(Sx_types[71].call(null, or$4)) return or$4; + var or$5 = Sx_runtime[2].call(null, cst, [0, name, m]); + return Sx_types[71].call(null, or$5) ? or$5 : Sx_runtime - [1].call + [2].call (null, cst_contains, [0, definition_form_extensions, [0, name, 0]]); @@ -64576,61 +72145,61 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function parse_element_args(args, env){ var attrs = [7, Stdlib_Hashtbl[1].call(null, 0, 0)], - a = Sx_runtime[5].call(null, args), + a = Sx_runtime[6].call(null, args), d = Stdlib_Hashtbl[1].call(null, 0, 2), - b = Sx_runtime[2].call(null, p); + b = Sx_runtime[3].call(null, p); Stdlib_Hashtbl[11].call(null, d, b, o); - var c = Sx_runtime[2].call(null, r); + var c = Sx_runtime[3].call(null, r); Stdlib_Hashtbl[11].call(null, d, c, q); var children = [0, n]; Stdlib_List[26].call (null, function(state, arg){ - var skip = Sx_runtime[25].call(null, state, s); - if(Sx_types[67].call(null, skip)){ + var skip = Sx_runtime[26].call(null, state, s); + if(Sx_types[71].call(null, skip)){ var - b = [0, Sx_runtime[25].call(null, state, t), 0], + b = [0, Sx_runtime[26].call(null, state, t), 0], c = [0, state, [0, w, - [0, v, [0, u, [0, Sx_runtime[1].call(null, cst_inc, b), 0]]]]]; - return Sx_runtime[1].call(null, cst_assoc, c); + [0, v, [0, u, [0, Sx_runtime[2].call(null, cst_inc, b), 0]]]]]; + return Sx_runtime[2].call(null, cst_assoc, c); } var - d = [0, Sx_runtime[73].call(null, arg), x], - and = Sx_runtime[1].call(null, cst, d); - if(Sx_types[67].call(null, and)) + d = [0, Sx_runtime[74].call(null, arg), x], + and = Sx_runtime[2].call(null, cst, d); + if(Sx_types[71].call(null, and)) var - e = [0, Sx_runtime[24].call(null, args), 0], - f = [0, Sx_runtime[25].call(null, state, y), 0], - g = [0, Sx_runtime[1].call(null, cst_inc, f), e], - a = Sx_runtime[1].call(null, cst$0, g); + e = [0, Sx_runtime[25].call(null, args), 0], + f = [0, Sx_runtime[26].call(null, state, y), 0], + g = [0, Sx_runtime[2].call(null, cst_inc, f), e], + a = Sx_runtime[2].call(null, cst$0, g); else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - h = [0, Sx_runtime[25].call(null, state, z), 0], - i = Sx_runtime[1].call(null, cst_inc, h), - val = trampoline(eval_expr(Sx_runtime[17].call(null, args, i), env)), - j = Sx_types[69].call(null, arg); - Sx_runtime[11].call(null, attrs, j, val); + h = [0, Sx_runtime[26].call(null, state, z), 0], + i = Sx_runtime[2].call(null, cst_inc, h), + val = trampoline(eval_expr(Sx_runtime[18].call(null, args, i), env)), + j = Sx_types[73].call(null, arg); + Sx_runtime[12].call(null, attrs, j, val); var - k = [0, Sx_runtime[25].call(null, state, A), 0], + k = [0, Sx_runtime[26].call(null, state, A), 0], l = [0, state, [0, D, - [0, C, [0, B, [0, Sx_runtime[1].call(null, cst_inc, k), 0]]]]]; - return Sx_runtime[1].call(null, cst_assoc, l); + [0, C, [0, B, [0, Sx_runtime[2].call(null, cst_inc, k), 0]]]]]; + return Sx_runtime[2].call(null, cst_assoc, l); } - children[1] = Sx_runtime[10].call(null, children[1], arg); + children[1] = Sx_runtime[11].call(null, children[1], arg); var - m = [0, Sx_runtime[25].call(null, state, E), 0], - n = [0, state, [0, F, [0, Sx_runtime[1].call(null, cst_inc, m), 0]]]; - return Sx_runtime[1].call(null, cst_assoc, n); + m = [0, Sx_runtime[26].call(null, state, E), 0], + n = [0, state, [0, F, [0, Sx_runtime[2].call(null, cst_inc, m), 0]]]; + return Sx_runtime[2].call(null, cst_assoc, n); }, [7, d], a); @@ -64638,7 +72207,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= } function eval_cond(clauses, env){ var a = cond_scheme_p(clauses); - return Sx_types[67].call(null, a) + return Sx_types[71].call(null, a) ? eval_cond_scheme(clauses, env) : eval_cond_clojure(clauses, env); } @@ -64646,17 +72215,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function eval_cond_scheme(clauses$1, env){ var clauses = clauses$1; for(;;){ - var a = Sx_runtime[33].call(null, clauses); - if(Sx_types[67].call(null, a)) return 0; + var a = Sx_runtime[34].call(null, clauses); + if(Sx_types[71].call(null, a)) return 0; var - clause = Sx_runtime[14].call(null, clauses), - test = Sx_runtime[14].call(null, clause), - body = Sx_runtime[17].call(null, clause, G), - b = Sx_runtime[113].call(null, test); - if(Sx_types[67].call(null, b)) return body; + clause = Sx_runtime[15].call(null, clauses), + test = Sx_runtime[15].call(null, clause), + body = Sx_runtime[18].call(null, clause, G), + b = Sx_runtime[115].call(null, test); + if(Sx_types[71].call(null, b)) return body; var c = trampoline(eval_expr(test, env)); - if(Sx_types[67].call(null, c)) return body; - var clauses$0 = Sx_runtime[15].call(null, clauses); + if(Sx_types[71].call(null, c)) return body; + var clauses$0 = Sx_runtime[16].call(null, clauses); clauses = clauses$0; } } @@ -64669,17 +72238,17 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= var clauses = clauses$1; for(;;){ var - a = [0, Sx_runtime[24].call(null, clauses), H], - b = Sx_runtime[1].call(null, cst$0, a); - if(Sx_types[67].call(null, b)) return 0; + a = [0, Sx_runtime[25].call(null, clauses), H], + b = Sx_runtime[2].call(null, cst$0, a); + if(Sx_types[71].call(null, b)) return 0; var - test = Sx_runtime[14].call(null, clauses), - body = Sx_runtime[17].call(null, clauses, I), - c = Sx_runtime[113].call(null, test); - if(Sx_types[67].call(null, c)) return body; + test = Sx_runtime[15].call(null, clauses), + body = Sx_runtime[18].call(null, clauses, I), + c = Sx_runtime[115].call(null, test); + if(Sx_types[71].call(null, c)) return body; var d = trampoline(eval_expr(test, env)); - if(Sx_types[67].call(null, d)) return body; - var clauses$0 = Sx_runtime[1].call(null, cst_slice, [0, clauses, J]); + if(Sx_types[71].call(null, d)) return body; + var clauses$0 = Sx_runtime[2].call(null, cst_slice, [0, clauses, J]); clauses = clauses$0; } } @@ -64693,37 +72262,37 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= N = [2, 1.]; function process_bindings(bindings, env){ var - local = Sx_runtime[80].call(null, env), - a = Sx_runtime[5].call(null, bindings); + local = Sx_runtime[81].call(null, env), + a = Sx_runtime[6].call(null, bindings); Stdlib_List[18].call (null, function(pair){ var - b = [0, Sx_runtime[73].call(null, pair), K], - and = Sx_runtime[1].call(null, cst, b); - if(Sx_types[67].call(null, and)) + b = [0, Sx_runtime[74].call(null, pair), K], + and = Sx_runtime[2].call(null, cst, b); + if(Sx_types[71].call(null, and)) var - c = [0, Sx_runtime[24].call(null, pair), L], - a = Sx_runtime[1].call(null, cst$1, c); + c = [0, Sx_runtime[25].call(null, pair), L], + a = Sx_runtime[2].call(null, cst$1, c); else var a = and; - if(Sx_types[67].call(null, a)){ + if(Sx_types[71].call(null, a)){ var - d = Sx_runtime[14].call(null, pair), - e = [0, Sx_runtime[73].call(null, d), M], - f = Sx_runtime[1].call(null, cst, e); - if(Sx_types[67].call(null, f)) + d = Sx_runtime[15].call(null, pair), + e = [0, Sx_runtime[74].call(null, d), M], + f = Sx_runtime[2].call(null, cst, e); + if(Sx_types[71].call(null, f)) var - g = Sx_runtime[14].call(null, pair), - name = Sx_types[68].call(null, g); + g = Sx_runtime[15].call(null, pair), + name = Sx_types[72].call(null, g); else var - j = [0, Sx_runtime[14].call(null, pair), 0], - name = [3, Sx_runtime[4].call(null, j)]; + j = [0, Sx_runtime[15].call(null, pair), 0], + name = [3, Sx_runtime[5].call(null, j)]; var - h = trampoline(eval_expr(Sx_runtime[17].call(null, pair, N), local)), - i = Sx_runtime[3].call(null, name); - Sx_runtime[77].call(null, local, i, h); + h = trampoline(eval_expr(Sx_runtime[18].call(null, pair, N), local)), + i = Sx_runtime[4].call(null, name); + Sx_runtime[78].call(null, local, i, h); } return 0; }, @@ -64752,43 +72321,43 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= _ = [2, 1.]; function is_render_expr_p(expr){ var - a = [0, Sx_runtime[73].call(null, expr), O], - b = Sx_runtime[1].call(null, cst, a), - or = [0, 1 - Sx_types[67].call(null, b)], - or$0 = Sx_types[67].call(null, or) ? or : Sx_runtime[33].call(null, expr); - if(Sx_types[67].call(null, or$0)) return P; + a = [0, Sx_runtime[74].call(null, expr), O], + b = Sx_runtime[2].call(null, cst, a), + or = [0, 1 - Sx_types[71].call(null, b)], + or$0 = Sx_types[71].call(null, or) ? or : Sx_runtime[34].call(null, expr); + if(Sx_types[71].call(null, or$0)) return P; var - h = Sx_runtime[14].call(null, expr), - c = [0, Sx_runtime[73].call(null, h), Q], - d = Sx_runtime[1].call(null, cst, c), - e = [0, 1 - Sx_types[67].call(null, d)]; - if(Sx_types[67].call(null, e)) return R; + h = Sx_runtime[15].call(null, expr), + c = [0, Sx_runtime[74].call(null, h), Q], + d = Sx_runtime[2].call(null, cst, c), + e = [0, 1 - Sx_types[71].call(null, d)]; + if(Sx_types[71].call(null, e)) return R; var - n = Sx_types[68].call(null, h), - or$1 = Sx_runtime[1].call(null, cst, [0, n, S]); - if(Sx_types[67].call(null, or$1)) return or$1; - var or$2 = Sx_runtime[1].call(null, cst, [0, n, T]); - if(Sx_types[67].call(null, or$2)) return or$2; - var or$3 = Sx_runtime[1].call(null, cst_starts_with, [0, n, U]); - if(Sx_types[67].call(null, or$3)) return or$3; - var or$4 = Sx_runtime[1].call(null, cst_starts_with, [0, n, V]); - if(Sx_types[67].call(null, or$4)) return or$4; + n = Sx_types[72].call(null, h), + or$1 = Sx_runtime[2].call(null, cst, [0, n, S]); + if(Sx_types[71].call(null, or$1)) return or$1; + var or$2 = Sx_runtime[2].call(null, cst, [0, n, T]); + if(Sx_types[71].call(null, or$2)) return or$2; + var or$3 = Sx_runtime[2].call(null, cst_starts_with, [0, n, U]); + if(Sx_types[71].call(null, or$3)) return or$3; + var or$4 = Sx_runtime[2].call(null, cst_starts_with, [0, n, V]); + if(Sx_types[71].call(null, or$4)) return or$4; var or$5 = - Sx_runtime[1].call(null, cst_contains, [0, html_tags_val, [0, n, 0]]); - if(Sx_types[67].call(null, or$5)) return or$5; + Sx_runtime[2].call(null, cst_contains, [0, html_tags_val, [0, n, 0]]); + if(Sx_types[71].call(null, or$5)) return or$5; var - f = [0, Sx_runtime[1].call(null, "index-of", [0, n, X]), W], - and = Sx_runtime[1].call(null, cst$5, f); - if(! Sx_types[67].call(null, and)) return and; + f = [0, Sx_runtime[2].call(null, "index-of", [0, n, X]), W], + and = Sx_runtime[2].call(null, cst$5, f); + if(! Sx_types[71].call(null, and)) return and; var - g = [0, Sx_runtime[24].call(null, expr), Y], - and$0 = Sx_runtime[1].call(null, cst$5, g); - if(! Sx_types[67].call(null, and$0)) return and$0; + g = [0, Sx_runtime[25].call(null, expr), Y], + and$0 = Sx_runtime[2].call(null, cst$5, g); + if(! Sx_types[71].call(null, and$0)) return and$0; var - i = Sx_runtime[17].call(null, expr, _), - j = [0, Sx_runtime[73].call(null, i), Z]; - return Sx_runtime[1].call(null, cst, j); + i = Sx_runtime[18].call(null, expr, _), + j = [0, Sx_runtime[74].call(null, i), Z]; + return Sx_runtime[2].call(null, cst, j); } var cst_class = "class", @@ -64804,50 +72373,50 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ai = [3, cst_style]; function merge_spread_attrs(target, spread_dict){ var - a = Sx_runtime[1].call(null, "keys", [0, spread_dict, 0]), - b = Sx_runtime[5].call(null, a); + a = Sx_runtime[2].call(null, "keys", [0, spread_dict, 0]), + b = Sx_runtime[6].call(null, a); Stdlib_List[18].call (null, function(key){ var val = dict_get(spread_dict, key), - c = Sx_runtime[1].call(null, cst, [0, key, $]); - if(Sx_types[67].call(null, c)){ + c = Sx_runtime[2].call(null, cst, [0, key, $]); + if(Sx_types[71].call(null, c)){ var existing = dict_get(target, aa); - if(Sx_types[67].call(null, existing)) + if(Sx_types[71].call(null, existing)) var - d = Sx_runtime[1].call(null, cst, [0, existing, ab]), - a = [0, 1 - Sx_types[67].call(null, d)]; + d = Sx_runtime[2].call(null, cst, [0, existing, ab]), + a = [0, 1 - Sx_types[71].call(null, d)]; else var a = existing; var e = - Sx_types[67].call(null, a) + Sx_types[71].call(null, a) ? [3, - Sx_runtime[4].call(null, [0, existing, [0, ac, [0, val, 0]]])] + Sx_runtime[5].call(null, [0, existing, [0, ac, [0, val, 0]]])] : val; - Sx_runtime[11].call(null, target, ad, e); + Sx_runtime[12].call(null, target, ad, e); } else{ - var f = Sx_runtime[1].call(null, cst, [0, key, ae]); - if(Sx_types[67].call(null, f)){ + var f = Sx_runtime[2].call(null, cst, [0, key, ae]); + if(Sx_types[71].call(null, f)){ var existing$0 = dict_get(target, af); - if(Sx_types[67].call(null, existing$0)) + if(Sx_types[71].call(null, existing$0)) var - g = Sx_runtime[1].call(null, cst, [0, existing$0, ag]), - b = [0, 1 - Sx_types[67].call(null, g)]; + g = Sx_runtime[2].call(null, cst, [0, existing$0, ag]), + b = [0, 1 - Sx_types[71].call(null, g)]; else var b = existing$0; var h = - Sx_types[67].call(null, b) + Sx_types[71].call(null, b) ? [3, - Sx_runtime[4].call(null, [0, existing$0, [0, ah, [0, val, 0]]])] + Sx_runtime[5].call(null, [0, existing$0, [0, ah, [0, val, 0]]])] : val; - Sx_runtime[11].call(null, target, ai, h); + Sx_runtime[12].call(null, target, ai, h); } else - Sx_runtime[11].call(null, target, key, val); + Sx_runtime[12].call(null, target, key, val); } return 0; }, @@ -64884,16 +72453,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= function render_to_html$0(counter, expr$1, env$1){ var expr = expr$1, env = env$1; for(;;){ - var match_val = Sx_runtime[73].call(null, expr); + var match_val = Sx_runtime[74].call(null, expr); if(caml_equal(match_val, aj)) return ak; if(caml_equal(match_val, al)) return escape_html_val(expr); if(caml_equal(match_val, am)) - return [3, Sx_runtime[4].call(null, [0, expr, 0])]; + return [3, Sx_runtime[5].call(null, [0, expr, 0])]; if(caml_equal(match_val, an)) - return Sx_types[67].call(null, expr) ? ao : ap; + return Sx_types[71].call(null, expr) ? ao : ap; if(caml_equal(match_val, aq)){ - var c = Sx_runtime[33].call(null, expr); - return Sx_types[67].call(null, c) + var c = Sx_runtime[34].call(null, expr); + return Sx_types[71].call(null, c) ? ar : counter < 50 @@ -64908,10 +72477,10 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= : caml_trampoline_return(render_value_to_html$0, [0, a, env]); } if(caml_equal(match_val, at)) - return escape_html_val(Sx_types[69].call(null, expr)); + return escape_html_val(Sx_types[73].call(null, expr)); if(caml_equal(match_val, au)) return raw_html_content(expr); if(caml_equal(match_val, av)){ - scope_emit(aw, Sx_runtime[70].call(null, expr)); + scope_emit(aw, Sx_runtime[71].call(null, expr)); return ax; } if(! caml_equal(match_val, ay)){ @@ -64921,8 +72490,8 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= : caml_trampoline_return(render_value_to_html$0, [0, b, env]); } var - env$0 = Sx_types[89].call(null, expr), - expr$0 = Sx_types[88].call(null, expr); + env$0 = Sx_types[93].call(null, expr), + expr$0 = Sx_types[92].call(null, expr); expr = expr$0; env = env$0; } @@ -64945,25 +72514,25 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= aK = [3, cst$6], aL = [3, cst_thunk]; function render_value_to_html$0(counter, val, env){ - var match_val = Sx_runtime[73].call(null, val); + var match_val = Sx_runtime[74].call(null, val); if(caml_equal(match_val, az)) return aA; if(caml_equal(match_val, aB)) return escape_html_val(val); if(caml_equal(match_val, aC)) - return [3, Sx_runtime[4].call(null, [0, val, 0])]; + return [3, Sx_runtime[5].call(null, [0, val, 0])]; if(caml_equal(match_val, aD)) - return Sx_types[67].call(null, val) ? aE : aF; + return Sx_types[71].call(null, val) ? aE : aF; if(caml_equal(match_val, aG)) return counter < 50 ? render_list_to_html$0(counter + 1 | 0, val, env) : caml_trampoline_return(render_list_to_html$0, [0, val, env]); if(caml_equal(match_val, aH)) return raw_html_content(val); if(caml_equal(match_val, aI)){ - scope_emit(aJ, Sx_runtime[70].call(null, val)); + scope_emit(aJ, Sx_runtime[71].call(null, val)); return aK; } if(! caml_equal(match_val, aL)) - return escape_html_val([3, Sx_runtime[4].call(null, [0, val, 0])]); - var a = Sx_types[89].call(null, val), b = Sx_types[88].call(null, val); + return escape_html_val([3, Sx_runtime[5].call(null, [0, val, 0])]); + var a = Sx_types[93].call(null, val), b = Sx_types[92].call(null, val); return counter < 50 ? render_to_html$0(counter + 1 | 0, b, a) : caml_trampoline_return(render_to_html$0, [0, b, a]); @@ -64972,7 +72541,7 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= return caml_trampoline(render_value_to_html$0(0, val, env)); } function render_html_form_p(name){ - return Sx_runtime[1].call + return Sx_runtime[2].call (null, cst_contains, [0, render_html_forms, [0, name, 0]]); } var @@ -65010,16 +72579,16 @@ d5=133,bj=102,bi="Re__Hash_set",cC="Stdlib__Type",cD=114,fJ="Stdlib__Buffer",d0= ba = [3, "