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/http.go
GOOF----LE-8-2.0��]}4h�g] gguile� � gdefine-module*� � � gweb� ghttp� � gfilenameS� f web/http.scm� gimportsS� gsrfi� gsrfi-1�   � gselectS� g append-map!� gmap!� � � gsrfi-9�  � � gsrfi-19�  � � gice-9� grdelim� � � gmatch� � � !gq� "!� #"� $g binary-ports� %$� &%� 'grnrs� (g bytevectors� )'(� *)� +guri� ,+� -,� . #&*- � /gexportsS� 0gstring->header� 1gheader->string� 2gdeclare-header!� 3gdeclare-opaque-header!� 4g known-header?� 5g header-parser� 6gheader-validator� 7g header-writer� 8g read-header� 9g parse-header� :g valid-header?� ;g write-header� <g read-headers� =g write-headers� >gparse-http-method� ?gparse-http-version� @gparse-request-uri� Agread-request-line� Bgwrite-request-line� Cgread-response-line� Dgwrite-response-line� Egmake-chunked-input-port� Fgmake-chunked-output-port� Gghttp-proxy-port?� Hgset-http-proxy-port?!� I0123456789:;<=>?@ABCDEFGH� Jgset-current-module� KJ� LJ� Mgstring->symbol� Ngstring-downcase� Og <header-decl>� Pg%make-header-decl-procedure� Qgmake-syntax-transformer� RQ� SQ� Tgmake-header-decl� Ugmacro� Vg $sc-dispatch� WV� XV� Yg_� Zgany� [YZZZZZ� \g syntax-object� ]glambda� ^g m-556baa-a� _gtop� `^_� agribcage� bg t-556baa-5� cg t-556baa-6� dg t-556baa-7� eg t-556baa-8� fg t-556baa-9� gbcdef� h`````� if l-556baa-f� jf l-556baa-10� kf l-556baa-11� lf l-556baa-12� mf l-556baa-13� nijklm� oaghn� pa� qgx� rq� s`� tf l-556baa-c� ut� varsu� wgshift� xg proc-name� ygargs� zxy� {_� |{{� }fl-1e8ba8b5a-2ba� ~fl-1e8ba8b5a-2bb� }~� �az|� �gkey� �gvalue� �gname� �gformals� �gbody� ������� �{{{{{� �fl-1e8ba8b5a-2ad� �fl-1e8ba8b5a-2ae� �fl-1e8ba8b5a-2af� �fl-1e8ba8b5a-2b0� �fl-1e8ba8b5a-2b1� ������� �a���� �gmake-procedure-name� ��� �{� �fl-1e8ba8b5a-29d� ��� �a���� �{� �fl-1e8ba8b5a-29c� ��� �ar��� �`opvwpppp���� � �ghygiene� �� � �\]��� �{opv� ��� �\���� �gparser� �\���� �g validator� �\���� �gwriter� �\���� �g multiple?� �\���� ������� �g make-struct� �g m-556baa-3� ��_� �gt-1e8ba8b5a-38d� �gt-1e8ba8b5a-38c� �gt-1e8ba8b5a-38b� ����� �gm-1e8ba8b5a-38e� ��_� ����� �fl-1e8ba8b5a-392� �fl-1e8ba8b5a-393� �fl-1e8ba8b5a-394� ����� �a���� �g ctor-args� ��� �fl-1e8ba8b5a-37a� ��� �a���� �gctor� �gfield� ���� �fl-1e8ba8b5a-376� �fl-1e8ba8b5a-377� ���� �a�|�� �gform� �g type-name� �gconstructor-spec� �g field-names� ������ �{{{{� �fl-1e8ba8b5a-36b� �fl-1e8ba8b5a-36c� �fl-1e8ba8b5a-36d� �fl-1e8ba8b5a-36e� ������ �a���� �g record-layout� �gfunctional-setters� �gsetters� �gcopier� �ggetters� �g constructor� �ggetter-identifiers� �gfield-identifiers� ���������� �{{{{{{{{� �fl-1e8ba8b5a-343� �fl-1e8ba8b5a-341� �fl-1e8ba8b5a-33f� �fl-1e8ba8b5a-33d� �fl-1e8ba8b5a-33b� �fl-1e8ba8b5a-339� �fl-1e8ba8b5a-337� �fl-1e8ba8b5a-335� ���������� �a���� �fl-1e8ba8b5a-334� ��� �ar��� ��opvwp�ppp��p���� �\���� �\O��� �\ ��� ���������� ����� �geach-any� �Y팤 �gsyntax-violation� ��� ��� �fWrong number of arguments� �g identifier?� ��� ��� �{pv� �\P��� ��� ��� �f-source expression failed to match any pattern� �grecord-type-vtable� ��� ��� �g pwpwpwpwpw� �gdefault-record-printer� �� �� ������ gset-struct-vtable-name!� � � gvtable-offset-user� � �  g%header-decl?-procedure�  g header-decl?�  YZ�  g m-556baa-1f�   _� g t-556baa-1e� �  � f l-556baa-24� � a� f l-556baa-21� � ar�  pwpppp���� � \]�� 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� #"_� $#######� %fl-1e8ba8b5a-483� &fl-1e8ba8b5a-484� 'fl-1e8ba8b5a-485� (fl-1e8ba8b5a-486� )fl-1e8ba8b5a-487� *fl-1e8ba8b5a-488� +fl-1e8ba8b5a-489� ,%&'()*+� -a!$,� .g copier-id� /.� 0fl-1e8ba8b5a-476� 10� 2a/�1� 3g ctor-name� 43� 5fl-1e8ba8b5a-46e� 65� 7a4�6� 8�� 9fl-1e8ba8b5a-46c� :9� ;a8�:� <glayout� =<� >fl-1e8ba8b5a-46a� ?>� @a=�?� Ag immutable?� BA� Cfl-1e8ba8b5a-468� DC� EaB�D� Fg field-count� GF� Hfl-1e8ba8b5a-466� IH� JaG�I� Kg getter-ids� LK� Mfl-1e8ba8b5a-463� NM� OaL�N� Pg field-ids� QP� Rfl-1e8ba8b5a-460� SR� TaQ�S� Ugpredicate-name� Vg field-spec� WA���UV� X{{{{{{� Yfl-1e8ba8b5a-453� Zfl-1e8ba8b5a-454� [fl-1e8ba8b5a-455� \fl-1e8ba8b5a-456� ]fl-1e8ba8b5a-457� ^fl-1e8ba8b5a-458� _YZ[\]^� `aWX_� a�pwp-pppp2p7p;p@pEpJpOpT`��� b\a�� cb� dgand� e\da�� fgstruct?� g\fa�� hgb� igeq?� j\ia�� kg struct-vtable� l\ka�� mlb� n{p� o\On�� pjmo� qehp� rcq� s{p� t\ s�� ugthrow-bad-struct� vu� wu� xgheader-decl-name� yg%header-decl-name-procedure� zgfree-id� {g %%on-error� |g m-556baa-2b� }|_� ~}� f l-556baa-2d� �� �ar~�� �}p�wpppp���� � �\{��� �z�� ��Z� �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� ��_� ��������� �fl-1e8ba8b5a-3b0� �fl-1e8ba8b5a-3b1� �fl-1e8ba8b5a-3b2� �fl-1e8ba8b5a-3b3� �fl-1e8ba8b5a-3b4� �fl-1e8ba8b5a-3b5� �fl-1e8ba8b5a-3b6� ��������� �a���� �ggetter� �gindex� ���� �fl-1e8ba8b5a-3a3� �fl-1e8ba8b5a-3a4� ���� �a�|�� ��K.� �{{{� �fl-1e8ba8b5a-39e� �fl-1e8ba8b5a-39f� �fl-1e8ba8b5a-3a0� ����� �a���� ��p�wp�ppp�p���� �\���� �z�� �Y��Z� �gck� �gerr� �gs� ���� �}}� �f l-556baa-30� �f l-556baa-31� ���� �a���� �}�p�wpppp���� � �\���� �gquote� �\���� �{�p�� �\O��� ���� ��� �g%%index� �\���� �z�� �Y��Z� �f l-556baa-35� �f l-556baa-36� ���� �a���� �}�p�wpppp���� � �\���� �\���� ��p�� �\ ��� ���� ��� �g%%copier� �\���� �z�� �Y��Z� �f l-556baa-3a� �f l-556baa-3b� ���� �a���� �}�p�wpppp���� � �\���� �\���� �g%%<header-decl>-set-fields� �{�p�� �\���� ���� ��� �g t-556baa-2a� ��� �f l-556baa-3f� ��� �a�~�� �}�p�wpppp���� � �\]��� ���p�wp�ppp�p���� �\���� ��� �gif� �\���� �\i��� �\k��� ���� �{�p�� �\O��� ����� �g struct-ref� �\���� ��p�� �\ ��� ����� �\u��� �\���� �\x��� ���� ����� ������ ����� �{p�� �\y��� �gheader-decl-parser� �g%header-decl-parser-procedure� �g m-556baa-46� �_� � f l-556baa-48� � ar� pwpppp���� � \{�� z� Z�  �pwp�ppp�p����  \� ��  z �  Y Z�  � f l-556baa-4b� f l-556baa-4c� � a� � pwpppp���� � \��� \��� {p� \O�� � � \� �� z� YZ� f l-556baa-50� f l-556baa-51� � a� �  pwpppp���� � !\� �� "\� �� #p� $\ #�� %"$� &%� '\� �� (z'� )Y(Z� *f l-556baa-55� +f l-556baa-56� ,*+� -a� ,� .-pwpppp���� � /\�.�� 0\�.�� 1{-p� 2\�1�� 302� 43� 5g t-556baa-45� 65� 7f l-556baa-5a� 87� 9a68� :9pwpppp���� � ;\]:�� <�9pwp�ppp�p���� =\�<�� >=� ?\�<�� @\i<�� A\k<�� BA=� C{9p� D\OC�� E@BD� F\�<�� G9p� H\ G�� IF=H� J\u<�� K\�<�� L\�C�� MKL� NJ=M� O?EIN� P;>O� Q{p� R\�Q�� Sgheader-decl-validator� Tg %header-decl-validator-procedure� Ug m-556baa-61� VU_� WV� Xf l-556baa-63� YX� ZarWY� [VpZwpppp���� � \\{[�� ]z\� ^]Z� _�pZwp�ppp�p���� `\�_�� az`� bY^aZ� cVV� df l-556baa-66� ef l-556baa-67� fde� ga�cf� hVgpZwpppp���� � i\�h�� j\�h�� k{gpZ� l\Ok�� mjl� nm� o\�_�� pzo� qY^pZ� rf l-556baa-6b� sf l-556baa-6c� trs� ua�ct� vVupZwpppp���� � w\�v�� x\�v�� yupZ� z\ y�� {xz� |{� }\�_�� ~z}� Y^~Z� �f l-556baa-70� �f l-556baa-71� ���� �a�c�� �V�pZwpppp���� � �\���� �\���� �{�pZ� �\���� ���� ��� �g t-556baa-60� ��� �f l-556baa-75� ��� �a�W�� �V�pZwpppp���� � �\]��� ���pZwp�ppp�p���� �\���� ��� �\���� �\i��� �\k��� ���� �{�pZ� �\O��� ����� �\���� ��pZ� �\ ��� ����� �\u��� �\���� �\S��� ���� ����� ������ ����� �{pZ� �\T��� �gheader-decl-writer� �g%header-decl-writer-procedure� �g m-556baa-7c� ��_� ��� �f l-556baa-7e� ��� �ar��� ��p�wpppp���� � �\{��� �z�� ��Z� ��p�wp�ppp�p���� �\���� �z�� �Y��Z� ���� �f l-556baa-81� �f l-556baa-82� ���� �a���� ���p�wpppp���� � �\���� �\���� �{�p�� �\O��� ���� ��� �\���� �z�� �Y��Z� �f l-556baa-86� �f l-556baa-87� ���� �a���� ���p�wpppp���� � �\���� �\���� ��p�� �\ ��� ���� ��� �\���� �z�� �Y��Z� �f l-556baa-8b� �f l-556baa-8c� ���� �a���� ���p�wpppp���� � �\���� �\���� �{�p�� �\���� ���� ��� �g t-556baa-7b� ��� �f l-556baa-90� ��� �a���� ���p�wpppp���� � �\]��� ���p�wp�ppp�p���� �\���� ��� �\���� �\i��� �\k��� ���� �{�p�� �\O��� ����� �\���� ��p�� �\ ��� ����� �\u��� �\���� �\���� ���� ����� ������ ����� �{p�� �\���� �gheader-decl-multiple?� g %header-decl-multiple?-procedure� g m-556baa-97� _� � f l-556baa-99� � ar� pwpppp���� � \{��  z�   Z�  �pwp�ppp�p����  \� ��  z � Y  Z� � f l-556baa-9c� f l-556baa-9d� � a�� pwpppp���� � \��� \��� {p� \O�� � � \� �� z� Y Z� f l-556baa-a1� f l-556baa-a2�  � !a� � "!pwpppp���� � #\�"�� $\�"�� %!p� &\ %�� '$&� ('� )\� �� *z)� +Y *Z� ,f l-556baa-a6� -f l-556baa-a7� .,-� /a�.� 0/pwpppp���� � 1\�0�� 2\�0�� 3{/p� 4\�3�� 524� 65� 7g t-556baa-96� 87� 9f l-556baa-ab� :9� ;a8:� <;pwpppp���� � =\]<�� >�;pwp�ppp�p���� ?\�>�� @?� A\�>�� B\i>�� C\k>�� DC?� E{;p� F\OE�� GBDF� H\�>�� I;p� J\ I�� KH?J� L\u>�� M\�>�� N\�E�� OMN� PL?O� QAGKP� R=@Q� S{p� T\S�� Ugeach� VZZ� WUV� XZW�� YZX�� ZZY�� [g %%set-fields� \gdummy� ]gcheck?� ^gexpr� _\]��^� `g m-556baa-b2� a`_� ba����� cf l-556baa-b7� df l-556baa-b8� ef l-556baa-b9� ff l-556baa-ba� gf l-556baa-bb� hcdefg� ia_bh� ja� kf l-556baa-b4� lk� marjl� ngt-1e8ba8b5a-3c4� ogt-1e8ba8b5a-3c6� pgt-1e8ba8b5a-3c5� qnop� rgm-1e8ba8b5a-3c7� sr_� tsss� ufl-1e8ba8b5a-3cb� vfl-1e8ba8b5a-3cc� wfl-1e8ba8b5a-3cd� xuvw� yaqtx� zfl-1e8ba8b5a-3c1� {fl-1e8ba8b5a-3c2� |fl-1e8ba8b5a-3c3� }z{|� ~a��}� �ipmwpyppp~�� � �\[�� �{ipm� �\O��� �\x��� �\���� �\S��� �\���� �\���� ������� �gmap� ��� ��� �glist� �gmake-hash-table� �g*declared-headers*� �g hashq-ref� �glookup-header-decl� �g multiple?S� �� �� ��� �gerror� �fbad header decl� �gstring?� �g hashq-set!� �gstring-titlecase� �gsymbol->string� �gdisplay� �g %read-line� �gstring-suffix?� �f � �gstring-drop-right� �g bad-header� �gread-header-line� ��� ��� �fno matching pattern� �g peek-char� �gread-continuation-line� �g string-append� �gcall-with-input-string� �f� �gread� �g*eof*� �g string-null?� �gstring=?� �g string-index� �g%read� �g substring� �gstring-trim-both� �gchar-set:whitespace� �fheader name not a symbol� �f: � �f � �g eof-object?� �greverse!� �gthrow� �gbad-header-component� �gformat� �fBad ~a header: ~a � �gbad-header-printer� �fBad ~a header component: ~a � �gbad-header-component-printer� �gset-exception-printer!� �gparse-opaque-string� �gvalidate-opaque-string� �gwrite-opaque-string� �gstring->char-set� �f[^][()<>@,;:\"?= ]� �gseparators-without-slash� �g string-rindex� �gvalidate-media-type� �g media-type� �gparse-media-type� �g string-length� �gchar-whitespace?� �g string-ref� �gskip-whitespace� �gtrim-whitespace� �gsplit-and-trim� �glist-of?� �glist-of-strings?� �g write-list� �f, � �gwrite-list-of-strings� �gsplit-header-names� �gsymbol?� �glist-of-header-names?� �gwrite-header-list� �g make-string� �gsubstring-move!� �g string-set!� �gcollect-escaped-string� �g incremental?S� �� �� ��� �gqstring� �g parse-qstring� �g string-split� �f\"� �g write-qstring� �gstring=� �f1� �f1.� �f1.0� �f1.00� �f1.000� �gquality� �f0� �f0.� �g char->integer� �g parse-quality� �gnon-negative-integer?� �gvalid-quality?� �g integer->char� �g write-quality� �gstring-prefix?� �fq=� �gparse-quality-list� �gvalidate-quality-list� �f;q=� �f,� �gwrite-quality-list� �gnon-negative-integer� �gparse-non-negative-integer� �gnumber?� �gexact?� �ginteger?� �gdefault-val-parser� gdefault-val-validator� gdefault-val-writer� gmin� gkey-value-list� gparse-key-value-list� gkey-value-list?� gwrite-key-value-list� gchar-set� gparam-delimiters�  gchar-set-adjoin�  gparam-value-delimiters�  gparse-param-component�  g param-list�  gparse-param-list� gvalidate-param-list� f;� gwrite-param-list� g string-match?� YZZ� g syntax->datum� g char-numeric?� g t-556baa-43c� � g m-556baa-43d� _� � f l-556baa-440� � a� �� g m-556baa-439� _�  � !f l-556baa-43a� "!� #a "� $gc� %$� &f l-556baa-437� '&� (a%�'� )glp� *gi� +gtests� ,)*+� -f l-556baa-431� .f l-556baa-432� /f l-556baa-433� 0-./� 1a,�0� 2gp� 32� 4f l-556baa-424� 54� 6a3�5� 7gstr� 8gpat� 978� :f l-556baa-420� ;f l-556baa-421� <:;� =a9|<� >f l-556baa-419� ?>� @ar�?� A{pp#p(p1ppp6=p@� B\A�� C\�A�� D\�A�� Egchar-alphabetic?� Fg t-556baa-442� GF� Hg m-556baa-443� IH_� JI� Kf l-556baa-446� LK� MaGJL� N{pMp#p(p1ppp6=p@� O\EN�� P\�N�� Q\�N�� Rgeqv?� Sg t-556baa-448� Tg t-556baa-449� UST� Vg m-556baa-44a� WV_� XWW� Yf l-556baa-44e� Zf l-556baa-44f� [YZ� \aUX[� ]{p\p#p(p1ppp6=p@� ^\R]�� _\�]�� `\�]�� aZ�� bglet� cg t-556baa-426� dg t-556baa-427� ecd� fg m-556baa-428� gf_� hgg� if l-556baa-42c� jf l-556baa-42d� kij� laehk� m{plppp6=p@ � n\bm�� o\�m�� p\dm�� qg=� r\qm�� s\�m�� tso� ugmonth� vg parse-month� wfGMT� xfUTC� yg zone-offset� zgparse-zone-offset� {gdate� |{� }{� ~gparse-rfc-822-date� g current-date� �g date-year� �gparse-rfc-850-date� �gparse-asctime-date� �gdate-zone-offset� �gtime-utc->date� �gdate->time-utc� �gnormalize-date� �gcatch� ��� ��� �g parse-date� �g truncate/� �gfloor/� �gexpt� �gtime-tai->date� �gdate->time-tai� �g date-week-day� �fSun, � �fMon, � �fTue, � �fWed, � �fThu, � �fFri, � �fSat, � �fbad date� �gdate-day� �g date-month� �f Jan � �f Feb � �f Mar � �f Apr � �f May � �f Jun � �f Jul � �f Aug � �f Sep � �f Oct � �f Nov � �f Dec � �g date-hour� �g date-minute� �g date-second� �f GMT� �g write-date� �fW/� �f"� �gparse-entity-tag� �g entity-tag?� �gwrite-entity-tag� �gparse-entity-tag-list� �gentity-tag-list� �gentity-tag-list?� �gwrite-entity-tag-list� �g authorization� �gbasic� �g credentials� �gparse-credentials� �gvalidate-credentials� �gwrite-credentials� �g challenge� �gparse-challenge� �greverse� �gparse-challenges� �gvalidate-challenges� �gwrite-challenge� �gwrite-challenges� �g bad-request� �g bad-response� �g*known-versions*� �g http-version� �fHTTP/� �gwrite-http-version� �gfor-each� �fHTTP/1.0� �fHTTP/1.1� ���� �fGET� �gGET� �fHEAD� �gHEAD� �fPOST� �gPOST� �fPUT� �gPUT� �fDELETE� �gDELETE� �fOPTIONS� �gOPTIONS� �fTRACE� �gTRACE� �fInvalid method: ~a� �fMissing Request-URI� �f*� �g build-uri� �gpathS� �gqueryS� �gfragmentS� �g string->uri� �fInvalid URI: ~a� �fBad Request-Line: ~s� �g<uri>� �,�� �,�� �guri-host� �g uri-scheme� �f://� �g uri-userinfo� �guri-port� �guri-path� �f"Empty path and no host for URI: ~s� �fNon-absolute URI path: ~s� �g uri-query� �g write-uri� �g default-port?� �,�� �,�� �f/� �f?� �fBad Response-Line: ~s� �g%date?-procedure� ��� ��� �gdeclare-date-header!� �gdeclare-string-list-header!� �gdeclare-symbol-list-header!� �gdeclare-header-list-header!� �gdeclare-integer-header!� �g absolute-uri?� ,�� ,�� gdeclare-uri-header!� g string->uri*� ,� ,� g%uri?-procedure� ,� ,�  gdeclare-relative-uri-header!�  gdeclare-quality-list-header!�  gdeclare-param-list-header!�  gdeclare-key-value-list-header!�  g*� gdeclare-entity-tag-list-header!� gdeclare-credentials-header!� gdeclare-challenge-list-header!� f Cache-Control� gmax-age� g min-fresh� gs-maxage� g max-stale� gprivate� gno-cache� gno-store� g no-transform� g only-if-cache� gmust-revalidate� gproxy-revalidate� g cache-control� f Connection� gclose�  fclose� !fDate� "fPragma� #fTrailer� $fTransfer-Encoding� %fUpgrade� &fVia� 'fWarning� (gwarning� )glength� *fAllow� +fContent-Disposition� ,gcontent-disposition� -fContent-Encoding� .fContent-Language� /fContent-Length� 0fContent-Location� 1f Content-MD5� 2f Content-Range� 3g content-range� 4fbytes � 5gbytes� 6f Content-Type� 7g content-type� 8g string-trim� 9gstring-trim-right� :fThu, 01 Jan 1970 00:00:00 GMT� ;g*date-in-the-past*� <fExpires� =gmember� >f-1� ?�>� @f Last-Modified� AfAccept� BfAccept-Charset� CfAccept-Encoding� DfAccept-Language� Ef Authorization� FfExpect� GfFrom� HfHost� Ighost� JfIf-Match� KfIf-Modified-Since� Lf If-None-Match� MfIf-Range� NfIf-Unmodified-Since� Of Max-Forwards� PfProxy-Authorization� QfRange� Rfbytes=� Sgrange� TfReferer� UfTE� Vf User-Agent� Wf Accept-Ranges� XfAge� YfETag� ZfLocation� [fProxy-Authenticate� \f Retry-After� ]fServer� ^fVary� _fWWW-Authenticate� `g read-line� agchar=?� bgstring->number� cgread-chunk-header� dg keep-alive?S� ed �� fe� ggget-bytevector-n!� hgget-u8� igmake-custom-binary-input-port� jfchunked input port� kg close-port� lgq-empty?� mgdeq!� ngq-length� ognumber->string� pg write-char� qgmake-q� rgmake-soft-port� sgenq!� tgstring-for-each� uf0 � vg force-output� wfw� xgmake-object-property� yg%http-proxy-port?� zgsetter� {z� |z�C5hHk�]4   ./I54L>"GMNh�]456�gname  gfilenamef web/http.scm� K ��  M �� M ��  gnamegstring->header�g documentationf%Parse NAME to a symbolic header name.�C0ROh�]�C�gname  gparser  g validator   gwriter   g multiple?   gfilenamef web/http.scm� O ��   gnameg%make-header-decl-procedure�CPR4STUX[�h�]C�g t-556baa-5  g t-556baa-6  g t-556baa-7   g t-556baa-8   g t-556baa-9      C��T�hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   C�h]C   C�� hp�]45$@45$ O@45$4O?$@  6  6xgx  ngtmp ngtmp  " ngtmp  > ngfilenamef web/http.scm� O ��  n C5TR��O�4O>"G �Pi�OROht]�$��CClgobj  gfilenamef web/http.scm� O ��   gnameg%header-decl?-procedure�C R4S UX rh3]C+g t-556baa-1e    C�� �hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   Cth]C   C�� hp�]45$@45$ O@45$4O?$@  6  6xgx  ngtmp ngtmp  " ngtmp  > ngfilenamef web/http.scm� O ��  n C5 ROwxhv]�& �C6ngs  gfilenamef web/http.scm� O ��   gnameg%header-decl-name-procedure�CyR4SxUX���h:]��C2gerr  gs    C���h:]��C2gerr  gs    C���h:]��C2gerr  gs    C �h3]C+g t-556baa-2a    C��x�hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   C�h]C   C��h��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamef web/http.scm� O ��  � C5xROw�hx]�& �C6pgs  gfilenamef web/http.scm� O ��   gnameg%header-decl-parser-procedure�C�R4S�UX h:]��C2gerr  gs    C!&h:]��C2gerr  gs    C)/4h:]��C2gerr  gs    C Ph3]C+g t-556baa-45    C����hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   CRh]C   C��h��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamef web/http.scm� O ��  � C5�ROwSh {]�& �C6sgs  gfilenamef web/http.scm� O ��   gnameg %header-decl-validator-procedure�CTR4SSUXbinh:]��C2gerr  gs    Cqw|h:]��C2gerr  gs    C��h:]��C2gerr  gs    C �h3]C+g t-556baa-60    C��S�hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   C�h]C   C��h��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamef web/http.scm� O ��  � C5SROw�h x]�& �C6pgs  gfilenamef web/http.scm� O ��   gnameg%header-decl-writer-procedure�C�R4S�UX���h:]��C2gerr  gs    C���h:]��C2gerr  gs    C���h:]��C2gerr  gs    C �h3]C+g t-556baa-7b    C����hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   C�h]C   C��h��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamef web/http.scm� O ��  � C5�ROw�h {]�& �C6sgs  gfilenamef web/http.scm� O ��   gnameg %header-decl-multiple?-procedure�CR4S�UXh:]��C2gerr  gs    C#(h:]��C2gerr  gs    C+16h:]��C2gerr  gs    C Rh3]C+g t-556baa-96    C����hO]L6Gga  gfilenamef web/http.scm�  O ��  CY�h?]L67gfilenamef web/http.scm�  O ��   CTh]C   C��h��]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66�gx  �gtmp �gtmp  " �gtmp  9 �gtmp  P �gtmp  g �gtmp  � �gfilenamef web/http.scm� O ��  � C5�R4S�UXZ�����h v]45�����Cngdummy  gcheck?  gs   ggetter   gexpr      C��h(�] 45$@6�gx  "gtmp "gfilenamef web/http.scm� O ��  " g macro-typeg syntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4�i5�R��hw]6ogsym  gfilenamef web/http.scm� [ �� \ ��  gnameglookup-header-decl�C�R����O��0 h��-/03#"645$M$C$9$/�445>"GC"���"���"���"����gname  �gparser  �g validator   �gwriter   �g multiple?   �gdecl  \ |gfilenamef web/http.scm� ^ �� $ h �� 0 h �� 0 d �� 1 d �� ; d �� A d �� \ e �� \ e �� _ f �� d f '�� q f ��  �  g multiple?S �gnamegdeclare-header!�g documentationf;Declare a parser, validator, and writer for a given header.�C2R�Owx��h8�] 45$�& �C6456�gsym  2gdecl 2gfilenamef web/http.scm� j ��  l �� l ��  m ��  n �� * o �� 2 o ��  2 gnamegheader->string�g documentationf0Return the string form for the header named SYM.�C1R�h]45$CC�gsym  gfilenamef web/http.scm� q ��  t �� t ��   gnameg known-header?�g documentationkpReturn  #t iff SYM is a known header, with associated parsers and serialization procedures.�C4R�Ow�hO]CGgx  gfilenamef web/http.scm� ~ ��   Ch0�] 45$�& �C6C�gsym  *gdecl *gfilenamef web/http.scm� v ��  { �� { ��  | ��  } ��  * gnameg header-parser�g documentationf�Return the value parser for headers named SYM. The result is a procedure that takes one argument, a string, and returns the parsed value. If the header isn't known to Guile, a default parser is returned that passes through the string unchanged.�C5R�OwS�h0�] 45$�& �C6C�gsym  +gdecl +gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  + gnamegheader-validator�g documentationkDReturn a predicate which returns  #t if the given value is valid for headers named SYM. The default validator for unknown headers is  string? .�C6R�Ow��h0]] 45$�& �C6CUgsym  +gdecl +gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  + gnameg header-writer�g documentationk�Return a procedure that writes values for headers named SYM to a port. The resulting procedure takes two arguments: a value and a port. The default writer is  display .�C7R��������� hp�]!45�$M��45$, �$45$ 6C664  56�gport  lgv lgw   _gx   _gw  I Sgw  U _gfilenamef web/http.scm� � ��  � �� 1 � �� 5 � �� 9 � �� = � �� D � �� I � �� O � �� S � �� U � �� [ � �� _ � �� ` � ��  l gnamegread-header-line�g documentationf�Read an HTTP header line and return it without its final CRLF or LF. Raise a 'bad-header' exception if the line does not end in CRLF or LF, or if EOF is reached.�C�R����hH�] 45 �$" 45 �$44556C�gport  Agval  Agt  &gfilenamef web/http.scm� � ��  � �� � �� � ��  � �� # � �� * � �� / � �� 4 � -�� < � �� > � ��  A gnamegread-continuation-line�C�R4�i��i5�R��������0�9���h��]4545$" 45$D4:5$" 454 4  554 4 4 �555D�gport  �gline �gt   +gt  > Xgdelim  X �gsym  i �gfilenamef web/http.scm� � ��  � �� � �� � ��  � �� � �� & � �� ( � �� / � �� 5 � �� 6 � �� > � �� M � �� Q � &�� U � �� X � �� [ � �� ^ � $�� i � �� i � �� n � �� s � �� x � �� � � 8�� � � �� � � �� � � �� � � ��  � gnameg read-header�g documentationfRead one HTTP header from PORT. Return two values: the header name and the parsed Scheme value. May raise an exception if the header was known but the value was invalid. Returns the end-of-file object for both values if the end of the message body was reached (i.e., a blank line).�C8R5h]456�gsym  gval  gfilenamef web/http.scm� � ��  � �� � ��  gnameg parse-header�g documentationfdParse VAL, a string, with the parser registered for the header named SYM. Returns the parsed value.�C9R6��h ]�$ 4566gsym  gval  gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � ��  � ��   gnameg valid-header?�g documentationfRReturns a true value iff VAL is a valid Scheme value for the header with name SYM.�C:R�1�7�hP]]445>"G4>"G445>"G6Ugsym  Pgval  Pgport   Pgfilenamef web/http.scm� � ��  � ��  � ��  � ��  � �� � �� ' � �� 0 � �� 1 � �� @ � �� L � �� P � ��  P gnameg write-header�g documentationkTWrite the given header name and value to PORT, using the writer from  header-writer .�C;R8��h8�]4L> G45$6��"����gheaders  3gk 3gv  3gfilenamef web/http.scm� � ��  � !��  � ��  � ��  � �� % � �� * � �� 3 � ��  3 gnameglp�Ch�] OQ6�gport  glp gfilenamef web/http.scm� � �� � ��  � ��  � ��   gnameg read-headers�g documentationfRRead the headers of an HTTP message from PORT, returning them as an ordered alist.�C<R;h@�] ",�$#4����>"G�"���C"����gheaders  :gport  :gheaders   2gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � ��  � '��  � �� * � �� 0 � �� 2 � ��  : gnameg write-headers�g documentationk�Write the given header alist to PORT. Doesn't write the final  \r\n , as the user might want to add another header.�C=R��h�]6�gsym  gval  gfilenamef web/http.scm� � ��  � �� � ��  gnameg bad-header�C�R��h�]6�gsym  gval  gfilenamef web/http.scm� � ��  � �� � ��  gnamegbad-header-component�C�R��1h(�)3L456-13L6�gsym gval g_ # 'gfilenamef web/http.scm� � ��  � ��  � /��  � �� # � �� ' � ��   # ' Ch�]O@�gport  gkey  gargs   gdefault-printer   gfilenamef web/http.scm� � ��  � ��   gnamegbad-header-printer�C�R��h(�)3L6-13L6�gsym gval g_  "gfilenamef web/http.scm� � ��  � ��  � ��  � �� " � ��    " Ch�]O@�gport  gkey  gargs   gdefault-printer   gfilenamef web/http.scm� � ��  � ��   gnamegbad-header-component-printer�C�R4�i��i>"G4�i��i>"Ghq]Cigstr  gfilenamef web/http.scm�  ��   gnamegparse-opaque-string�C�R�h}]6ugval  gfilenamef web/http.scm�  ��   ��   gnamegvalidate-opaque-string�C�R�h�]6�gval  gport  gfilenamef web/http.scm�  ��  ��  gnamegwrite-opaque-string�C�R4�i�5�R���h8�] 4/5$4/5�$ 45�CCC�gstr  2gidx 2gfilenamef web/http.scm�  ��   ��  ��   ��   ��   �� #  �� $  �� -  ��  2 gnamegvalidate-media-type�C�R�M��h �]45$66�gstr  gfilenamef web/http.scm�  ��   ��  ��   ��   ��   ��   gnamegparse-media-type�C�R���h`-.,3# # 45"*�$4455$ �"���CC"����gstr Zgstart Zgend  Zgi  ( Rgfilenamef web/http.scm�  ��   8�� (  �� -  �� 1  �� 2  �� 5  )�� ?  �� C  �� F  �� L  �� R  �� Z gnamegskip-whitespace�C�R���h`-.,3# # 45"+�$44�55$ �"���CC"���gstr [gstart [gend  [gi  ( Sgfilenamef web/http.scm�  ��   8�� (  �� -  �� 1  �� 2  �� 5  +�� <  ;�� >  +�� @  �� D  �� G  �� M  �� S  �� [ gnamegtrim-whitespace�C�R�����h�S-.,3#,# # 45�$H454$"54$�"5�CCKgstr �gdelim �gstart  �gend  �gidx  D gtok  _ gfilenamef web/http.scm� ! �� & " (�� 3 $ �� 7 $ �� 8 % �� D % �� G & �� U & @�� _ & �� _ % �� d ' �� p ' .�� s ' 6�� } ' �� ~ ' �� � ( �� � gnamegsplit-and-trim�C�R��hw]6ogval  gfilenamef web/http.scm� * �� + ��  gnameglist-of-strings?�C�R���h�]6�gval  gport  gfilenamef web/http.scm� - �� . ��  . ��   gnamegwrite-list-of-strings�C�R�0�h�]456zgstr  gfilenamef web/http.scm� 0 ��  1 ��  1 ��   gnamegsplit-header-names�C�R��h|]6tgval  gfilenamef web/http.scm� 3 �� 4 ��  gnameglist-of-header-names?�C�R��1ht]456lgx  gport  gfilenamef web/http.scm� 8 ��  9 ��  9 ��   C�h�]6�gval  gport  gfilenamef web/http.scm� 6 �� : ��  7 ��   gnamegwrite-header-list�C�R����h� ]445"�(#4��>"GC��� � 4 �>"G44 �5>"G ��"��x "��igfrom  �gstart  �glen   �gescapes   �gto  �gstart   �gi   �gescapes   �ge  ; �g next-start H � gfilenamef web/http.scm� < ��  = �� = ��  > ��  ? ��  A �� # A 1�� $ A (�� - A �� ; C �� ; C �� D D &�� E D �� H C �� K E �� V E (�� _ E �� h F �� o F �� v F /�� x F �� } F �� � G �� � G "�� � G �� � > ��  � gnamegcollect-escaped-string�C�R������h�-/03 # # 45#"6�$�45"�$�"��$x45\�$ ���"���"�$24�5$�D��$C6��"��6� "��h"��?"��;�gstr  �gstart  �gend   �g incremental?   �gi  _ �gqi  _ �gescapes  _ �gkey  q �gout  � � gfilenamef web/http.scm� K �� # L '�� > ^ �� B ^ �� B N �� G N �� K N �� L N �� W N �� [ N �� _ O �� d P �� h P �� i Q �� q Q �� � S �� � S �� � S #�� � S �� � Q �� � U �� � U 6�� � U �� � U �� � V �� � W !�� � W �� � X �� � X �� � X �� � Z /�� � Z �� � \ �� � \ �� � \ �� � ] "�� � ] �� � O �� � O �� � O .�� � O ��*  � g incremental?S �gnameg parse-qstring�C�R�hX'] �$H"<4�>"G��$4>"G�"���C"���Cgl  Sgport  Sg write-item   Sgdelim   Sgl  Igfilenamef web/http.scm� ` ��  a �� a �� b ��  c ��  c ��  c �� % d �� & d �� * d �� + f �� A g �� G g �� I b ��  S gnameg write-list�C�R�����hh�]4">"G4"5$#44"5>"G"4>"G"6�gstr  bgport  bgfilenamef web/http.scm� i ��  j ��  k �� # k �� $ m �� ' m �� 5 m 6�� : m �� G n �� b o ��  b gnameg write-qstring�C�R���������������hJ]L6Bgfilenamef web/http.scm�  � �� � ��  Ch�6-.,3 # # 45�$�451�$�45$"d45$"G45$"*45$" 45$ �C  6450�$ 4 5$" 4 5$ C� �$  �"$�"���$4�5.�$C  6 ���$[454 5 0�" 4  5"# �$ �$""���""�����""��b  � "��Q  6OQ45.�$�� �$  �"$�"|�$C ���$S454 5 0� �$ �$"4 5"4 5 ��""���  � "��s66  6.gstr �gstart �gend  �gt  J �gt  d �gt  ~ �gt  � �gt  � gb   +gplace  3 �gi  3 �gq  3 �gc  w �gi  � �gfailure  � �gb   #gplace  + �gi  + �gq  + �gc  U �gi  a �gfailure e �gfilenamef web/http.scm� q ��  q 6�� ) x �� - w �� . z �� 9 z �� = w �� > { �� D { �� J { �� J { �� X | �� ^ | �� d | �� d { �� r } �� x } �� ~ } �� ~ { �� � ~ �� � ~ �� � ~ �� � { �� �  �� �  �� �  �� � { �� � � �� � � �� � � �� � � �� � w �� � � �� � � �� � � �� � � �� � � �� � � ��  � ��  � ��  � ��  � �� / � �� 3 � �� 8 � �� 9 � �� = � �� > � �� E � ,�� G � �� J � �� N � �� U � ,�� Y � �� ^ � �� a � #�� f � �� j � �� o � 7�� w � (�� z s �� � s "�� � s �� � s �� � v �� � v �� � v �� � t �� � t �� � t �� � t �� � t �� � � �� � � �� � � �� � � �� � � "�� � � �� � � "�� � � �� � w �� � � ��  � ��  w ��  � ��  � �� ' � �� + � �� 0 � �� 4 � �� < � �� ? � �� D � �� H � �� M � /�� U � �� X s �� ` s "�� a s �� a s �� e t �� k t �� o t �� t t �� x t �� � � �� � � �� � � �� � � �� � � �� � � �� � y �� � y ��r � gnameg parse-quality�C�R�h�]45$ �CC}gq  gfilenamef web/http.scm� � ��  � �� � ��  � !��   gnamegvalid-quality?�C�R��h�] 4 � �4 0�5>"G4.>"G4 d� �4 0�5>"G4 � �4 0�5>"G �4 0�56�gq  �gport  �gd   gd  K Zgd  t �gd  � �gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � ��  � ��  � ��  � �� $ � �� - � �� A � �� H � �� K � �� K � �� N � �� R � �� U � �� W � �� a � �� j � �� q � �� t � �� t � �� w � �� { � �� ~ � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ��%  � gnameg write-quality�C�R�h0�](C�$4�5$ �6CC�gval  *gpred  *gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � ��  � ��  � ��  � �� " � �� & � ��  * gnameglist-of?�C�R��������� h` ]4;5$:4�545$4 54 5�C6 �45�Cgpart  [gt [gqpart   Mgfilenamef web/http.scm� � ��  � �� � ��  � ��  � H��  � ��  � �� " � �� & � &�� * � �� . � �� / � �� 8 � �� D � �� I � ,�� M � �� Q � �� Z � ��  [ C�h�]4,56zgstr  gfilenamef web/http.scm� � ��  � ��  � ��   gnamegparse-quality-list�C�R���h �]�$4�5$�6CC�gelt  gfilenamef web/http.scm� � ��  � �� � �� � ��  � #��  � ��  � ��  � ��  � ��  Chz]6rgl  gfilenamef web/http.scm� � �� � ��  gnamegvalidate-quality-list�C�R����hH�]��4>"G �$4>"G6C�gx  Hgport  Hgq   Hgstr   Hgfilenamef web/http.scm� � ��  � ��  � ��  � �� � �� & � �� * � �� + � �� / � !�� 6 � �� F � ��  H C�h�]6�gl  gport  gfilenamef web/http.scm� � �� � ��  � ��   gnamegwrite-quality-list�C�R�����h��-.,3# # 45�$}"n�$b� �4545 0�" 45"# �$ �$""���""����"���C "���6�gval �gstart �gend  �gi  1 �gout  1 �gc  K �gi  W �gfilenamef web/http.scm� � ��  � *�� ) � �� - � �� 1 � �� 6 � �� : � �� = � �� B � �� C � -�� K � �� N � �� V � "�� W � �� W � �� ^ � �� b � �� f � �� j � �� n � �� r � �� w � �� { � �� � � �� � � �� � � �� � � �� � � �� � gnamegparse-non-negative-integer�C�R���h0�]45$ �$45$6CCC�gcode  ,gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � "�� � �� & � 0��  , gnamegnon-negative-integer?�C�Rh]Cwgk  gval  gfilenamef web/http.scm� � ��   gnamegdefault-val-parser�C�R�h�]$6C�gk  gval  gfilenamef web/http.scm� � ��  � ��  � ��  � ��   gnamegdefault-val-validator�CR���hX�]4;5$""4,5$" 4"5$66�gk  Qgval  Qgport   Qgt  =gt  ! :gfilenamef web/http.scm� � ��  � �� � ��  � �� ! � �� / � �� A � �� I � �� Q � ��  Q gnamegdefault-val-writer�CR����M������� h��]RL�$�4LL54L=L54L,L54$"L$"L544L4L555"  "�$�$ �"$�4L�L5"44L4L$"L55$"L "KL�$-4L5"�$4LL >!""���""���""��U""��M G4L54LL5   L�  $" 4L 5,� $ � $  �"�"��s  4LLL56 6�gi  �gout  �gi   �geq  % �gcomma  4 �gdelim  W �gk  r �gi  � gv-str  , �gnext-i  , �gv G �gi G �gt P l gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � �� % � �� ( � �� 4 � �� 7 � �� ? � �� M � '�� W � �� W � �� Z � �� ] � �� d � $�� p � �� r � �� r � �� �  �� � � �� � � �� � � ,�� � � �� � � �� � � �� � � 2�� � � �� � � �� �  "�� �  -�� �  >�� �  -�� �  "�� �  "�� �  �� �  �� �  �� �  �� �  /�� �  )�� �  �� �  �� / � �� 4  �� =  �� G  �� P  �� P  �� ^  (�� i  "�� p  �� s  �� y  %�� ~  +�� �  �� �  �� �  *�� �  *�� �  �� � � ��?  � gnameglp�ChP�-.,3## # 45OQ6�gstr Ng val-parser Ngstart  Ngend  Nglp  : Ngfilenamef web/http.scm� � �� & � .�� : � �� L � �� N � �� N gnamegparse-key-value-list�CR�h8�]�$���$L6C�$L6C�gelt  4gk  $gv   $gfilenamef web/http.scm�  ��   ��  ��  ��   ��   ��   ��   �� "  �� '  �� +  �� 2  ��  4 Ch(�-.,3#O6�glist #gvalid? #gfilenamef web/http.scm�  �� #  �� # gnamegkey-value-list?�CR���h`�]�$�"�$�"4>"G$4=>"GL6C�gx  _gport  _gk  ! _gv  ! _gfilenamef web/http.scm� ! ��  " �� " �� " ��  # ��  # ��  # �� ! " �� & $ �� ? % �� @ ' �� ] ( ��  _ Ch8�-.,3##O6�glist 1gport 1g val-writer  1gdelim  1gfilenamef web/http.scm�  ��   F�� 1  �� 1  gnamegwrite-key-value-list�CR4i,;=5R4 i�i,;5 R���M���� ��� h�k]JL�$�4L544L4L$"L555$ 4L5"=�$4L�L5"54LL5$"L4L5 ";L�$-4L5"�$4 LL >""���""��� G4L5$ �"4LL5  L�$ 4L 5"  �$4 �5LD ;�$4L �L5�"���4 �5 D;�$24L54L�L5$ �"�"��V4L54 $ �"�5$"LD4 5LDcgi  �gout  �gdelim   �gk  Q �gdelimc  Q �gi  j �gt  } �gdelim  � �gv-str  � qgnext-i  � qgv  � qgx   qgi  qgkey ) qgv  � �gv  � �gfilenamef web/http.scm� 3 ��  4 �� 4 �� 6 ��  6 ��  7 ��  8 �� # 8 %�� / 8 <�� 9 8 %�� ; 8 �� = 7 �� C 9 �� D 9 #�� Q 7 �� ^ : �� _ > �� f > 3�� j > �� j > �� q B &�� } B "�� � A �� � E %�� � E �� � ? �� � ? �� � ? �� � ? 0�� � ? *�� � ? �� � @ �� � < �� � H �� � H �� � I �� � I #��  H ��  J ��  H ��  K ��  K ��  K *�� ) K �� 4 M �� ; M *�� = M �� A M �� J K �� K O �� R O 1�� V O �� [ P �� c O �� d R �� k R *�� m R �� q R �� z : �� { T �� � T �� � U �� � U *�� � U �� � V �� � V !�� � V �� � U �� � Y �� � Y �� � Z �� � Z )�� � Z /�� � Z #�� � Z �� � [ �� � Z �� � 5 �� � 5 ��P  � gnameglp�ChP�-.,3## # 45OQ6�gstr Kg val-parser Kgstart  Kgend  Kglp  9 Kgfilenamef web/http.scm� 0 �� & 2 /�� 9 3 �� I 3 �� K 3 �� K gnamegparse-param-component�C R�� ��� �h`!]4LLL> GL�$14L5,�$4L�L5�"���L6�6gi  ]gout  ]gitem   ]gi   ]gfilenamef web/http.scm� ` ��  b ��  a ��  d �� # d �� $ e �� / e �� 3 e �� 4 f �� ; f )�� ? f �� D g �� L f �� P h &�� T h �� [ i �� ] i ��  ] gnameglp�ChP�-.,3## # 45OQ6�gstr Kg val-parser Kgstart  Kgend  Kglp  9 Kgfilenamef web/http.scm� ] �� & _ *�� 9 ` �� I ` �� K ` �� K gnamegparse-param-list�C R�h[]L6Sgelt  gfilenamef web/http.scm� n �� o ��  Ch(�-.,3#O6�glist #gvalid? #gfilenamef web/http.scm� k �� # m �� # gnamegvalidate-param-list�CR�hw]L6ogitem  gport  gfilenamef web/http.scm� u �� v 0��  v ��   C�h(�-.,3#O6�glist 'gport 'g val-writer  'gfilenamef web/http.scm� q �� % w �� ' s �� '  gnamegwrite-param-list�CR4SUX���hm]456egstr  gpat  gfilenamef web/http.scm�  | �� | ��  C��BCDOPQXV^_`hN]CFg t-556baa-448  g t-556baa-449     C��anoprth(N]L��CFg t-556baa-426  !g t-556baa-427  !  ! Ch�]24545"�45�$�45�.�$"td�$�"Va�$ �"84  5$ 4 ?" 4 5�"��Y" "��F4 5$ O@ 6�gstr  �gpat  �gp  �gi   �gtests   �gc  - �gtmp  � �gtmp  � �gtmp  � �gtmp  � � gfilenamef web/http.scm�  } �� } �� � %��  � ��  � �� � �� $ � �� % � �� - � �� 2 � �� ; � �� [ � �� h � �� y � �� � � '�� � � �� � � �� � � �� � � '�� � � �� � ~ ��  � Ch@`] 45" 6$4?$@"���"���Xgx  9gtmp 9gfilenamef web/http.scm� z ��  9 C5R��u�h��]� �$�4 �54�54 �5J�$ha�$n�$ C456u�$)n�$ Cl�$ C456456F�$7e�$b�$ C456456M�$Ca�$)r�$ Cy�$ C456456A�$]p�$r�$ C456u�$g�$ C456456S�$7e�$p�$ C456456O�$7c�$t�$ C456456N�$7o�$v�$ C456456D�$7e�$c�$ C456456456456�gstr  �gstart  �gend   �ga  / �gb  / �gc  / �gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � ��  � ��  � �� ! � �� # � �� $ � �� - � �� / � �� / � �� > � �� G � �� P � �� V � �� W � !�� c � �� l � �� u � �� � � �� � � !�� � � �� � � �� � � !�� � � �� � � �� � � �� � � �� � � �� � � !�� � � �� � � �� � � !�� � � �� � � �� � � ��  � ��  � ��  � !�� ! � �� % � �� & � !�� 2 � �� ; � �� D � �� M � �� T � �� U � !�� a � �� j � �� s � �� z � �� { � !�� � � �� � � �� � � !�� � � �� � � �� � � �� � � �� � � �� � � !�� � � �� � � �� � � !�� � � �� � � �� � � �� � � �� � � �� � � !��  � ��  � ��  � !��  � �� ! � �� * � �� 3 � �� : � �� ; � !�� G � �� K � �� L � !�� X � �� a � �� j � �� s � �� z � �� { � !�� � � �� � � �� � � !�� � � �� � � �� � � !�� � � �� � � �� � � !�� � � ��g  � gnameg parse-month�CvR��wx�y��� h�]"4545$ C45$ C"645 �$�44  55$�44  55$�44  55$r44  55$]4  5+�$ "-�$ �" 454  54   5 <� <���C"��B"��>"��:"��6"��2�gstr  �gstart  �gs  �gkey  � �gsign  � �ghours  � �gminutes  � �gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � ��  � ��  � �� # � �� % � �� ) � �� 3 � �� 7 � �� 7 � �� 8 � �� E � �� F � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ��  � gnamegparse-zone-offset�CzR���E�v}�{ h� �]34 545 �$*44 55$44 55$�4 5:�$�44 55$�44 55$�4 5:�$�44 55$�44 55$v4 5 �$a44 55$J44 55$344 55$44 55$4 5 �$�44 55$�44 55$�44 55$�4 5 �$�44 55$44 55$h4 5 �$S4 5,�$>44 55$'44 55$44 55"""""""""""""""""""""""""$c4  54  54 54  54  54  5 � C4 545 �$44 55$�44 55$�4 5:�$�44 55$�44 55$�4 5:�$�44 55$v44 55$_4 5 �$J44 55$344 55$44 55$44 55$�4 5 �$�44 55$�44 55$�44 55$�4 5 �$44 55$h4 5 �$S4 5,�$>44 55$'44 55$44 55""""""""""""""""""""""""$c4  54  54 54  54  54  5 � C4 545 �$(44 55$44 55$�4 5:�$�44 55$�44 55$�4 5:�$�44 55$�4 5 �$v4 5 �$a44 55$J44 55$344 55$44 55$4 5 �$�44 55$�44 55$�44 55$�4 5 �$�44 55$44 55$h4 5 �$S4 5,�$>44 55$'44 55$44 55"""""""""""""""""""""""""$c4  54  54 54  54  54  5 � C4 545 �$44 55$�44 55$�4 5:�$�44 55$�44 55$�4 5:�$�44 55$t4 5 �$_4 5 �$J44 55$344 55$44 55$44 55$�4 5 �$�44 55$�44 55$�44 55$�4 5 �$44 55$h4 5 �$S4 5,�$>44 55$'44 55$44 55""""""""""""""""""""""""$c4  54  54 54  54  54  5 � C4  >"GC�gstr  �gspace  �g zone-offset   �gs  Jgdate  � �gmonth  � �gyear  � �ghour  � �gminute  � �gsecond  � �gs  � �gdate  ( Igmonth  ( Igyear  ( Ighour  ( Igminute  ( Igsecond  ( Igs  S �gdate  � �gmonth  � �gyear  � �ghour  � �gminute  � �gsecond  � �gs   %gdate  k �gmonth  k �gyear  k �ghour  k �gminute  k �gsecond  k �gfilenamef web/http.scm� � ��  � �� � �� N � �� O � �� Z � �� e � �� p � �� { � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ��  � ��  � ��  � �� ( � �� H � �� J � �� S � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ��  � �� ) � �� * � �� 5 � �� @ � �� K  �� V  �� a  �� k � �� �  �� �  �� �  �� �  ��1  � gnamegparse-rfc-822-date�C~R��{��E�v}w�h��]L4�5"4>"�G"�45 �$�44 55$�44 55$�4 5:�$�44 55$~44 55$d4 5:�$L44 55$244 55$4 5 �$44 55$�44 55$�4 5-�$�44 55$�44 55$�44 55$f4 5-�$N44 55$444 55$4 5 �$""���""���""��z""��r""��j""��b""��Z""��R""��J""��B""��:""��2""��*""��"""��""��""�� ""��""���""���4 54   54  54 54  54  5  4 5  � &  �" 4   5   �  d���  2� �$  d�" 2� �$  d�"        � C�gstr  �gcomma  �gspace   �g zone-offset   �gtail   �gdate  c �gmonth  c �gyear  c �ghour  c �gminute c �gsecond c �gs t �gnow � �gthen � �gyear � �gfilenamef web/http.scm�  ��   ��  ��   ��   ��   ��   ��  �� ,  �� -  �� :  �� ;  �� #  �� -  �� 8  �� C  �� N  �� Y  �� c  �� p  (�� t  �� �  �� �  �� �  *�� �  -�� �  *�� �  �� �  �� �  �� �  �� �  �� �  .�� �  �� �  �� �  �� �  .�� �  ��&  � gnamegparse-rfc-850-date�C�R�{��E�v} h��]1"4>"eG"^45 �$L44 55$244 55$44 55$�44 55$�4 5 �$�44 55$�44 55$�4 5:�$�44 55$f44 55$L4 5:�$444 55$44 55$4 5 �$�44 55$�4 5 �$�44 55$�44 55$�44 55$h4 5 �$P44 55$644 55$44 55$""��B""��:""��2""��*""��"""��""��""�� ""��""���""���""���""���""���""���""���""���""���""���""���""���""���""���""���44 5 �$ "  54  54  54 54  54  5  � C�gstr  �gdate � �gmonth  � �gyear  � �ghour  � �gminute  � �gsecond  � �gfilenamef web/http.scm� $ ��  & �� & ��  & ��  % ��  % �� , % �� - % �� } ' �� � ) �� � ) �� � ) �� � ' �� � + �� � , �� � - �� � . �� � / �� � ' �� � 0 ��  � gnamegparse-asctime-date�C�R}w���h8�]�&  �" 45 �$C45 6�gdate  2gfilenamef web/http.scm� 3 ��  4 ��  4 �� # 4 �� ) 6 �� 2 6 ��  2 gnamegnormalize-date�C�R��zhR]LL�6Jgfilenamef web/http.scm� : !�� ; 9�� ; "��  ChU-13CMgargs gfilenamef web/http.scm� : !�� C��~��{� h�M]4 5$4O5"$J4,5$) �$45" 45" 4  5"4 56Egstr  �gspace �g zone-offset  ) �gcomma  < ygfilenamef web/http.scm� 8 ��  9 �� 9 ��  : ��  : !�� ) 9 �� 3 = �� 4 > �� < > �� D ? �� I @ �� M ? �� N @ �� ] A �� n ? �� r ? *�� v ? �� ~ B �� � < ��  � gnameg parse-date�C�R�����hXE] "? �$544 045 ��5>"G4 5"���C4 �5"���=gn  Ugdigits  Ugport   Ugtens   Egfilenamef web/http.scm� E ��  G �� H ��  H ��  J ��  J ��  F ��  J 4�� " J ,�� # J $�� % J �� , J �� 5 L �� C L �� E G �� F G �� M G �� O G �� U G ��  U gnamegdisplay-digits�C}w���������������������������������%h��]�&  �" 45 �$" 445 5445 �$ "b �$ "T �$ "E �$ "6 �$ "' �$" �$" 45>"G4�&  �" 45 >"G4�&  �" 45 �$"� �$"� �$"� �$"� �$"r �$"c �$"T �$"E �$"6 �$"' �$" �$" 45>"G4�&  �" 4 5 >"G4 >"G4�&  �" 4!5 >"G4:>"G4�&  �" 4"5 >"G4:>"G4�& �" 4#5 >"G$6�gdate  �gport  �gdisplay-digits   �gdate  : �gkey  F �gkey   �gfilenamef web/http.scm� D �� M �� " M �� ' M �� . O �� 1 O "�� : O �� : M �� = P �� @ P �� F P �� R Q �� ^ P �� ` Q "�� m P �� o Q 0�� | P �� ~ R �� � P �� � R "�� � P �� � R 0�� � P �� � S �� � S #�� � S *�� � S #�� � P �� � U �� � U �� � U �� � V �� � V ��  V �� # W �� 0 V �� 2 W $�� ? V �� A W 3�� N V �� P X �� ] V �� _ X $�� l V �� n X 3�� { V �� } Y �� � V �� � Y $�� � V �� � Y 3�� � V �� � Z �� � V �� � Z $�� � V �� � Z 3�� � [ �� � [ �� � [ �� � V �� � ] �� � ] ��  ] ��  ^ �� + _ �� 0 _ �� Q _ �� Z ` �� n a �� s a �� � a �� � b �� � c �� � c �� � c �� � d �� � d ��O  � gnameg write-date�C�R����h8�]45$ 4 5�C45$ 45�C�C�gval  7gfilenamef web/http.scm� j ��  l ��  l �� l ��  k ��  l $��  l ��  m �� m �� $ m �� ( k �� ) m $�� 1 m �� 6 n ��  7 gnamegparse-entity-tag�C�R�h�]�$�6C�gval  gfilenamef web/http.scm� p ��  q �� q ��  r ��  r ��   gnameg entity-tag?�C�R���h0�]�$"4>"G�6�gval  *gport  *gfilenamef web/http.scm� t ��  u �� u ��  v ��  v ��  v �� & w �� * w ��  * gnamegwrite-entity-tag�C�R���������� h��-.,3# # 454 5�4$" �> G�45�$645,�$44�55" 4  5"�C�gval �gstart �gend  �gstrong?  5 �gtag  X �gnext  X �gnext  o �gfilenamef web/http.scm� y ��  z /�� % { �� ) { &�� 4 { �� 5 { �� 5 { �� 8 } �� B } +�� M } =�� W } �� [ | �� d � �� e � �� o � �� v � �� z � �� { � �� � � �� � � �� � � �� � � �� � � 0�� � � �� � � �� � � �� � � 0�� � � �� � � �� � � �� � gnamegparse-entity-tag-list�C�R��hw]6ogval  gfilenamef web/http.scm� � �� � ��  gnamegentity-tag-list?�C�R���h�]6�gval  gport  gfilenamef web/http.scm� � �� � )��  � ��   gnamegwrite-entity-tag-list�C�R�������MN���h�3-.,3## # 454545$"�$4>"G"44 4 $"555 �$-45�$4 5�C 64 5�C+gstr �g val-parser �gstart  �gend  �gstart  9 �gt  H [gdelim  [ �gscheme  � �gstart  � � gfilenamef web/http.scm� � �� & � +�� / � �� 9 � �� < � �� H � �� [ � �� b � �� f � �� g � �� k � �� r � ��  � �� � � �� � � $�� � � 9�� � � $�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � %�� � � �� � � �� � � �� � gnamegparse-credentials�C�R��h8�] �$&��$��$�6�6CC�gval  1gkey  -gfilenamef web/http.scm� � ��  � �� � �� � �� � ��  � ��  � ��  � �� $ � �� & � �� + � �� - � ��  1 gnamegvalidate-credentials�C�R��hP�] 4�>"G4 >"G��$ �6�6�gval  Kgport  Kgkey  . Kgfilenamef web/http.scm� � ��  � ��  � ��  � ��  � �� . � �� . � �� > � �� B � �� G � �� K � ��  K gnamegwrite-credentials�C�R���MN�������M������ h��]RL�$�4LL54L=L54L,L54$"L$"L54L54L 5$ 45D44L55"  "�$�$ �"$�4L�L5"44L4L$"L55$"L "KL�$-4L5"�$4 LL >!""���""���""��U""��M G 4L L5  L�  $" 4L 5,� $ �$ �"�"��^  4LLL5645LD�gi  �gout  �gi   �geq  % �gcomma  4 �gdelim  W �g token-end  d �gk  � �gi  � ;gv  L �gnext-i L �gi ^ �gt e � gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � �� % � �� ( � �� 4 � �� 7 � �� ? � �� M � )�� W � �� W � �� Z � �� d � �� g � �� w � �� x � �� � � �� � � �� � � )�� � � �� � � �� � � �� � � �� � � $�� � � 4�� � � (�� � � �� � � %�� � � :�� � � %�� � � �� � � *�� � � +�� � � <�� � � +�� � � *�� � � *��  � "��  � ��  � '��  � ��  � 7��  � 1��  � "��  � "�� O � �� T � �� ^ � �� e � �� e � �� s � 0�� ~ � *�� � � �� � � �� � � -�� � � 3�� � � '�� � � �� � � �� � � �� � � �� � � �� � � ��C  � gnameglp�C h��-.,3# # 45454 5$444555" 45 OQ6}gstr �gstart �gend  �gstart  / �gsp  > �gscheme  h �glp  u �gfilenamef web/http.scm� � ��  � )�� % � �� / � �� 2 � �� > � �� F � �� G � �� J � %�� M � 6�� Y � %�� [ � �� ` � �� d � +�� h � �� h � �� u � �� � � �� � � �� � gnamegparse-challenge�C�R�����hH�]4LL5L�$%4LL> G�"���6�gi  Cgret  Cgi  Cg challenge  ' =gi  ' =gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � '�� * � �� 5 � �� = � �� C � ��  C gnameglp�ChH�-.,3## # 45OQ6�gstr Hg val-parser Hgstart  Hgend  Hglp  8 Hgfilenamef web/http.scm� � �� & � *�� 8 � �� F � �� H � �� H gnamegparse-challenges�C�R�h �]�$��$�6CC�gx  gfilenamef web/http.scm� � ��  � �� � �� � *�� � !��  � ��  � (��  � ��   Chz]6rgval  gfilenamef web/http.scm� � �� � ��  gnamegvalidate-challenges�C�R�h8�]4�>"G4 >"G�6�gval  4gport  4gfilenamef web/http.scm� � ��  � ��  � ��  � ��  � �� 0 � �� 4 � ��  4 gnamegwrite-challenge�C�R���h�]6�gval  gport  gfilenamef web/http.scm� � �� � '��  � ��   gnamegwrite-challenges�C�R��h�-136�gmessage gargs gfilenamef web/http.scm�  ��  ��   ��  gnameg bad-request�C�R��h�-136�gmessage gargs gfilenamef web/http.scm�  ��  ��   ��  gnameg bad-response�C�R�R����������� h�E-.,3# # 45"0�$$4��5$��"�"���""���$C4.5"4564  5$>$44 .5�$4  �54 �5�C"���"���"���=gstr �gstart �gend  �gknown  ( Xgt  ` �gdot-idx  x �gfilenamef web/http.scm�  ��   ;�� (  �� +  �� /  �� 0  �� 7  �� >  �� B  �� E  �� M  �� S  �� X  �� `  �� l  �� x  �� �  "�� �  0�� �  �� �  �� �  �� �  !�� �  �� �  �� �  �� �  �� �  �� �  �� �  �� �  2�� �  �� �  �� �  2�� �  �� �  ��$ � gnamegparse-http-version�g documentationkParse an HTTP version from STR, returning it as a major minor pair. For example,  HTTP/1.1 parses as the pair of integers,  (1 . 1) .�C?R��hH]4>"G4�>"G4.>"G�6gval  Hgport  Hgfilenamef web/http.scm�  ��   ��   ��   ��   ��   �� #  �� ,  �� D  �� H  ��  H gnamegwrite-http-version�g documentationf1Write the given major-minor version pair to PORT.�C�R4�i?��h |]4 455�� Ctgv  gfilenamef web/http.scm� " ��  $ �� $ *��  $ ��  $ ��  # ��   C�>"G�������������������h�Y-.,3# # 4545$C45$C45$C4 5$ C4 5$ C4 5$C45$C456Qgstr �gstart �gend  �gfilenamef web/http.scm� / ��  / :�� % 3 �� + 3 �� 1 3 �� 5 2 �� 7 3 "�� 9 4 �� ? 4 �� E 4 �� I 2 �� K 4 #�� M 5 �� S 5 �� Y 5 �� ] 2 �� _ 5 #�� a 6 �� g 6 �� m 6 �� q 2 �� s 6 "�� u 7 �� { 7 �� � 7 �� � 2 �� � 7 %�� � 8 �� � 8 �� � 8 �� � 2 �� � 8 &�� � 9 �� � 9 �� � 9 �� � 2 �� � 9 $�� � : �� � : +�� � : ��) � gnamegparse-http-method�g documentationk<Parse an HTTP method from STR. The result is an upper-case symbol, like  GET .�C>R��������������h8-.,3# # 45�$645$C45/�$�4?54#5$$ �"$""  4 $"$"5 $4 �$"5" $4 �5"644 55$C4 56gstr 1gstart 1gend  1gq  c gf  r gq  � gt   1gfilenamef web/http.scm� < ��  < :�� ) @ �� - ? �� 1 A �� 3 A �� 4 B �� : B �� @ B �� D ? �� G D �� R D �� V ? �� W E �� c E �� f F �� r E �� z G �� � G �� � G !�� � G �� � G �� � E �� � H �� � I �� � I -�� � I �� � J �� � J �� � J /�� � J 6�� � J �� � K �� � K #�� � K 2�� � K #��  H ��  M ��  M ��  M ��  M �� $ N �� % N '�� 1 N ��- 1 gnamegparse-request-uri�g documentationf�Parse a URI from an HTTP request line. Note that URIs in requests do not have to have a scheme or host name. The result is a URI object.�C@R������>@�?� h��]454545"6$I$?�$24 544 �554 �4 55D"���"���"����gport  �gline �gd0   �gd1   �gfilenamef web/http.scm� P ��  S �� S �� T ��  S ��  U ��  S �� ) Z �� - Z �� - V �� 9 V �� > V �� B V �� C W �� M X �� R X (�� Y X >�� ] X (�� a X �� b Y �� i Y )�� j Y 1�� r Y �� t W ��  � gnamegread-request-line�g documentationfoRead the first line of an HTTP request from PORT, returning three values: the method, the URI, and the version.�CAR�w�������������hx�]�&  �" 45$14�& �" 45>"G4>"G�& �" 45$D4�& �" 45>"G4@>"G"4�&  �" 45>"G�&  �" 45$8 P&"(4:>"G4>"G""�&  �" 4 54 5"4>"�G"�"G �$;�&  �" 45$"���4  >"FG"?"��� �$/4  5/�$"���"4 >"G""��~�&  �" 45$54?>"G�&  �" 456C�guri  vgport  vgp   Ngpath  m  glen  v gfilenamef web/http.scm� \ ��  ] �� ! ] �� " _ �� ' _ �� E _ �� N ` �� R ` �� Y ` �� d a ��  a �� � c �� � c �� � c �� � d �� � e �� � e �� � e �� � f ��  f ��  g ��  g ��  i �� 4 j �� U k �� m k �� p l �� v k �� } s �� � m �� � p �� � m �� � p �� � p �� � q �� � q �� � q �� � m �� � n �� � m �� � n �� � n �� � n �� � o ��  o ��  o �� # t �� ? t �� @ v �� X w �� t w ��4  v gnameg write-uri�C�R�G�w�������������hH]4>"G4 >"G45$9�& �" 45�&  �" 45�&  �" 45$�$�4>"G4>"G4 :5$@4[>"G4>"G4]>"G"4>"G4 5$"(4:>"G4>"G"""�&  �" 4 5�&  �" 4 54 5$4>"G"4>"G$,4>"G4>"G"4 >"G4>"G6 gmethod  Gguri  Ggversion   Ggport   Ggscheme  � jghost  � jg host-port  � jgpath  � gquery  �  gfilenamef web/http.scm� y ��  { ��  | �� + } �� 5 } �� 8 ~ �� R  �� m � �� � ~ �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ��  � �� ! � �� # � �� ) � �� - � �� 2 � �� F � �� q � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ��  � �� , � �� C � �� G � ��.  G gnamegwrite-request-line�g documentationf0Write the first line of an HTTP request to PORT.�CBR������?�� h�]4545$4455""6$5$+4 544554 5D"���"����gport  �gline �gd0   �gd1  3 �gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � ��  � �� $ � #�� . � �� 3 � �� = � �� A � �� A � �� M � �� N � �� X � �� ] � 1�� k � �� l � �� x � ��  � gnamegread-response-line�g documentationf�Read the first line of an HTTP response from PORT, returning three values: the HTTP version, the response code, and the (possibly empty) "reason phrase".�CCR���hp:]4>"G4 >"G4>"G4 >"G4>"G62gversion  ngcode  ng reason-phrase   ngport   ngfilenamef web/http.scm� � ��  � ��  � �� + � �� ? � �� S � �� j � �� n � ��  n gnamegwrite-response-line�g documentationf1Write the first line of an HTTP response to PORT.�CDR2���h]6 gname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-opaque-header!�g documentationf}Declares a given header as "opaque", meaning that its value is not treated specially, and is just returned as a plain string.�C3R2���h|]6tgname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-date-header!�C�R2���h�]6{gname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-string-list-header!�C�R2�M�hd]456\gstr  gfilenamef web/http.scm� � ��  � ��  � ��   C��hY]6Qgv  gfilenamef web/http.scm� � �� � ��  C���ht]6lgv  gport  gfilenamef web/http.scm� � �� � !��  � ��   Ch�]6{gname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-symbol-list-header!�C�R2���h�]6{gname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-header-list-header!�C�R2���h]6wgname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-integer-header!�C�R2��+h �] 45$C6|gstr  gt gfilenamef web/http.scm� � ��  � �� � ��  � >��  � (��   C�h{]6sgname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-uri-header!�CR2�+h �] 45$C6�gstr  gt gfilenamef web/http.scm� � ��  � ��  � �� � �� � ��  � ��  � ��   C�h�]6|gname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-relative-uri-header!�C R2���h�]6|gname  gfilenamef web/http.scm� � ��  � ��   gnamegdeclare-quality-list-header!�C R�2 h[]L6Sgstr  gfilenamef web/http.scm� � �� � ��  Ch[]L6Sgval  gfilenamef web/http.scm� � �� � ��  Chm]L6egval  gport  gfilenamef web/http.scm� � �� � ��  ChH�-.,3###OOO6�gname Eg val-parser Eg val-validator  Eg val-writer  Egfilenamef web/http.scm� � �� E � �� E gnamegdeclare-param-list-header!�C R�2h[]L6Sgstr  gfilenamef web/http.scm�  ��  ��  Ch[]L6Sgval  gfilenamef web/http.scm�  ��  ��  Chm]L6egval  gport  gfilenamef web/http.scm�  ��  ��  ChH�-.,3###OOO6�gname Eg val-parser Eg val-validator  Eg val-writer  Egfilenamef web/http.scm� � �� E  �� E gnamegdeclare-key-value-list-header!�C R2�� �h�]45$C6�gstr  gfilenamef web/http.scm�  ��   ��  $��  ��   ��   )��   ,��   C �hv]&C6ngval  gfilenamef web/http.scm�  ��   ��  ��  ��   #��   C ���h �]&66�gval  gport  gfilenamef web/http.scm�  ��   ��  ��   ��   ��   ��   Ch�]6gname  gfilenamef web/http.scm�  ��   ��   gnamegdeclare-entity-tag-list-header!�CR2���h�]6{gname  gfilenamef web/http.scm�  ��   ��   gnamegdeclare-credentials-header!�CR2���h�]6~gname  gfilenamef web/http.scm�  ��   ��   gnamegdeclare-challenge-list-header!�CR4 i�� hp�]�$"�$"�$6�$$6C�$"�$$6CC�gk  lgv-str  lgfilenamef web/http.scm� ; �� < �� - > �� 6 < �� < @ �� B @ �� M < �� a B �� g B ��  l C���h��]�$"�$"�$6�$$6C�$"�$$6C �$"/ �$"! �$" �$" �$�C$6C�gk  �gv  �gfilenamef web/http.scm� D �� E �� - G �� 6 E �� < I �� B I �� C I �� M E �� a K �� g K �� h K �� r E �� � M �� � O �� � O �� � O ��  � C�����hp�]45$ 6�$04">"G4>"G"645$66�gk  igv  igport   igfilenamef web/http.scm� P ��  R �� Q ��  R ��  S ��  Q ��  T �� 3 U �� N V �� O W �� Y Q �� a X �� e Z �� i Z ��  i C>"G42i�i�i�� 1h �]&"456�gx  gport  gfilenamef web/http.scm� f ��  g &�� g ��  h ��  i ��  g ��   C�hv]6ngval  gport  gfilenamef web/http.scm� d �� k ��  e ��   C>"G4�i!>"G4 i">"G4�i#>"G4 i$>"G4�i%>"G42i&�i�i�i�>"G42i'����������( h ]Y4L 54L �5$�$�4L54L�54L�> GL�$ 4L5" �$-4L�> G 45 ""  " G  L�$ 4L 5"   �$ C ,�$ 4L4L �55�C  L6CC gi  gidx1 gidx2   gcode  @ gagent  @ gtext  U gi  U gc  s �gdate  � �gi � �gtext  � gdate  � gi � gw � gc � gfilenamef web/http.scm� � ��  � �� � ��  � ��  � /��  � ��  � �� # � �� ) � �� * � �� 5 � �� < � *�� @ � �� @ � �� E � �� L � 2�� T � �� X � �� a � (�� e � #�� f � 2�� s � �� ~ � ��  � .�� � � A�� � � .�� � � �� � � 0�� � � #�� � � �� � � �� � � !�� � � &�� � � !�� � � 0�� � � �� � � �� � � "�� � � ��  � +��  � /��  � D��  � /��  � +��  � #��  � .��  � "��0   gnameglp�C�h0�]45OQ4 56�gstr  *glen *glp   *gfilenamef web/http.scm� � ��  � �� � ��  � �� ! � �� * � ��  * C�)��}hP�]45$> �$245$%45$$�$��CCCCCCC�gcode  Mghost  Mgtext   Mgdate   Mgfilenamef web/http.scm� � ��  � #�� � ��  � @��  � ��  � #�� " � �� # � #�� - � �� 3 � #�� 6 � 2�� D � '��  M Ch(�]�$45 �$@CC�gelt  !gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � ��  � ��  ! Ch[]6Sgval  gfilenamef web/http.scm� � �� � ��  C����h��]4L>"G4 L>"G4L>"G4 L>"G4L>"G$4 L>"GL6C�gcode  �ghost  �gtext   �gdate   �gfilenamef web/http.scm� � ��  � ��  � �� + � �� ? � �� S � �� l � �� m � �� � � ��  � Chk]O@cgw  gport  gfilenamef web/http.scm� � �� � ��  C�hv]6ngval  gport  gfilenamef web/http.scm� � �� � ��  � ��   C�>"G4�i*>"G42i+ ��,hP�] 45"4>"%G"�$�(""���""����C�gstr  Kg disposition Kgfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � �� ) � �� , � �� 0 � �� 3 � �� 7 � �� J � ��  K C��h �]�$��$�6CC�gx  gfilenamef web/http.scm� � ��  � �� � �� � -�� � $��  � ��  � ?��  � 6��   Ch �]�$��$ �6CC�gval  gfilenamef web/http.scm� � ��  � �� � �� � �� � ��  � ��  � ��  � ��   Chv]6ngval  gport  gfilenamef web/http.scm� � �� � �� � ��  C>"G4�i->"G4�i.>"G4�i/>"G4 i0>"G43i1>"G42i2��3�45���  h��]4-54/5"645$r$h$4 54�5�" 4 5$ " 454 �5$ " 4�5C"��y"��u�gstr  �gdash  �gslash   �gfilenamef web/http.scm�  ��   ��  ��   �� - �� $ - �� $  �� %  �� )  �� -  �� 1  �� 7  �� 9  �� ? ! �� @ $ �� K % �� R % 3�� V % �� W # �� \ & �� b & �� h & �� l ! �� n ' �� s ) �� w ) �� { ) �� | * �� � * !�� � * %�� � * �� � * �� � + �� � , �� � , 4�� � , �� �  ��&  � C) �h�s] �$r45 �$b��$X��&"%�$4�5$ 4�5""$���&C6CCCCkgval  }gx # Zgx c ugfilenamef web/http.scm� . ��  / �� / �� / ��  / ��  / ��  0 ��  0 ��  / �� " 1 �� # 1 �� ) 2 �� - 2 �� . 2 �� 5 3 �� 9 3 �� : 4 �� ? 4 +�� A 4 �� E 3 �� F 5 �� K 5 +�� M 5 �� ^ / �� a 6 �� c 6 �� i 7 �� m 7 �� n 7 �� u 8 ��  } C� h�+]4�>"G4 >"G��&4*>"G"B4���>"G4->"G4���>"G���&*6���6#gval  �gport  �gfilenamef web/http.scm� 9 ��  : ��  : ��  : ��  ; �� . < �� 1 < �� 5 < �� 6 = �� N ? �� S ? �� \ ? �� e @ �� y A �� ~ A �� � A �� � B �� � B �� � B �� � C �� � D �� � D ��  � C>"G42i6�����7�M8�9 hX�] 4=5"L6$34=5�$44 554�5�C"���"����gx  Vgeq Vgfilenamef web/http.scm� L ��  M �� M ��  S %��  S ��  N �� " N '�� + N !�� / N �� 0 P �� 3 Q �� @ P �� A R �� J R C�� L R �� M O ��  V Ch(�] 4;54�54O�5�C�gstr  &gparts &gfilenamef web/http.scm� I ��  J �� J ��  K ��  K ��  K ��  L �� " T �� $ L �� % K ��  & C��h �]�$��$�6CC�gx  gfilenamef web/http.scm� Y ��  Z �� Z �� Z -�� Z $��  Z ��  Z ?��  Z 6��   Ch �]�$��$ �6CC�gval  gfilenamef web/http.scm� U ��  V �� V �� W �� W ��  V ��  X ��  X ��   C���h8�]4�>"G4=>"G�6�gpair  4gport  4gfilenamef web/http.scm� b ��  c ��  c ��  c ��  d �� 0 e �� 4 e ��  4 ChH�]4�>"G��$!4>"G�6C�gval  Bgport  Bgfilenamef web/http.scm� [ ��  \ ��  \ ��  \ ��  ] ��  ] ��  ] �� _ �� $ _ �� + _ �� 8 a �� > f �� @ ` ��  B C>"G4�i:5;R42i<=?;�h]45$C6wgstr  gfilenamef web/http.scm� m ��  n �� n �� n ��  n ��  p ��   C��i>"G4�i@>"G4 iA!�hz]&6Crgk  gv  gfilenamef web/http.scm� � ��  � �� � ��  � ��   C!��h �]&6$6C�gk  gv  gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � ��  � ��   C!�h �]&66�gk  gv  gport   gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��   C>"G4 iB>"G4 iC>"G4 iD>"G4iE>"G4 iF>"G43iG>"G42iH���I��h�x]!4]54:$" 5$54 5[�$"4>"G4 5"$4 5"$4�5"�Cpgstr  �grbracket �gcolon  # �ghost  v �gport  � �gfilenamef web/http.scm� � ��  � �� � ��  � ��  � (�� # � �� # � �� + � �� , � !�� 6 � �� : � �� ? � �� C � !�� J � �� S � �� f � �� g � �� v � �� ~ � ��  � �� � � 6�� � � �� � � �� � � ��  � C��h0�] �$$4�5$��$C�6CC�gval  /gt  +gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��  � ��  � ��  � ��  � ��  � �� ) � $�� + � ��  / C��h�]4�:5$A4[>"G4�>"G4]>"G"4�>"G�$4:>"G�6C�gval  �gport  �gfilenamef web/http.scm� � ��  � ��  � �� � ��  � ��  � �� % � �� * � �� 1 � �� : � �� R � �� W � �� ^ � �� i � �� m � �� n � �� � � �� � � ��  � C>"G4iJ>"G4�iK>"G4iL>"G42iM�����h8�] 45$" 45$66�gstr  4gt $gfilenamef web/http.scm� � ��  � ��  � �� � �� � ��  � ��  � �� ! � �� ( � �� . � �� 4 � ��  4 C}�h({] �$ ��"$C6sgval  %gt  %gfilenamef web/http.scm� � ��  � ��  � �� % � ��  % C�}�h0�]"6�$�&6"���"����gval  .gport  .gfilenamef web/http.scm� � ��  � ��  � ��  � ��  � ��  � �� & � ��  . C>"G4�iN>"G4�iO>"G4iP>"G42iQ�R5�����Sh`] 4-5$E �$ 4 5�C45��$ 4 5�C4 54�5�CL6 gx  `gdash `gfilenamef web/http.scm�  ��   ��  ��   ��   ��   ��   �� %  �� )  �� 0  �� 1  �� 5  �� 6  �� A  �� C  �� M  �� T  8�� V  �� W  �� \  �� `  ��  ` C���S h8�]45$ 4O44 5,55�C 6�gstr  7gfilenamef web/http.scm�  ��   ��   ��  ��   ��   ��   ��   ��   �� +  �� -  �� .  �� 3 ! �� 7 ! ��  7 C��hP�]�$C��$"$&$ 45"$$6CCCC�gelt  Ngx  Lgy   Lgfilenamef web/http.scm� & ��  ' �� ' �� ( #��  ( 1��  ( ��  ) !�� $ ) �� * * !�� + * -�� 6 * %�� : ) �� @ + !�� F + -�� G + %��  N Ch �]�$��$ �6CC�gval  gfilenamef web/http.scm� " ��  # �� # �� $ �� $ ��  # ��  % ��  % ��   C���hH�]�$4�>"G"4->"G�$ �6C�gpair  Hgport  Hgfilenamef web/http.scm� 1 ��  2 �� 2 �� 3 ��  3 ��  3 �� # 4 �� 9 5 �� = 5 �� B 6 �� F 6 ��  H C�h8�]4�>"G4=>"G�6�gval  8gport  8gfilenamef web/http.scm� , ��  - ��  - ��  - ��  . �� 0 0 �� 6 7 �� 8 / ��  8 C>"G4 iT>"G4 iU>"G43iV>"G4�iW>"G4�iX>"G42iY�i�i�i>"G4 iZ>"G4i[>"G42i\����h0�]45$" 44 55$66�gstr  /gfilenamef web/http.scm� i ��  j �� j ��  k ��  k ��  k �� # j �� ) l �� / m ��  / C}�h({] �$ ��"$C6sgval  %gt  %gfilenamef web/http.scm� n ��  o ��  o �� % o ��  % C�}�h0�]"6�$�&6"���"����gval  .gport  .gfilenamef web/http.scm� p ��  s ��  q ��  q ��  q ��  q �� & r ��  . C>"G43i]>"G42i^� �h]�$C6wgstr  gfilenamef web/http.scm� | ��  } ��  } �� } �� ~ ��   ��   C �hv]&C6ngval  gfilenamef web/http.scm� � ��  � �� � �� � ��  � ��   C ���h �]&66�gval  gport  gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � ��   C>"G4i_>"G`��ah y] 4;5$C 6qgc  gt gfilenamef web/http.scm� � *��  � 0�� � ,��  � 0��   Cb�h@8]4545$ C45$4 5" 60gport  ?gv ?gextension-start  ! ?gfilenamef web/http.scm� � ��  � ��  � �� ! � �� + � �� , � �� ? � ��  ? gnamegread-chunk-header�g documentationfQRead a chunk header from PORT and return the size in bytes of the upcoming chunk.�CcRfcg�hh�L]+"�M$" �$CM �$'4L5N �$NC"���4M54L�545$NCM�N �$(4L>"G4L>"G"��"��9 "��.Dgbv  �gidx  �gto-read   �gto-read   �gnum-read   �gt   gsize  2 Rgask-for  [ �gread  m �gleft  � � gfilenamef web/http.scm� � ��  � ��  � ��  � �� � �� & � �� + � �� , � �� 2 � �� 8 � �� ; � �� @ � �� C � �� R � �� S � �� [ � �� ^ � �� i � 8�� m � �� m � �� p � �� z � �� } � �� � � �� � � �� � � �� � � �� � � �� � � �� � � %�� � � �� � � �� � � �� � � ��#  � gnamegread!�Cijkhd]L$CL6\gfilenamef web/http.scm� � ��  � ��  � ��   gnamegclose�ChPO-/03#HHOQ KKO6Ggport  Ng keep-alive?  Ng remaining   Ng finished?   Ngread!  , Ngfilenamef web/http.scm� � �� ? � !�� N � ��  N g keep-alive?S �gnamegmake-chunked-input-port�g documentationf@Returns a new port which translates HTTP chunked transfer encoded data from PORT into a non-encoded format. Returns eof when it has read the final chunk from PORT. This does not necessarily mean that there is no more data on PORT. When the returned port is closed it will also close PORT, unless the KEEP-ALIVE? is true.�CERflmh@�]"0"(45$C445>"G"���"���"����gf  :gq  :gfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � �� & � �� 2 � ��  : gnameg q-for-each�Cln�o�ph\]L6Tgelem  gfilenamef web/http.scm� � �� � #��  Chh�]4M5$C4M544 5L>"G4L>"G4LLOM>"GL6�glen  hgfilenamef web/http.scm� � ��  � �� � ��  � ��  � ��  � ��  � �� + � �� 4 � �� 8 � �� ? � �� H � �� d � �� h � ��  h gnamegflush�Cqrshn]M6fgc  gfilenamef web/http.scm� � �� � ��  gnamegput-char�CtshY]M6Qgc  gfilenamef web/http.scm� � �� � !��  Chp]LO6hgs  gfilenamef web/http.scm� � ��  � ��   gnameg put-string�C�uvkhH�]4L>"G4L>"G4L>"GL$CL6�gfilenamef web/http.scm� � ��  � ��  � ��  � ��  � �� ' � �� > � �� F � ��  F gnamegclose�Cw hh�-/03#HOQ45KOOO 6�gport  bg keep-alive?  bgqueue   bg q-for-each  - bgflush  - bgfilenamef web/http.scm� � �� 7 � �� ^ � �� ` � >�� b � ��  b g keep-alive?S �gnamegmake-chunked-output-port�g documentationf�Returns a new port which translates non-encoded data into a HTTP chunked transfer encoded data and writes this to PORT. Data written to this port is buffered until the port is flushed, at which point it is all sent as one chunk. Take care to close the port when done, as it will output the remaining data, and encode the final zero chunk. When the port is closed it will also close PORT, unless KEEP-ALIVE? is true.�CFR4xi5yRyhx]6pgport  gfilenamef web/http.scm� � ��  � ��   gnameghttp-proxy-port?�CGR|yh�]456�gport  gflag  gfilenamef web/http.scm� � ��  � ��   gnamegset-http-proxy-port?!�CHRC�gm  ,grtd � gfilenamef web/http.scm�   ��  K ��  O �� !� Y �� !� Y �� "� [ �� $� ^ �� &= j �� (l q �� *� v �� . � �� 1� � �� 4Q � �� 5� � �� 5� � �� 5� � &�� 5� � �� 5� � �� 9u � �� :� � �� ;� � �� >� � �� @� � �� D$ � �� D� � �� E� � �� G^ � �� I( � �� I)  �� I1  �� I;  �� ID  �� IL  �� IV  �� I�  �� J�  �� K8  �� K9  �� KA  �� KC  �� KG  �� Le  �� M?  �� N�  �� PR  �� RO ! �� R� * �� S� - �� Tf 0 �� U 3 �� Vg 6 �� Y8 < �� ] K �� ^� ` �� _� i �� i� q �� jQ � �� m � �� n6 � �� p~ � �� q� � �� s� � �� v� � �� w� � �� x; � �� y � �� zk � ��� � ����  ���p  ���q . ���� . ���� / ���� / ���p 0 ���[ ] ���� k ���8 q ��� � ���4 � ���� � ����  ���� $ ���� 3 ���� 8 ���h D ��˧ j ���a p ���k t ���O y ���� � ��ѻ � ��� � ���I � ��נ � ��߉ � ���# � ��� � ��� � ���N � ���  ����  ����  ����  ���H  ����  ���� ! ��� & ��� ! ��� / ���� < ���= P ���� \ ��6 y ��� � �� � � �� � � �� � � �� G � ��� � ��? � ��� � ��O � ��� � ��x � ��B � �� � ���  ���  ��R  ��S : ��[ : ��" : ��" a ��" a ��#� a ��#� q ��#� q ��#� q ��#� w ��#� w ��#� w ��#� { ��#� { ��#� { ��#�  ��#�  ��#�  ��#� � ��#� � ��#� � ��$ � ��$ � ��$! � ��$* � ��$1 � ��.� � ��.� � ��.� � ��.� � ��.� � ��.� � ��2K � ��2T  ��2\  ��2a  ��2j  ��2r  ��2w  ��2�  ��2�  ��2�  ��2�  ��2�  ��2�  ��2�  ��2�  ��2�  ��2�  ��2�  ��9h  ��9q H ��9x H ��?} H ��?� j ��?� j '��?� j ��?� j ��?� l ��?� l ��@\ l ��@e v ��@m v ��@r v ��@{ � ��@� � ��B� � ��B� � ��B� � ��B� � ��B� � ��B� � ��B� � ��B� � ��C � ��C � ��C � ��C � ��C" � ��C+ � ��C3 � ��C8 � ��CA � ��CH � ��CM � ��CV � ��C] � ��HG � ��HP � ��HX � !��H] � ��Hf � ��Hn � ��Hs � ��H| � ��H� � !��H� � ��H� � ��H� � ��KO � ��KX � ��K` � ��Ke � ��Kn � ��Kv � ��K{ � ��K�  ��K�  ��K�  ��K�  ��K�  ��R�  ��R� ; ��R� ; ��R� ; ��R� @ ��R� @ ��R� @ ��R� D ��R� D ��R� D ��R� P ��R� P ��R� P ��R� U ��R� U ��R� U ��R� Y ��S Y ��S Y ��S" ` ��S* ` ��S/ ` ��S8 d ��S@ d ��SE d ��SN h ��SU h ��U� h ��U� w ��U� w ��U� w ��V { ��V { ��X6 { ��X? � ��XG � ��XL � ��Z� � ��a" � ��i� � ��i� � ��i� � ��j� � ��kB � �� kD C6