PNG  IHDRX cHRMz&u0`:pQ<bKGD pHYsodtIME MeqIDATxw]Wug^Qd˶ 6`!N:!@xI~)%7%@Bh&`lnjVF29gΨ4E$|>cɚ{gk= %,a KX%,a KX%,a KX%,a KX%,a KX%,a KX%, b` ǟzeאfp]<!SJmɤY޲ڿ,%c ~ع9VH.!Ͳz&QynֺTkRR.BLHi٪:l;@(!MԴ=žI,:o&N'Kù\vRmJ雵֫AWic H@" !: Cé||]k-Ha oݜ:y F())u]aG7*JV@J415p=sZH!=!DRʯvɱh~V\}v/GKY$n]"X"}t@ xS76^[bw4dsce)2dU0 CkMa-U5tvLƀ~mlMwfGE/-]7XAƟ`׮g ewxwC4\[~7@O-Q( a*XGƒ{ ՟}$_y3tĐƤatgvێi|K=uVyrŲlLӪuܿzwk$m87k( `múcE)"@rK( z4$D; 2kW=Xb$V[Ru819קR~qloѱDyįݎ*mxw]y5e4K@ЃI0A D@"BDk_)N\8͜9dz"fK0zɿvM /.:2O{ Nb=M=7>??Zuo32 DLD@D| &+֎C #B8ַ`bOb $D#ͮҪtx]%`ES`Ru[=¾!@Od37LJ0!OIR4m]GZRJu$‡c=%~s@6SKy?CeIh:[vR@Lh | (BhAMy=݃  G"'wzn޺~8ԽSh ~T*A:xR[ܹ?X[uKL_=fDȊ؂p0}7=D$Ekq!/t.*2ʼnDbŞ}DijYaȲ(""6HA;:LzxQ‘(SQQ}*PL*fc\s `/d'QXW, e`#kPGZuŞuO{{wm[&NBTiiI0bukcA9<4@SӊH*؎4U/'2U5.(9JuDfrޱtycU%j(:RUbArLֺN)udA':uGQN"-"Is.*+k@ `Ojs@yU/ H:l;@yyTn}_yw!VkRJ4P)~y#)r,D =ě"Q]ci'%HI4ZL0"MJy 8A{ aN<8D"1#IJi >XjX֔#@>-{vN!8tRݻ^)N_╗FJEk]CT՟ YP:_|H1@ CBk]yKYp|og?*dGvzنzӴzjֺNkC~AbZƷ`.H)=!QͷVTT(| u78y֮}|[8-Vjp%2JPk[}ԉaH8Wpqhwr:vWª<}l77_~{s۴V+RCģ%WRZ\AqHifɤL36: #F:p]Bq/z{0CU6ݳEv_^k7'>sq*+kH%a`0ԣisqにtү04gVgW΂iJiS'3w.w}l6MC2uԯ|>JF5`fV5m`Y**Db1FKNttu]4ccsQNnex/87+}xaUW9y>ͯ骵G{䩓Գ3+vU}~jJ.NFRD7<aJDB1#ҳgSb,+CS?/ VG J?|?,2#M9}B)MiE+G`-wo߫V`fio(}S^4e~V4bHOYb"b#E)dda:'?}׮4繏`{7Z"uny-?ǹ;0MKx{:_pÚmFמ:F " .LFQLG)Q8qN q¯¯3wOvxDb\. BKD9_NN &L:4D{mm o^tֽ:q!ƥ}K+<"m78N< ywsard5+вz~mnG)=}lYݧNj'QJS{S :UYS-952?&O-:W}(!6Mk4+>A>j+i|<<|;ر^߉=HE|V#F)Emm#}/"y GII웻Jі94+v뾧xu~5C95~ūH>c@덉pʃ1/4-A2G%7>m;–Y,cyyaln" ?ƻ!ʪ<{~h~i y.zZB̃/,雋SiC/JFMmBH&&FAbϓO^tubbb_hZ{_QZ-sύodFgO(6]TJA˯#`۶ɟ( %$&+V'~hiYy>922 Wp74Zkq+Ovn錄c>8~GqܲcWꂎz@"1A.}T)uiW4="jJ2W7mU/N0gcqܗOO}?9/wìXžΏ0 >֩(V^Rh32!Hj5`;O28؇2#ݕf3 ?sJd8NJ@7O0 b־?lldщ̡&|9C.8RTWwxWy46ah嘦mh٤&l zCy!PY?: CJyв]dm4ǜҐR޻RլhX{FƯanшQI@x' ao(kUUuxW_Ñ줮[w8 FRJ(8˼)_mQ _!RJhm=!cVmm ?sFOnll6Qk}alY}; "baӌ~M0w,Ggw2W:G/k2%R,_=u`WU R.9T"v,<\Ik޽/2110Ӿxc0gyC&Ny޽JҢrV6N ``یeA16"J³+Rj*;BϜkZPJaÍ<Jyw:NP8/D$ 011z֊Ⱳ3ι֘k1V_"h!JPIΣ'ɜ* aEAd:ݺ>y<}Lp&PlRfTb1]o .2EW\ͮ]38؋rTJsǏP@芎sF\> P^+dYJLbJ C-xϐn> ι$nj,;Ǖa FU *择|h ~izť3ᤓ`K'-f tL7JK+vf2)V'-sFuB4i+m+@My=O҈0"|Yxoj,3]:cо3 $#uŘ%Y"y죯LebqtҢVzq¼X)~>4L׶m~[1_k?kxֺQ`\ |ٛY4Ѯr!)N9{56(iNq}O()Em]=F&u?$HypWUeB\k]JɩSع9 Zqg4ZĊo oMcjZBU]B\TUd34ݝ~:7ڶSUsB0Z3srx 7`:5xcx !qZA!;%͚7&P H<WL!džOb5kF)xor^aujƍ7 Ǡ8/p^(L>ὴ-B,{ۇWzֺ^k]3\EE@7>lYBȝR.oHnXO/}sB|.i@ɥDB4tcm,@ӣgdtJ!lH$_vN166L__'Z)y&kH;:,Y7=J 9cG) V\hjiE;gya~%ks_nC~Er er)muuMg2;֫R)Md) ,¶ 2-wr#F7<-BBn~_(o=KO㭇[Xv eN_SMgSҐ BS헃D%g_N:/pe -wkG*9yYSZS.9cREL !k}<4_Xs#FmҶ:7R$i,fi!~' # !6/S6y@kZkZcX)%5V4P]VGYq%H1!;e1MV<!ϐHO021Dp= HMs~~a)ަu7G^];git!Frl]H/L$=AeUvZE4P\.,xi {-~p?2b#amXAHq)MWǾI_r`S Hz&|{ +ʖ_= (YS(_g0a03M`I&'9vl?MM+m~}*xT۲(fY*V4x@29s{DaY"toGNTO+xCAO~4Ϳ;p`Ѫ:>Ҵ7K 3}+0 387x\)a"/E>qpWB=1 ¨"MP(\xp߫́A3+J] n[ʼnӼaTbZUWb={~2ooKױӰp(CS\S筐R*JغV&&"FA}J>G֐p1ٸbk7 ŘH$JoN <8s^yk_[;gy-;߉DV{c B yce% aJhDȶ 2IdйIB/^n0tNtџdcKj4϶v~- CBcgqx9= PJ) dMsjpYB] GD4RDWX +h{y`,3ꊕ$`zj*N^TP4L:Iz9~6s) Ga:?y*J~?OrMwP\](21sZUD ?ܟQ5Q%ggW6QdO+\@ ̪X'GxN @'4=ˋ+*VwN ne_|(/BDfj5(Dq<*tNt1х!MV.C0 32b#?n0pzj#!38}޴o1KovCJ`8ŗ_"]] rDUy޲@ Ȗ-;xџ'^Y`zEd?0„ DAL18IS]VGq\4o !swV7ˣι%4FѮ~}6)OgS[~Q vcYbL!wG3 7띸*E Pql8=jT\꘿I(z<[6OrR8ºC~ډ]=rNl[g|v TMTղb-o}OrP^Q]<98S¤!k)G(Vkwyqyr޽Nv`N/e p/~NAOk \I:G6]4+K;j$R:Mi #*[AȚT,ʰ,;N{HZTGMoּy) ]%dHء9Պ䠬|<45,\=[bƟ8QXeB3- &dҩ^{>/86bXmZ]]yޚN[(WAHL$YAgDKp=5GHjU&99v簪C0vygln*P)9^͞}lMuiH!̍#DoRBn9l@ xA/_v=ȺT{7Yt2N"4!YN`ae >Q<XMydEB`VU}u]嫇.%e^ánE87Mu\t`cP=AD/G)sI"@MP;)]%fH9'FNsj1pVhY&9=0pfuJ&gޤx+k:!r˭wkl03׼Ku C &ѓYt{.O.zҏ z}/tf_wEp2gvX)GN#I ݭ߽v/ .& и(ZF{e"=V!{zW`, ]+LGz"(UJp|j( #V4, 8B 0 9OkRrlɱl94)'VH9=9W|>PS['G(*I1==C<5"Pg+x'K5EMd؞Af8lG ?D FtoB[je?{k3zQ vZ;%Ɠ,]E>KZ+T/ EJxOZ1i #T<@ I}q9/t'zi(EMqw`mYkU6;[t4DPeckeM;H}_g pMww}k6#H㶏+b8雡Sxp)&C $@'b,fPߑt$RbJ'vznuS ~8='72_`{q纶|Q)Xk}cPz9p7O:'|G~8wx(a 0QCko|0ASD>Ip=4Q, d|F8RcU"/KM opKle M3#i0c%<7׿p&pZq[TR"BpqauIp$ 8~Ĩ!8Սx\ւdT>>Z40ks7 z2IQ}ItԀ<-%S⍤};zIb$I 5K}Q͙D8UguWE$Jh )cu4N tZl+[]M4k8֦Zeq֮M7uIqG 1==tLtR,ƜSrHYt&QP윯Lg' I,3@P'}'R˪e/%-Auv·ñ\> vDJzlӾNv5:|K/Jb6KI9)Zh*ZAi`?S {aiVDԲuy5W7pWeQJk֤#5&V<̺@/GH?^τZL|IJNvI:'P=Ϛt"¨=cud S Q.Ki0 !cJy;LJR;G{BJy޺[^8fK6)=yʊ+(k|&xQ2`L?Ȓ2@Mf 0C`6-%pKpm')c$׻K5[J*U[/#hH!6acB JA _|uMvDyk y)6OPYjœ50VT K}cǻP[ $:]4MEA.y)|B)cf-A?(e|lɉ#P9V)[9t.EiQPDѠ3ϴ;E:+Օ t ȥ~|_N2,ZJLt4! %ա]u {+=p.GhNcŞQI?Nd'yeh n7zi1DB)1S | S#ًZs2|Ɛy$F SxeX{7Vl.Src3E℃Q>b6G ўYCmtկ~=K0f(=LrAS GN'ɹ9<\!a`)֕y[uՍ[09` 9 +57ts6}b4{oqd+J5fa/,97J#6yν99mRWxJyѡyu_TJc`~W>l^q#Ts#2"nD1%fS)FU w{ܯ R{ ˎ󅃏џDsZSQS;LV;7 Od1&1n$ N /.q3~eNɪ]E#oM~}v֯FڦwyZ=<<>Xo稯lfMFV6p02|*=tV!c~]fa5Y^Q_WN|Vs 0ҘދU97OI'N2'8N֭fgg-}V%y]U4 峧p*91#9U kCac_AFңĪy뚇Y_AiuYyTTYЗ-(!JFLt›17uTozc. S;7A&&<ԋ5y;Ro+:' *eYJkWR[@F %SHWP 72k4 qLd'J "zB6{AC0ƁA6U.'F3:Ȅ(9ΜL;D]m8ڥ9}dU "v!;*13Rg^fJyShyy5auA?ɩGHRjo^]׽S)Fm\toy 4WQS@mE#%5ʈfFYDX ~D5Ϡ9tE9So_aU4?Ѽm%&c{n>.KW1Tlb}:j uGi(JgcYj0qn+>) %\!4{LaJso d||u//P_y7iRJ߬nHOy) l+@$($VFIQ9%EeKʈU. ia&FY̒mZ=)+qqoQn >L!qCiDB;Y<%} OgBxB!ØuG)WG9y(Ą{_yesuZmZZey'Wg#C~1Cev@0D $a@˲(.._GimA:uyw֬%;@!JkQVM_Ow:P.s\)ot- ˹"`B,e CRtaEUP<0'}r3[>?G8xU~Nqu;Wm8\RIkբ^5@k+5(By'L&'gBJ3ݶ!/㮻w҅ yqPWUg<e"Qy*167΃sJ\oz]T*UQ<\FԎ`HaNmڜ6DysCask8wP8y9``GJ9lF\G g's Nn͵MLN֪u$| /|7=]O)6s !ĴAKh]q_ap $HH'\1jB^s\|- W1:=6lJBqjY^LsPk""`]w)󭃈,(HC ?䔨Y$Sʣ{4Z+0NvQkhol6C.婧/u]FwiVjZka&%6\F*Ny#8O,22+|Db~d ~Çwc N:FuuCe&oZ(l;@ee-+Wn`44AMK➝2BRՈt7g*1gph9N) *"TF*R(#'88pm=}X]u[i7bEc|\~EMn}P瘊J)K.0i1M6=7'_\kaZ(Th{K*GJyytw"IO-PWJk)..axӝ47"89Cc7ĐBiZx 7m!fy|ϿF9CbȩV 9V-՛^pV̌ɄS#Bv4-@]Vxt-Z, &ֺ*diؠ2^VXbs֔Ìl.jQ]Y[47gj=幽ex)A0ip׳ W2[ᎇhuE^~q흙L} #-b۸oFJ_QP3r6jr+"nfzRJTUqoaۍ /$d8Mx'ݓ= OՃ| )$2mcM*cЙj}f };n YG w0Ia!1Q.oYfr]DyISaP}"dIӗթO67jqR ҊƐƈaɤGG|h;t]䗖oSv|iZqX)oalv;۩meEJ\!8=$4QU4Xo&VEĊ YS^E#d,yX_> ۘ-e\ "Wa6uLĜZi`aD9.% w~mB(02G[6y.773a7 /=o7D)$Z 66 $bY^\CuP. (x'"J60׿Y:Oi;F{w佩b+\Yi`TDWa~|VH)8q/=9!g߆2Y)?ND)%?Ǐ`k/sn:;O299yB=a[Ng 3˲N}vLNy;*?x?~L&=xyӴ~}q{qE*IQ^^ͧvü{Huu=R|>JyUlZV, B~/YF!Y\u_ݼF{_C)LD]m {H 0ihhadd nUkf3oٺCvE\)QJi+֥@tDJkB$1!Đr0XQ|q?d2) Ӣ_}qv-< FŊ߫%roppVBwü~JidY4:}L6M7f٬F "?71<2#?Jyy4뷢<_a7_=Q E=S1И/9{+93֮E{ǂw{))?maÆm(uLE#lïZ  ~d];+]h j?!|$F}*"4(v'8s<ŏUkm7^7no1w2ؗ}TrͿEk>p'8OB7d7R(A 9.*Mi^ͳ; eeUwS+C)uO@ =Sy]` }l8^ZzRXj[^iUɺ$tj))<sbDJfg=Pk_{xaKo1:-uyG0M ԃ\0Lvuy'ȱc2Ji AdyVgVh!{]/&}}ċJ#%d !+87<;qN޼Nفl|1N:8ya  8}k¾+-$4FiZYÔXk*I&'@iI99)HSh4+2G:tGhS^繿 Kتm0 вDk}֚+QT4;sC}rՅE,8CX-e~>G&'9xpW,%Fh,Ry56Y–hW-(v_,? ; qrBk4-V7HQ;ˇ^Gv1JVV%,ik;D_W!))+BoS4QsTM;gt+ndS-~:11Sgv!0qRVh!"Ȋ(̦Yl.]PQWgٳE'`%W1{ndΗBk|Ž7ʒR~,lnoa&:ü$ 3<a[CBݮwt"o\ePJ=Hz"_c^Z.#ˆ*x z̝grY]tdkP*:97YľXyBkD4N.C_[;F9`8& !AMO c `@BA& Ost\-\NX+Xp < !bj3C&QL+*&kAQ=04}cC!9~820G'PC9xa!w&bo_1 Sw"ܱ V )Yl3+ס2KoXOx]"`^WOy :3GO0g;%Yv㐫(R/r (s } u B &FeYZh0y> =2<Ϟc/ -u= c&׭,.0"g"7 6T!vl#sc>{u/Oh Bᾈ)۴74]x7 gMӒ"d]U)}" v4co[ ɡs 5Gg=XR14?5A}D "b{0$L .\4y{_fe:kVS\\O]c^W52LSBDM! C3Dhr̦RtArx4&agaN3Cf<Ԉp4~ B'"1@.b_/xQ} _߃҉/gٓ2Qkqp0շpZ2fԫYz< 4L.Cyυι1t@鎫Fe sYfsF}^ V}N<_`p)alٶ "(XEAVZ<)2},:Ir*#m_YӼ R%a||EƼIJ,,+f"96r/}0jE/)s)cjW#w'Sʯ5<66lj$a~3Kʛy 2:cZ:Yh))+a߭K::N,Q F'qB]={.]h85C9cr=}*rk?vwV렵ٸW Rs%}rNAkDv|uFLBkWY YkX מ|)1!$#3%y?pF<@<Rr0}: }\J [5FRxY<9"SQdE(Q*Qʻ)q1E0B_O24[U'],lOb ]~WjHޏTQ5Syu wq)xnw8~)c 쫬gٲߠ H% k5dƝk> kEj,0% b"vi2Wس_CuK)K{n|>t{P1򨾜j>'kEkƗBg*H%'_aY6Bn!TL&ɌOb{c`'d^{t\i^[uɐ[}q0lM˕G:‚4kb祔c^:?bpg… +37stH:0}en6x˟%/<]BL&* 5&fK9Mq)/iyqtA%kUe[ڛKN]Ě^,"`/ s[EQQm?|XJ߅92m]G.E΃ח U*Cn.j_)Tѧj̿30ڇ!A0=͜ar I3$C^-9#|pk!)?7.x9 @OO;WƝZBFU keZ75F6Tc6"ZȚs2y/1 ʵ:u4xa`C>6Rb/Yм)^=+~uRd`/|_8xbB0?Ft||Z\##|K 0>>zxv8۴吅q 8ĥ)"6>~\8:qM}#͚'ĉ#p\׶ l#bA?)|g g9|8jP(cr,BwV (WliVxxᡁ@0Okn;ɥh$_ckCgriv}>=wGzβ KkBɛ[˪ !J)h&k2%07δt}!d<9;I&0wV/ v 0<H}L&8ob%Hi|޶o&h1L|u֦y~󛱢8fٲUsւ)0oiFx2}X[zVYr_;N(w]_4B@OanC?gĦx>мgx>ΛToZoOMp>40>V Oy V9iq!4 LN,ˢu{jsz]|"R޻&'ƚ{53ўFu(<٪9:΋]B;)B>1::8;~)Yt|0(pw2N%&X,URBK)3\zz&}ax4;ǟ(tLNg{N|Ǽ\G#C9g$^\}p?556]/RP.90 k,U8/u776s ʪ_01چ|\N 0VV*3H鴃J7iI!wG_^ypl}r*jɤSR 5QN@ iZ#1ٰy;_\3\BQQ x:WJv츟ٯ$"@6 S#qe딇(/P( Dy~TOϻ<4:-+F`0||;Xl-"uw$Цi󼕝mKʩorz"mϺ$F:~E'ҐvD\y?Rr8_He@ e~O,T.(ފR*cY^m|cVR[8 JҡSm!ΆԨb)RHG{?MpqrmN>߶Y)\p,d#xۆWY*,l6]v0h15M˙MS8+EdI='LBJIH7_9{Caз*Lq,dt >+~ّeʏ?xԕ4bBAŚjﵫ!'\Ը$WNvKO}ӽmSşذqsOy?\[,d@'73'j%kOe`1.g2"e =YIzS2|zŐƄa\U,dP;jhhhaxǶ?КZ՚.q SE+XrbOu%\GتX(H,N^~]JyEZQKceTQ]VGYqnah;y$cQahT&QPZ*iZ8UQQM.qo/T\7X"u?Mttl2Xq(IoW{R^ ux*SYJ! 4S.Jy~ BROS[V|žKNɛP(L6V^|cR7i7nZW1Fd@ Ara{詑|(T*dN]Ko?s=@ |_EvF]׍kR)eBJc" MUUbY6`~V޴dJKß&~'d3i WWWWWW
Current Directory: /usr/lib64/guile/2.0/ccache/web
Viewing File: /usr/lib64/guile/2.0/ccache/web/server.go
GOOF----LE-8-2.0��]�4h�I] gguile� � gdefine-module*� � � gweb� gserver� � gfilenameS� fweb/server.scm� gimportsS� gsrfi� gsrfi-9�   � � ggnu�   � � grnrs� g bytevectors� � � gice-9� g binary-ports� � � grequest� � � gresponse� � � !gsystem� "grepl� #gerror-handling� $!"#� %$� &gcontrol� '&� ('� )giconv� *)� +*� , %(+ � -gexportsS� .gdefine-server-impl� /glookup-server-impl� 0gmake-server-impl� 1g server-impl?� 2gserver-impl-name� 3gserver-impl-open� 4gserver-impl-read� 5gserver-impl-write� 6gserver-impl-close� 7g open-server� 8g read-client� 9ghandle-request� :gsanitize-response� ;g write-client� <g close-server� =gserve-one-client� >g run-server� ?./0123456789:;<=>� @gset-current-module� A@� B@� Cg gettimeofday� Dg*timer*� Egpk� Fg print-elapsed� Ggmake-syntax-transformer� HG� IG� Jg debug-elapsed� Kgmacro� Lg $sc-dispatch� ML� NL� Og_� Pgany� QOP� Rg *time-debug?*� Sg syntax-object� Tgtop� UT� Vgribcage� Wgwho� XW� YU� Zf l-1e6f79399-8� [Z� \VXY[� ]V� ^gx� _^� `f l-1e6f79399-5� a`� bV_Ya� cU\]b� dghygiene� ed� fSFce� gg *unspecified*� hSgce� igsyntax-violation� ji� ki� lf-source expression failed to match any pattern� mg server-impl� ng%make-server-impl-procedure� oOPPPPP� pglambda� qgm-1e6f79399-12� rqT� sg t-1e6f79399-d� tg t-1e6f79399-e� ug t-1e6f79399-f� vgt-1e6f79399-10� wgt-1e6f79399-11� xstuvw� yrrrrr� zfl-1e6f79399-17� {fl-1e6f79399-18� |fl-1e6f79399-19� }fl-1e6f79399-1a� ~fl-1e6f79399-1b� z{|}~� �Vxy� �r� �fl-1e6f79399-14� ��� �V_��� �gshift� �g proc-name� �gargs� ���� �UU� �fl-1e8ba8b5a-2ba� �fl-1e8ba8b5a-2bb� ���� �V���� �gkey� �gvalue� �gname� �gformals� �gbody� ������� �UUUUU� �fl-1e8ba8b5a-2ad� �fl-1e8ba8b5a-2ae� �fl-1e8ba8b5a-2af� �fl-1e8ba8b5a-2b0� �fl-1e8ba8b5a-2b1� ������� �V���� �gmake-procedure-name� ��� �U� �fl-1e8ba8b5a-29d� ��� �V���� �fl-1e8ba8b5a-29c� ��� �V_Y�� �r�]��]]]]���� � �d  � �Sp��� �U�]�� �S��e� �gopen� �S��e� �gread� �S��e� �gwrite� �S��e� �gclose� �S��e� ������� �g make-struct� �g m-1e6f79399-b� ��T� �gt-1e8ba8b5a-38d� �gt-1e8ba8b5a-38c� �gt-1e8ba8b5a-38b� ����� �gm-1e8ba8b5a-38e� ��T� ����� �fl-1e8ba8b5a-392� �fl-1e8ba8b5a-393� �fl-1e8ba8b5a-394� ����� �V���� �g ctor-args� ��� �fl-1e8ba8b5a-37a� ��� �V�Y�� �gctor� �gfield� ���� �fl-1e8ba8b5a-376� �fl-1e8ba8b5a-377� ���� �V���� �gform� �g type-name� �gconstructor-spec� �g field-names� ������ �UUUU� �fl-1e8ba8b5a-36b� �fl-1e8ba8b5a-36c� �fl-1e8ba8b5a-36d� �fl-1e8ba8b5a-36e� ������ �V���� �g record-layout� �gfunctional-setters� �gsetters� �gcopier� �ggetters� �g constructor� �ggetter-identifiers� �gfield-identifiers� ���������� �UUUUUUUU� �fl-1e8ba8b5a-343� �fl-1e8ba8b5a-341� �fl-1e8ba8b5a-33f� �fl-1e8ba8b5a-33d� �fl-1e8ba8b5a-33b� �fl-1e8ba8b5a-339� �fl-1e8ba8b5a-337� �fl-1e8ba8b5a-335� ���������� �V���� �fl-1e8ba8b5a-334� ��� �V_Y�� ���]��]�]]]��]���� �S���� �Sm�e� �S ��� ���������� ����� �geach-any� �O��� �i� �i� �fWrong number of arguments� �g identifier?� ��� ��� �U]�� Sn�e� grecord-type-vtable� � � g pwpwpwpwpw� gdefault-record-printer� � � ������  gset-struct-vtable-name!�   �   �  gvtable-offset-user�   �  � g%server-impl?-procedure� gm-1e6f79399-27� T� gt-1e6f79399-26� � � fl-1e6f79399-2c� � V� fl-1e6f79399-29� � V_� ]�]]]]���� � Sp�� gobj� gt-1e8ba8b5a-47e� gt-1e8ba8b5a-478�  gt-1e8ba8b5a-479� !gt-1e8ba8b5a-47a� "gt-1e8ba8b5a-47d� #gt-1e8ba8b5a-47c� $gt-1e8ba8b5a-47b� % !"#$� &gm-1e8ba8b5a-47f� '&T� ('''''''� )fl-1e8ba8b5a-483� *fl-1e8ba8b5a-484� +fl-1e8ba8b5a-485� ,fl-1e8ba8b5a-486� -fl-1e8ba8b5a-487� .fl-1e8ba8b5a-488� /fl-1e8ba8b5a-489� 0)*+,-./� 1V%(0� 2g copier-id� 32� 4fl-1e8ba8b5a-476� 54� 6V3Y5� 7g ctor-name� 87� 9fl-1e8ba8b5a-46e� :9� ;V8Y:� <�� =fl-1e8ba8b5a-46c� >=� ?V<Y>� @glayout� A@� Bfl-1e8ba8b5a-46a� CB� DVAYC� Eg immutable?� FE� Gfl-1e8ba8b5a-468� HG� IVFYH� Jg field-count� KJ� Lfl-1e8ba8b5a-466� ML� NVKYM� Og getter-ids� PO� Qfl-1e8ba8b5a-463� RQ� SVPYR� Tg field-ids� UT� Vfl-1e8ba8b5a-460� WV� XVUYW� Ygpredicate-name� Zg field-spec� [E���YZ� \UUUUUU� ]fl-1e8ba8b5a-453� ^fl-1e8ba8b5a-454� _fl-1e8ba8b5a-455� `fl-1e8ba8b5a-456� afl-1e8ba8b5a-457� bfl-1e8ba8b5a-458� c]^_`ab� dV[\c� e�]�]1]]]]6];]?]D]I]N]S]Xd��� fSe�� gf� hgand� iShe�� jgstruct?� kSje�� lkf� mgeq?� nSme�� og struct-vtable� pSoe�� qpf� rU]� sSmre� tnqs� uilt� vgu� wU]� xSwe� ygthrow-bad-struct� zy� {y� |g%server-impl-name-procedure� }gfree-id� ~g %%on-error� gm-1e6f79399-33� �T� ��� �fl-1e6f79399-35� ��� �V_��� ��]��]]]]���� � �S~��� �}�� ��P� �g%%type� �gt-1e8ba8b5a-3a5� �gt-1e8ba8b5a-3a6� �gt-1e8ba8b5a-3a7� �gt-1e8ba8b5a-3a8� �gt-1e8ba8b5a-3a9� �gt-1e8ba8b5a-3aa� �gt-1e8ba8b5a-3ab� ��������� �gm-1e8ba8b5a-3ac� ��T� ��������� �fl-1e8ba8b5a-3b0� �fl-1e8ba8b5a-3b1� �fl-1e8ba8b5a-3b2� �fl-1e8ba8b5a-3b3� �fl-1e8ba8b5a-3b4� �fl-1e8ba8b5a-3b5� �fl-1e8ba8b5a-3b6� ��������� �V���� �ggetter� �gindex� ���� �fl-1e8ba8b5a-3a3� �fl-1e8ba8b5a-3a4� ���� �V���� ��O2� �UUU� �fl-1e8ba8b5a-39e� �fl-1e8ba8b5a-39f� �fl-1e8ba8b5a-3a0� ����� �V���� ��]��]�]]]�]���� �S���� �}�� �O��P� �gck� �gerr� �gs� ���� ���� �fl-1e6f79399-38� �fl-1e6f79399-39� ���� �V���� ���]��]]]]���� � �S���� �gquote� �S���� �U�]�� �Sm�e� ���� ��� �g%%index� �S���� �}�� �O��P� �fl-1e6f79399-3d� �fl-1e6f79399-3e� ���� �V���� ���]��]]]]���� � �S���� �S���� ��]�� �S �e� ���� ��� �g%%copier� �S���� �}�� �O��P� �fl-1e6f79399-42� �fl-1e6f79399-43� ���� �V���� ���]��]]]]���� � �S���� �S���� �g%%server-impl-set-fields� �U�]�� �S��e� ���� ��� �gt-1e6f79399-32� ��� �fl-1e6f79399-47� ��� �V���� ���]��]]]]���� � �Sp��� ���]��]�]]]�]���� �S���� ��� �gif� �S���� �Sm��� �So��� ���� �U�]�� �Sm�e� ����� �g struct-ref� �S���� ��]�� �S �e� ����� �Sy��� �S���� �S2�e� ���� ����� ������ ����� �U]�� �S|�e� g%server-impl-open-procedure� gm-1e6f79399-4e� T� � fl-1e6f79399-50� � V_� ]�]]]]���� � S~��  }�   P�  �]�]�]]]�]����  S� ��  } � O  P� � fl-1e6f79399-53� fl-1e6f79399-54� � V�� ]�]]]]���� � S��� S��� U]� Sme� � � S� �� }� O P� fl-1e6f79399-58� fl-1e6f79399-59�  � !V� � "!]�]]]]���� � #S�"�� $S�"�� %!]� &S %e� '$&� ('� )S� �� *})� +O *P� ,fl-1e6f79399-5d� -fl-1e6f79399-5e� .,-� /V�.� 0/]�]]]]���� � 1S�0�� 2S�0�� 3U/]� 4S�3e� 524� 65� 7gt-1e6f79399-4d� 87� 9fl-1e6f79399-62� :9� ;V8:� <;]�]]]]���� � =Sp<�� >�;]�]�]]]�]���� ?S�>�� @?� AS�>�� BSm>�� CSo>�� DC?� EU;]� FSmEe� GBDF� HS�>�� I;]� JS Ie� KH?J� LSy>�� MS�>�� NS3Ee� OMN� PL?O� QAGKP� R=@Q� SU]� TSSe� Ug%server-impl-read-procedure� Vgm-1e6f79399-69� WVT� XW� Yfl-1e6f79399-6b� ZY� [V_XZ� \W][�]]]]���� � ]S~\�� ^}]� _^P� `�][�]�]]]�]���� aS�`�� b}a� cO_bP� dWW� efl-1e6f79399-6e� ffl-1e6f79399-6f� gef� hV�dg� iWh][�]]]]���� � jS�i�� kS�i�� lUh][� mSmle� nkm� on� pS�`�� q}p� rO_qP� sfl-1e6f79399-73� tfl-1e6f79399-74� ust� vV�du� wWv][�]]]]���� � xS�w�� yS�w�� zv][� {S ze� |y{� }|� ~S�`�� }~� �O_P� �fl-1e6f79399-78� �fl-1e6f79399-79� ���� �V�d�� �W�][�]]]]���� � �S���� �S���� �U�][� �S��e� ���� ��� �gt-1e6f79399-68� ��� �fl-1e6f79399-7d� ��� �V�X�� �W�][�]]]]���� � �Sp��� ���][�]�]]]�]���� �S���� ��� �S���� �Sm��� �So��� ���� �U�][� �Sm�e� ����� �S���� ��][� �S �e� ����� �Sy��� �S���� �S4�e� ���� ����� ������ ����� �U][� �SU�e� �g%server-impl-write-procedure� �gm-1e6f79399-84� ��T� ��� �fl-1e6f79399-86� ��� �V_��� ��]��]]]]���� � �S~��� �}�� ��P� ��]��]�]]]�]���� �S���� �}�� �O��P� ���� �fl-1e6f79399-89� �fl-1e6f79399-8a� ���� �V���� ���]��]]]]���� � �S���� �S���� �U�]�� �Sm�e� ���� ��� �S���� �}�� �O��P� �fl-1e6f79399-8e� �fl-1e6f79399-8f� ���� �V���� ���]��]]]]���� � �S���� �S���� ��]�� �S �e� ���� ��� �S���� �}�� �O��P� �fl-1e6f79399-93� �fl-1e6f79399-94� ���� �V���� ���]��]]]]���� � �S���� �S���� �U�]�� �S��e� ���� ��� �gt-1e6f79399-83� ��� �fl-1e6f79399-98� ��� �V���� ���]��]]]]���� � �Sp��� ���]��]�]]]�]���� �S���� ��� �S���� �Sm��� �So��� ���� �U�]�� �Sm�e� ����� �S���� ��]�� �S �e� ����� �Sy��� �S���� �S5�e� ���� ����� ������ ����� �U]�� �S��e� �g%server-impl-close-procedure� gm-1e6f79399-9f� T� � fl-1e6f79399-a1� � V_� ]�]]]]���� � S~�� }�  P�  �]�]�]]]�]����  S� ��  } �  O  P� � fl-1e6f79399-a4� fl-1e6f79399-a5� � V�� ]�]]]]���� � S��� S��� U]� Sme� � � S� �� }� O P� fl-1e6f79399-a9� fl-1e6f79399-aa� �  V�� ! ]�]]]]���� � "S�!�� #S�!�� $ ]� %S $e� &#%� '&� (S� �� )}(� *O )P� +fl-1e6f79399-ae� ,fl-1e6f79399-af� -+,� .V�-� /.]�]]]]���� � 0S�/�� 1S�/�� 2U.]� 3S�2e� 413� 54� 6gt-1e6f79399-9e� 76� 8fl-1e6f79399-b3� 98� :V79� ;:]�]]]]���� � <Sp;�� =�:]�]�]]]�]���� >S�=�� ?>� @S�=�� ASm=�� BSo=�� CB>� DU:]� ESmDe� FACE� GS�=�� H:]� IS He� JG>I� KSy=�� LS�=�� MS6De� NLM� OK>N� P@FJO� Q<?P� RU]� SS�Re� Tgeach� UPP� VTU� WPV�� XPW�� YPX�� Zg %%set-fields� [gdummy� \gcheck?� ]gexpr� ^[\��]� _gm-1e6f79399-ba� `_T� a`����� bfl-1e6f79399-bf� cfl-1e6f79399-c0� dfl-1e6f79399-c1� efl-1e6f79399-c2� ffl-1e6f79399-c3� gbcdef� hV^ag� i`� jfl-1e6f79399-bc� kj� lV_ik� mgt-1e8ba8b5a-3c4� ngt-1e8ba8b5a-3c6� ogt-1e8ba8b5a-3c5� pmno� qgm-1e8ba8b5a-3c7� rqT� srrr� tfl-1e8ba8b5a-3cb� ufl-1e8ba8b5a-3cc� vfl-1e8ba8b5a-3cd� wtuv� xVpsw� yfl-1e8ba8b5a-3c1� zfl-1e8ba8b5a-3c2� {fl-1e8ba8b5a-3c3� |yz{� }V��|� ~�h]l�]x]]]}�� � SZ~�� �Uh]l� �Sm�e� �S2�e� �S3�e� �S4�e� �S5�e� �S6�e� ������� �gmap� ��� ��� �glist� �PPPPPP� �gdefine� �[������ �gm-1e6f79399-e7� ��T� ��UUUUU� �fl-1e6f79399-ec� �fl-1e6f79399-ed� �fl-1e6f79399-ee� �fl-1e6f79399-ef� �fl-1e6f79399-f0� �fl-1e6f79399-f1� �������� �V���� ��� �fl-1e6f79399-e9� ��� �V_��� �U�]�� �S��e� �S0�e� �S��e� �g module-ref� �gresolve-module� �gerror� �f expected a server impl in module� �f"expected a server-impl or a symbol� �gcall-with-error-handling� �g pass-keysS� �gquit� �g interrupt� ���� �gon-errorS� �g batch-mode?� �g backtrace� �gdebug� �g post-errorS� �g <response>� ��� ��� �g assoc-set!� �g copy-tree� �g%%<response>-set-fields� �gextend-response� �gbuild-response� �gversionS� �g <request>� ��� ��� �grequest-version� �gheadersS� �gresponse-version� �gstring?� �gresponse-content-type� �g text/plain� ��� �gassq-ref� �gcharset� �g content-type� �gappend� ��� ��� �futf-8� �gstring->bytevector� �g procedure?� �gcall-with-encoded-output-string� �g bytevector?� �gresponse-content-length� �gbytevector-length� �fbad content-length� �gcontent-length� �grequest-method� �gHEAD� �gresponse-must-not-include-body?� �f4response with this status code must not include body� �funexpected body type� �gvu8 �j� �gadapt-response-version� �gwith-stack-and-prompt� �gcodeS� �g provided?� �gposix� �gcatch� �g sigaction� �gSIGINT� �gthrow� �gcall-with-sigint� �gdefault-prompt-tag� �g %start-stack� ��� ��� �ghttp�C5hs]4   ,-?54B>"G4Ci5DRCEDh@�] 454���B@�����>"G C�gwho  :gt  :gfilenamefweb/server.scm� i ��  j ��  j �� k ��  k ��  k ��  k ��  k �� " l �� % l �� & l �� ' k �� , k �� 8 m ��  : gnameg print-elapsed�CFR4IJKNQRfhhT]$CCLgwho  gfilenamefweb/server.scm�  v ��   Cklh(a] 45$@6Ygx  "gtmp "gfilenamefweb/server.scm� s ��  " C5JRmh�]�C�gname  gopen  gread   gwrite   gclose   gfilenamefweb/server.scm� z ��   gnameg%make-server-impl-procedure�CnR4I0KNo�h�]C�g t-1e6f79399-d  g t-1e6f79399-e  g t-1e6f79399-f   gt-1e6f79399-10   gt-1e6f79399-11      C��0�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   Ch]C   Ckl hp�]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server.scm� z ��  n C50Rm�4 m>"G �ni�mRmhv]�$��CCngobj  gfilenamefweb/server.scm� z ��   gnameg%server-impl?-procedure�CR4I1KNQvh6]C.gt-1e6f79399-26    C��1�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   Cxh]C   Ckl hp�]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server.scm� z ��  n C51Rm{2hx]�& �C6pgs  gfilenamefweb/server.scm� z ��   gnameg%server-impl-name-procedure�C|R4I2KN���h:]��C2gerr  gs    C���h:]��C2gerr  gs    C���h:]��C2gerr  gs    CQ�h6]C.gt-1e6f79399-32    C��2�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   C�h]C   Cklh��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamefweb/server.scm� z ��  � C52Rm{3hx]�& �C6pgs  gfilenamefweb/server.scm� z ��   gnameg%server-impl-open-procedure�CR4I3KNh:]��C2gerr  gs    C#(h:]��C2gerr  gs    C+16h:]��C2gerr  gs    CQRh6]C.gt-1e6f79399-4d    C��3�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   CTh]C   Cklh��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamefweb/server.scm� z ��  � C53Rm{4h x]�& �C6pgs  gfilenamefweb/server.scm� z ��   gnameg%server-impl-read-procedure�CUR4I4KNcjoh:]��C2gerr  gs    Crx}h:]��C2gerr  gs    C���h:]��C2gerr  gs    CQ�h6]C.gt-1e6f79399-68    C��4�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   C�h]C   Cklh��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamefweb/server.scm� z ��  � C54Rm{5h y]�& �C6qgs  gfilenamefweb/server.scm� z ��   gnameg%server-impl-write-procedure�C�R4I5KN���h:]��C2gerr  gs    C���h:]��C2gerr  gs    C���h:]��C2gerr  gs    CQ�h6]C.gt-1e6f79399-83    C��5�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   C�h]C   Cklh��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamefweb/server.scm� z ��  � C55Rm{6h y]�& �C6qgs  gfilenamefweb/server.scm� z ��   gnameg%server-impl-close-procedure�C�R4I6KN h:]��C2gerr  gs    C"'h:]��C2gerr  gs    C*05h:]��C2gerr  gs    CQQh6]C.gt-1e6f79399-9e    C��6�hQ]L6Iga  gfilenamefweb/server.scm�  z ��  CO�hA]L69gfilenamefweb/server.scm�  z ��   CSh]C   Cklh��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamefweb/server.scm� z ��  � C56R4I�KNY����h v]45�����Cngdummy  gcheck?  gs   ggetter   gexpr      Cklh(�] 45$@6�gx  "gtmp "gfilenamefweb/server.scm� z ��  " g macro-typeg syntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4I.KN����h �]C�gdummy  gname  gopen   gread   gwrite   gclose      Cklh(�] 45$@6�gx  "gtmp "gfilenamefweb/server.scm� � ��  " g macro-typeg syntax-rules�gpatternsgnamegopengreadgwritegcloseC5.R����m� hx] "T�$E4455"6�$�&C"���"���6�$�&C"���"���gimpl  ugimpl " Rgfilenamefweb/server.scm� � �� � �� � ��  � ��  � ��  � ,��  � �� " � �� " � �� , � �� . � 4�� 7 � �� 7 � �� : � �� > � �� A � �� V � �� Z � �� Z � �� ] � �� a � �� d � ��  u gnameglookup-server-impl�g documentationk�Look up a server implementation. If IMPL is a server implementation already, it is returned directly. If it is a symbol, the binding named IMPL in the  (web server IMPL) module is looked up. Otherwise an error is signaled. Currently a server implementation is a somewhat opaque type, useful only for passing to other procedures in this module, like  read-client .�C/Rm{3h i]�& �" 45@agimpl  g open-params  gfilenamefweb/server.scm� � ��  � �� � ��  gnameg open-server�g documentationk�Open a server for the given implementation. Return one value, the new server object. The implementation's  open procedure is applied to OPEN-PARAMS, which should be a list.�C7R�m{4h(K]L�& L �" 4L5L6Cgfilenamefweb/server.scm� � ��  � ��  ! C�������h]-13DUg_ gfilenamefweb/server.scm� � ��  � ��  C h0 ]O45$"  6gimpl  *gserver  *gfilenamefweb/server.scm� � ��  � ��  � ��  � ��  � �� $ � +�� * � ��  * gnameg read-client�g documentationk<Read a new client from SERVER, by applying the implementation's  read procedure to the server. If successful, return three values: an object corresponding to the client, a request object, and the request body. If any exception occurs, return  #f for all three values.�C8R���{��h`-13�&. � � �44 �55 ��" 45(C@gr \gk \gv  \g additional  \gr  I \gfilenamefweb/server.scm� � �� � �� " � �� % � "�� , � -�� . � "�� 4 � �� 9 � �� I � �� Q � �� \ � �� \  gnamegextend-response�C�R:���{�����������������������������#hM]�$.4�&  �" 4556�&  �" 45�& �" 4 5�${$o4 5$V4  54 �5$"44�554$"5645$V4  54 �5$"44�554$"5645$�"p4545$�$" 45" 45�& �" 45&"D45$45 �$"��t6"��h 6!D4"�&  �" 4556Egrequest  gresponse  gbody   gtype  � �gdeclared-charset  � �gtype  � 9gdeclared-charset  � 9grlen  V �gblen  V � gfilenamefweb/server.scm� � ��  � �� � ��  � ��  � 1�� 3 � �� 7 � �� : � �� U � +�� m � �� q � �� x � �� � � �� � � �� � � (�� � � �� � � �� � � �� � � '�� � � 2�� � � �� � � �� � � �� � � �� � � %�� � � �� � � )�� � � �� � � �� � � �� � � �� � � )�� � � �� � � �� � � �� � � �� � � �� � � (�� � � �� � � �� � � �� � � '�� � � 2�� � � �� � � ��  � ��  � ��  � %��  � ��  � )��  � �� " � �� # � �� + � �� 3 � )�� 7 � �� 9 � �� : � �� D � �� I � �� P � �� V � �� ` � �� e � �� i � �� p � �� t � �� z � ��  � �� � � /�� � � �� � � �� � � .�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � /��  � ��  � ��\   gnamegsanitize-response�g documentationk �"Sanitize" the given response and body, making them appropriate for the given request. As a convenience to web handler authors, RESPONSE may be given as an alist of headers, in which case it is used to construct a default response. Ensures that the response version corresponds to the request version. If BODY is a string, encodes the string to a bytevector, in an encoding appropriate for RESPONSE. Adds a  content-length and  content-type header, as necessary. If BODY is a procedure, it is called with a port as an argument, and the output collected as a bytevector. In the future we might try to instead use a compressing, chunk-encoded port, and call this procedure later, in the write-client procedure. Authors are advised not to rely on the procedure being called at any particular time.�C:R��hK]LLLL@Cgfilenamefweb/server.scm�  ��  ��  C:h@�](4LLLLO> G4L> GD�gresponse  ?gbody  ?gstate   ?gresponse  0 ?gbody  0 ?gfilenamefweb/server.scm�  ��   ��   �� "  �� 3  �� ?  ��  ? C���������hf-134 �5LD^g_ gfilenamefweb/server.scm�  �� ! ��  ! ��  C h8]O45$"  O6ghandler  3grequest  3gbody   3gstate   3gfilenamefweb/server.scm�  ��   ��   ��  �� "  �� (  +�� 3  ��  3 gnameghandle-request�g documentationf"Handle a given request, returning the response and body. The response and response body are produced by calling the given HANDLER with REQUEST and BODY as arguments. The elements of STATE are also passed to HANDLER as arguments, and may be returned as additional values. The new STATE, collected from the HANDLER's return values, is then returned as a list. The idea is that a server loop receives a handler from the user, along with whatever state values the user is interested in, allowing the user's handler to explicitly manage its state.�C9R�m{5h(K]L�& L �" 4L5LLLL6Cgfilenamefweb/server.scm� * ��  + ��  ' C�������h]-13DUg_ gfilenamefweb/server.scm� . �� . �� C h0�]O45$"  6�gimpl  0gserver  0gclient   0gresponse   0gbody   0gfilenamefweb/server.scm� $ ��  , ��  - �� " - �� $ - �� * - +�� 0 ) ��  0 gnameg write-client�g documentationf�Write an HTTP response and body to CLIENT. If the server and client support persistent connections, it is the implementation's responsibility to keep track of the client thereafter, presumably by attaching it to the SERVER argument somehow.�C;Rm{6h(�]�&  �" 456�gimpl  !gserver  !gfilenamefweb/server.scm� 1 ��  4 ��  ! gnameg close-server�g documentationkRelease resources allocated by a previous invocation of  open-server .�C<R4�i�5$������hf]6^gsig  gfilenamefweb/server.scm� @ *��  @ ?��  @ 8��   ChT]45NCLgfilenamefweb/server.scm� > ��  @ �� ? ��   C��h o]M$ M�M�66ggfilenamefweb/server.scm� B ��  C ��  E (��  E 6��  E ��  G ��   C��h o]M$ M�M�66ggfilenamefweb/server.scm� B ��  C ��  E (��  E 6��  E ��  G ��   C��h o]M$ M�M�66ggfilenamefweb/server.scm� B ��  C ��  E (��  E 6��  E ��  G ��   Ch`K]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFCgfilenamefweb/server.scm� < ��  = ��  \ Chk-13L6cgk g_ gfilenamefweb/server.scm� H �� H �� Ch �] HOO6�gthunk  g handler-thunk  ghandler   gfilenamefweb/server.scm� 9 ��  : �� ; ��  ; ��   C"�hz]6rgthunk  g handler-thunk  gfilenamefweb/server.scm� 8 ��  8 $��   C�R��hK]L6Cgfilenamefweb/server.scm� L ��  L /��   ChC]LO6;gfilenamefweb/server.scm�  L ��   C�hK]LL6Cgfilenamefweb/server.scm� N -��  N 8��   Ch8�]45U4O>XCXFGO6�gthunk  1gk  1gproc   1gfilenamefweb/server.scm� J ��  K �� K �� 1 N ��  1 gnamegwith-stack-and-prompt�C�R89;hX]44> G$74> G 4>"G CC ghandler  Xgimpl  Xgserver   Xgstate   Xgclient   Xgrequest   Xgbody   Xgresponse  / Ugbody  / Ugstate / U gfilenamefweb/server.scm� Q ��  X ��  V ��  [ ��  ^ �� 2 \ �� 9 a ��  X gnamegserve-one-client�g documentationf�Read one request from SERVER, call HANDLER on the request and body, and write the response to the client. Return the new state produced by the handler procedure.�C=R�/7�=h(z]"4LLL5"���L"���rgstate  gfilenamefweb/server.scm� � ��  � ��  � ��  � ��  � ��  ! C<hT]4LL>"GDLgfilenamefweb/server.scm� � ��  � ��  � ��   ChP�-.13##4545OO6�ghandler Mgimpl Mg open-params  Mgstate  Mgimpl  & Mgserver  1 Mgfilenamefweb/server.scm� f ��  f .��  f B�� � �� & � �� ) � �� 1 � �� M � �� M  gnameg run-server�g documentationk �Run Guile's built-in web server. HANDLER should be a procedure that takes two or more arguments, the HTTP request and request body, and returns two or more values, the response and response body. For example, here is a simple "Hello, World!" server: @example (define (handler request body) (values '((content-type . (text/plain))) "Hello, World!")) (run-server handler) @end example The response and body will be run through  sanitize-response before sending back to the client. Additional arguments to HANDLER are taken from STATE. Additional return values are accumulated into a new STATE, which will be used for subsequent requests. In this way a handler can explicitly manage its state. The default server implementation is  http , which accepts OPEN-PARAMS like  (#:port 8081) , among others. See "Web Server" in the manual, for more information.�C>RCgm  ,grtd � �gfilenamefweb/server.scm�  J �� - h �� 6 h �� u i �� � z �� -� � �� 14 � �� 7� � �� 9; � �� M � �� R�  �� V% $ �� X$ 1 �� X% 7 �� X- 7 �� X/ 7 �� X3 7 �� ]� 6 �� _� J �� b| Q �� r� f ��  r� C6